diff --git a/src/dynamic_buffer.c b/src/dynamic_buffer.c
index b4a5ea1642ce071eaf00d14f5c40e99d99a9cd07..18170043325b8434e7988785df778599a03ee2c9 100644
--- a/src/dynamic_buffer.c
+++ b/src/dynamic_buffer.c
@@ -10,7 +10,7 @@
 #include "pike_error.h"
 #include "pike_memory.h"
 
-RCSID("$Id: dynamic_buffer.c,v 1.16 2002/08/15 14:49:20 marcus Exp $");
+RCSID("$Id: dynamic_buffer.c,v 1.17 2002/10/06 12:58:26 grubba Exp $");
 
 static dynamic_buffer buff;
 
@@ -130,6 +130,7 @@ PMOD_EXPORT char *make_buf_space(INT32 space) { return low_make_buf_space(space,
 PMOD_EXPORT void my_putchar(char b) { low_my_putchar(b,&buff); }
 PMOD_EXPORT void my_binary_strcat(const char *b, ptrdiff_t l) { low_my_binary_strcat(b,l,&buff); }
 PMOD_EXPORT void my_strcat(const char *b) { my_binary_strcat(b,strlen(b)); }
+PMOD_EXPORT void initialize_global_buf(void) { initialize_buf(&buff); }
 PMOD_EXPORT void init_buf(void) { low_reinit_buf(&buff); }
 PMOD_EXPORT void init_buf_with_string(string s) { low_init_buf_with_string(s,&buff); }
 PMOD_EXPORT char *debug_return_buf(void)
diff --git a/src/dynamic_buffer.h b/src/dynamic_buffer.h
index d2f7857032722a179d10bd73a8f9da023a1c6a37..279526cc8bb359a2979564d94543f16457f640f8 100644
--- a/src/dynamic_buffer.h
+++ b/src/dynamic_buffer.h
@@ -5,7 +5,7 @@
 \*/
 
 /*
- * $Id: dynamic_buffer.h,v 1.13 2002/05/31 22:41:23 nilsson Exp $
+ * $Id: dynamic_buffer.h,v 1.14 2002/10/06 12:58:26 grubba Exp $
  */
 #ifndef DYNAMIC_BUFFER_H
 #define DYNAMIC_BUFFER_H
@@ -44,6 +44,7 @@ PMOD_EXPORT char *make_buf_space(INT32 space);
 PMOD_EXPORT void my_putchar(char b);
 PMOD_EXPORT void my_binary_strcat(const char *b, ptrdiff_t l);
 PMOD_EXPORT void my_strcat(const char *b);
+PMOD_EXPORT void initialize_global_buf(void);
 PMOD_EXPORT void init_buf(void);
 PMOD_EXPORT void init_buf_with_string(string s);
 PMOD_EXPORT char *debug_return_buf(void);
diff --git a/src/stralloc.c b/src/stralloc.c
index 4d3eece38e5fd5eb2faf5cae52f70a029132f09b..718c9add1c7eeedea2fa7fd60d57859e365ae851 100644
--- a/src/stralloc.c
+++ b/src/stralloc.c
@@ -27,7 +27,7 @@
 #define HUGE HUGE_VAL
 #endif /*!HUGE*/
 
-RCSID("$Id: stralloc.c,v 1.144 2002/09/11 22:42:13 neotron Exp $");
+RCSID("$Id: stralloc.c,v 1.145 2002/10/06 12:58:26 grubba Exp $");
 
 /* #define STRALLOC_USE_PRIMES */
 
@@ -1802,6 +1802,8 @@ void init_shared_string_table(void)
   }
 #endif
   empty_pike_string = make_shared_string("");
+
+  initialize_global_buf();
 }
 
 #ifdef DEBUG_MALLOC