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))