Index: /trunk/ccl/level-1/l1-readloop.lisp
===================================================================
--- /trunk/ccl/level-1/l1-readloop.lisp	(revision 5993)
+++ /trunk/ccl/level-1/l1-readloop.lisp	(revision 5994)
@@ -151,4 +151,6 @@
             (timed-wait-on-semaphore semaphore 0.10)))))
     (shutdown-lisp-threads)
+    ;; Don't need to grab *open-file-streams-lock* here, since
+    ;; we're single-threaded at this point.
     (while *open-file-streams*
       (let* ((ioblock (stream-ioblock (car *open-file-streams*) nil)))