Index: /trunk/source/level-1/l1-reader.lisp
===================================================================
--- /trunk/source/level-1/l1-reader.lisp	(revision 14688)
+++ /trunk/source/level-1/l1-reader.lisp	(revision 14689)
@@ -3054,5 +3054,5 @@
         (setq text (concatenate 'string (subseq text 0 120) "..."))))
     (if file
-      (format stream "*~s:~s-~s ~s" file
+      (format stream "~s:~s-~s ~s" file
 	      (source-note-start-pos sn) (source-note-end-pos sn)
 	      text)