Index: /branches/working-0711/ccl/level-1/l1-files.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-files.lisp	(revision 8432)
+++ /branches/working-0711/ccl/level-1/l1-files.lisp	(revision 8433)
@@ -1222,8 +1222,5 @@
 (defun load-from-stream (stream print &aux (eof-val (list ())) val)
   (with-compilation-unit (:override nil) ; try this for included files
-    (let ((env (new-lexical-environment (new-definition-environment 'eval)))
-          ;; disable *compiler-record-source* in case we're loading a file while comiling another
-          ;; file.
-          (*compiler-record-source* nil))
+    (let ((env (new-lexical-environment (new-definition-environment 'eval))))
       (%rplacd (defenv.type (lexenv.parent-env env)) *outstanding-deferred-warnings*)
       (while (neq eof-val (setq val (read stream nil eof-val)))