diff --git a/Objects/funcobject.c b/Objects/funcobject.c
index 4dc0b90..cc4900a 100644
--- a/Objects/funcobject.c
+++ b/Objects/funcobject.c
@@ -100,9 +100,12 @@
 	funcobject *op;
 {
 	char buf[140];
-	sprintf(buf, "<function %.100s at %lx>",
-		getstringvalue(op->func_name),
-		(long)op);
+	if (op->func_name == None)
+		sprintf(buf, "<anonymous function at %lx>", (long)op);
+	else
+		sprintf(buf, "<function %.100s at %lx>",
+			getstringvalue(op->func_name),
+			(long)op);
 	return newstringobject(buf);
 }