--- stack/stack.c	2002/02/07 05:24:19	1.49
+++ stack/stack.c	2002/02/07 23:53:14	1.51
@@ -198,12 +198,12 @@
 }
 
 /* Mangle a symbol name to a valid C identifier name */
-char *mangle_(const char *old_string){
+char *mangle_str(const char *old_string){
   char validchars[]
     ="0123456789abcdef";
   char *new_string, *current;
 
-  new_string=malloc(strlen(old_string)+4);
+  new_string=malloc((strlen(old_string)*2)+4);
   strcpy(new_string, "sx_");	/* Stack eXternal */
   current=new_string+3;
   while(old_string[0] != '\0'){
@@ -233,7 +233,7 @@
     return;
   }
 
-  new_string= mangle_((const char *)(env->head->item->content.ptr));
+  new_string= mangle_str((const char *)(env->head->item->content.ptr));
 
   toss(env);
   if(env->err) return;
@@ -296,7 +296,7 @@
     funcptr= dlsym(handle, in_string); /* Get function pointer */
     dlerr=dlerror();
     if(dlerr != NULL) {		/* If no function was found */
-      mangled=mangle_(in_string);
+      mangled=mangle_str(in_string);
       funcptr= dlsym(handle, mangled); /* try mangling it */
       free(mangled);
       dlerr=dlerror();