diff --git a/Objects/intobject.c b/Objects/intobject.c
index 6b983f1..4c56bda 100644
--- a/Objects/intobject.c
+++ b/Objects/intobject.c
@@ -114,11 +114,12 @@
 
 /* Methods */
 
+/* ARGSUSED */
 static int
 int_print(v, fp, flags)
 	intobject *v;
 	FILE *fp;
-	int flags;
+	int flags; /* Not used but required by interface */
 {
 	fprintf(fp, "%ld", v->ob_ival);
 	return 0;
@@ -239,7 +240,7 @@
 	long d, m;
 	if (i_divmod(x, y, &d, &m) < 0)
 		return NULL;
-	newintobject(m);
+	return newintobject(m);
 }
 
 static object *
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*/