Index: /trunk/source/lib/dumplisp.lisp
===================================================================
--- /trunk/source/lib/dumplisp.lisp	(revision 13108)
+++ /trunk/source/lib/dumplisp.lisp	(revision 13109)
@@ -57,5 +57,6 @@
                     ;; startup code.
                     (if (and (eql (typecode o) target::subtag-instance)
-                             (typep o 'buffered-stream-mixin))
+                             (typep o 'buffered-stream-mixin)
+                             (slot-boundp o 'ioblock))
                       (let ((s (slot-value o 'ioblock)))
                         (when (and (typep s 'ioblock)