diff --git a/code/print.lisp b/code/print.lisp
index fecbfd090596761aab9bf63eeb2691e312fc6d33..ac33b3ec2bf7ca94ee8a1c4db88da397cf5f9c2b 100644
--- a/code/print.lisp
+++ b/code/print.lisp
@@ -1256,6 +1256,6 @@
   (if (compiled-function-p object)
       (output-function-object object stream)
       (let ((type (%primitive get-type object)))
-	(write-string "Pointer into Hell, level ")
+	(write-string "Pointer into Hell, level " stream)
 	(sub-output-integer type stream)))
   (finish-random object stream))