Index: /trunk/source/compiler/nx-basic.lisp
===================================================================
--- /trunk/source/compiler/nx-basic.lisp	(revision 15012)
+++ /trunk/source/compiler/nx-basic.lisp	(revision 15013)
@@ -593,8 +593,11 @@
                                      (compiler-warning-source-note w1))))
                     (let ((nrefs (compiler-warning-nrefs w1)))
-                      (setf (compiler-warning-nrefs w1)
-                            (cons (compiler-warning-source-note w)
-                                  (or nrefs
-                                      (list (compiler-warning-source-note w1)))))
+                      (when (null nrefs)
+                        (let ((s1 (compiler-warning-source-note w1)))
+                          (when s1
+                            (setq nrefs (list s1)))))
+                      (let ((s (compiler-warning-source-note w)))
+                        (when s (push s nrefs)))
+                      (setf (compiler-warning-nrefs w1) nrefs)
                       (return nil))))))
           (push w warnings))))
Index: /trunk/source/lib/nfcomp.lisp
===================================================================
--- /trunk/source/lib/nfcomp.lisp	(revision 15012)
+++ /trunk/source/lib/nfcomp.lisp	(revision 15013)
@@ -1154,5 +1154,5 @@
         (harsh *fasl-non-style-warnings-signalled-p*))
     (dolist (w warnings)
-      (unless (compiler-warning-source-note w)
+      (when (and (not (compiler-warning-source-note w)) *fcomp-stream-position*)
         (setf (compiler-warning-source-note w)
               (make-source-note :source nil