Index: /branches/working-0711/ccl/level-1/l1-reader.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-reader.lisp	(revision 8439)
+++ /branches/working-0711/ccl/level-1/l1-reader.lisp	(revision 8440)
@@ -2507,15 +2507,15 @@
                                  (record-source-location-on-stream-p stream))
                         ;; mb 2008-02-07: sometime the nested-source-notes end with t, don't know
-                        ;; why. don't really care here.
-                        
-                        (let ((last (last nested-source-notes)))
-                          (when (atom (cdr last))
-                            ;; dotted list.
-                            (setf (cdr last) (list (cdr last)))))
+                        ;; why. don't really care here.                        
                         (make-source-note :stream stream
                                           :start (1- start)
                                           :end end
                                           :form (car vals)
-                                          :children nested-source-notes)))))))))
+                                          :children (if nested-source-notes
+                                                      (let ((last (last nested-source-notes)))
+                                                        (when (atom (cdr last))
+                                                          ;; dotted list.
+                                                          (setf (cdr last) (list (cdr last)))))
+                                                      '()))))))))))
 
 #|