Index: /trunk/ccl/level-1/l1-init.lisp
===================================================================
--- /trunk/ccl/level-1/l1-init.lisp	(revision 5992)
+++ /trunk/ccl/level-1/l1-init.lisp	(revision 5993)
@@ -275,5 +275,6 @@
 (defparameter *top-listener* nil)
 
-    
+
+(defvar *open-file-streams-lock* (make-lock))
 (defvar *open-file-streams* nil)