diff --git a/code/print.lisp b/code/print.lisp
index 6dd29226dc2a3bb72db4898f1e470d46733150f6..379651aac85a2f82ed5e919b8ffdac99229a1aac 100644
--- a/code/print.lisp
+++ b/code/print.lisp
@@ -1222,10 +1222,11 @@
     (#.%function-closure-subtype
      (if (eval:interpreted-function-p subr)
 	 (multiple-value-bind
-	     (ig1 ig2 name)
+	     (def ignore name)
 	     (eval:interpreted-function-lambda-expression subr)
-	   (declare (ignore ig1 ig2))
-	   (format t "Interpreted Function ~S" name))
+	   (declare (ignore ignore))
+	   (let ((*print-level* 3))
+	     (format t "Interpreted Function ~S" (or name def))))
 	 (format t "Closure ~S"
 		 (%primitive header-ref name %function-name-slot))))
     (#.%function-closure-entry-subtype