diff --git a/src/stralloc.c b/src/stralloc.c
index f2685932ca1c4347f6f3527e24df7b9a5675e8c9..48f3078bbd3d91bd812a6e1efbb21bc50b39b2f7 100644
--- a/src/stralloc.c
+++ b/src/stralloc.c
@@ -15,7 +15,7 @@
 
 #include <ctype.h>
 
-RCSID("$Id: stralloc.c,v 1.50 1998/11/22 11:03:18 hubbe Exp $");
+RCSID("$Id: stralloc.c,v 1.51 1998/12/06 22:54:15 hubbe Exp $");
 
 #define BEGIN_HASH_SIZE 997
 #define MAX_AVG_LINK_LENGTH 3
@@ -606,6 +606,11 @@ void unlink_pike_string(struct pike_string *s)
   num_strings--;
 }
 
+void do_free_string(struct pike_string *s)
+{
+  free_string(s);
+}
+
 void really_free_string(struct pike_string *s)
 {
 #ifdef PIKE_DEBUG
diff --git a/src/stralloc.h b/src/stralloc.h
index 3993f9401f1071c7320f664c035184cea4c434ce..b318f83fc846d0e16b38c287c99125051d33ec7d 100644
--- a/src/stralloc.h
+++ b/src/stralloc.h
@@ -5,7 +5,7 @@
 \*/
 
 /*
- * $Id: stralloc.h,v 1.26 1998/11/22 11:03:19 hubbe Exp $
+ * $Id: stralloc.h,v 1.27 1998/12/06 22:54:16 hubbe Exp $
  */
 #ifndef STRALLOC_H
 #define STRALLOC_H
@@ -151,7 +151,7 @@ INLINE INT32 PIKE_CONCAT4(compare_,FROM,_to_,TO)(const PIKE_CONCAT(p_wchar,TO) *
 /* Prototypes begin here */
 INLINE unsigned INT32 index_shared_string(struct pike_string *s, int pos);
 INLINE void low_set_index(struct pike_string *s, int pos, int value);
-INLINE struct pike_string *debug_check_size_shift(struct pike_string *a,int shift);
+struct INLINE pike_string *debug_check_size_shift(struct pike_string *a,int shift);
 CONVERT(0,1)
 CONVERT(0,2)
 CONVERT(1,0)
@@ -178,6 +178,7 @@ struct pike_string *debug_make_shared_string(const char *str);
 struct pike_string *debug_make_shared_string1(const p_wchar1 *str);
 struct pike_string *debug_make_shared_string2(const p_wchar2 *str);
 void unlink_pike_string(struct pike_string *s);
+void do_free_string(struct pike_string *s);
 void really_free_string(struct pike_string *s);
 void debug_free_string(struct pike_string *s);
 struct pike_string *add_string_status(int verbose);