diff --git a/compiler/ir1util.lisp b/compiler/ir1util.lisp
index 7eb27ea12d9ed471ba706df677cc99a7b64f18a1..1acd872291ba8a8bdd9e8e3921b265245ef953b4 100644
--- a/compiler/ir1util.lisp
+++ b/compiler/ir1util.lisp
@@ -1200,7 +1200,7 @@
   (let ((*print-level* *error-print-level*)
 	(*print-length* *error-print-length*)
 	(*print-circle* t))
-    (format nil "  ~S~%")))
+    (format nil "  ~S~%" form)))
 
 
 ;;; FIND-ERROR-CONTEXT  --  Interface