diff --git a/Objects/stringobject.c b/Objects/stringobject.c
index 16884d3..ca7bac6 100644
--- a/Objects/stringobject.c
+++ b/Objects/stringobject.c
@@ -60,6 +60,13 @@
 	return (object *) op;
 }
 
+void
+stringdealloc(op)
+	object *op;
+{
+	DEL(op);
+}
+
 unsigned int
 getstringsize(op)
 	register object *op;
@@ -305,7 +312,7 @@
 	"string",
 	sizeof(stringobject),
 	sizeof(char),
-	free,		/*tp_dealloc*/
+	stringdealloc,	/*tp_dealloc*/
 	stringprint,	/*tp_print*/
 	0,		/*tp_getattr*/
 	0,		/*tp_setattr*/