--- stack/symbols.c	2003/08/04 14:32:27	1.3
+++ stack/symbols.c	2003/08/05 09:09:51	1.4
@@ -1438,3 +1438,28 @@
 
   toss(env);
 }
+
+extern void mangle(environment *env)
+{
+  char *new_string;
+
+  if(env->head->type==empty) {
+    printerr("Too Few Arguments");
+    env->err= 1;
+    return;
+  }
+
+  if(CAR(env->head)->type!=string) {
+    printerr("Bad Argument Type");
+    env->err= 2;
+    return;
+  }
+
+  new_string= mangle_str(CAR(env->head)->content.string);
+
+  toss(env);
+  if(env->err) return;
+
+  push_cstring(env, new_string);
+}
+