Index: /branches/working-0711/ccl/level-1/l1-reader.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-reader.lisp	(revision 12964)
+++ /branches/working-0711/ccl/level-1/l1-reader.lisp	(revision 12965)
@@ -3084,4 +3084,11 @@
 	(null source)))))
 
+(defun source-note-toplevel-note (source-note)
+  (when source-note
+    (loop for source = (source-note-source source-note)
+          while (source-note-p source)
+          do (setq source-note source))
+    source-note))
+
 (defvar *recording-source-streams* ())