Index: /trunk/source/level-1/l1-readloop-lds.lisp
===================================================================
--- /trunk/source/level-1/l1-readloop-lds.lisp	(revision 13743)
+++ /trunk/source/level-1/l1-readloop-lds.lisp	(revision 13744)
@@ -576,5 +576,7 @@
       (format *error-output* "~&~A"
               (get-output-stream-string s)))
-    (format *error-output* ", in process ~a(~d).~%" (process-name *current-process*) (process-serial-number *current-process*))
+    (if *current-process*
+      (format *error-output* ", in process ~a(~d).~%" (process-name *current-process*) (process-serial-number *current-process*))
+      (format *error-output* ", in an uninitialized process~%"))
   (force-output *error-output*)))
 					; returns NIL