diff --git a/src/svalue.c b/src/svalue.c
index 076c73e9f8cfec53ca815d6f21c34a12ae7ebfa2..d06212cb0433bbad968d4aef865383180207ba82 100644
--- a/src/svalue.c
+++ b/src/svalue.c
@@ -21,7 +21,7 @@
 #include <ctype.h>
 #include "queue.h"
 
-RCSID("$Id: svalue.c,v 1.36 1998/06/24 04:55:28 hubbe Exp $");
+RCSID("$Id: svalue.c,v 1.37 1998/09/18 21:31:41 hubbe Exp $");
 
 struct svalue dest_ob_zero = { T_INT, 0 };
 
@@ -128,6 +128,11 @@ void really_free_svalue(struct svalue *s)
   }
 }
 
+void do_free_svalue(struct svalue *s)
+{
+  free_svalue(s);
+}
+
 /* Free a bunch of normal svalues.
  * We put this routine here so the compiler can optimize the call
  * inside the loop if it wants to
diff --git a/src/svalue.h b/src/svalue.h
index 54dafd8f1653136cf438225afc254825d2a2ab24..65225ad12b7c627bf6ea63a1e27530a03cc94f52 100644
--- a/src/svalue.h
+++ b/src/svalue.h
@@ -5,7 +5,7 @@
 \*/
 
 /*
- * $Id: svalue.h,v 1.17 1998/04/24 00:10:45 hubbe Exp $
+ * $Id: svalue.h,v 1.18 1998/09/18 21:31:42 hubbe Exp $
  */
 #ifndef SVALUE_H
 #define SVALUE_H
@@ -214,6 +214,7 @@ extern struct svalue dest_ob_zero;
 /* Prototypes begin here */
 void really_free_short_svalue(union anything *s, TYPE_T type);
 void really_free_svalue(struct svalue *s);
+void do_free_svalue(struct svalue *s);
 void debug_free_svalues(struct svalue *s,INT32 num, INT32 type_hint LINE_ARGS);
 void assign_svalues_no_free(struct svalue *to,
 			    struct svalue *from,
@@ -230,8 +231,8 @@ void assign_to_short_svalue_no_free(union anything *u,
 				    TYPE_T type,
 				    struct svalue *s);
 void assign_from_short_svalue_no_free(struct svalue *s,
-					     union anything *u,
-					     TYPE_T type);
+				      union anything *u,
+				      TYPE_T type);
 void assign_short_svalue_no_free(union anything *to,
 				 union anything *from,
 				 TYPE_T type);
@@ -256,7 +257,7 @@ void copy_svalues_recursively_no_free(struct svalue *to,
 				      struct svalue *from,
 				      INT32 num,
 				      struct processing *p);
-void check_short_svalue(union anything *u,TYPE_T type);
+void check_short_svalue(union anything *u, TYPE_T type);
 void check_svalue(struct svalue *s);
 TYPE_FIELD gc_check_svalues(struct svalue *s, int num);
 void gc_xmark_svalues(struct svalue *s, int num);