diff -ur cl-defsystem3-3.3i+cvs.2004.07.18.1.orig/defsystem.lisp cl-defsystem3-3.3i+cvs.2004.07.18.1/defsystem.lisp
--- cl-defsystem3-3.3i+cvs.2004.07.18.1.orig/defsystem.lisp	2004-07-18 21:57:32.000000000 -0500
+++ cl-defsystem3-3.3i+cvs.2004.07.18.1/defsystem.lisp	2005-02-10 01:13:05.086287209 -0600
@@ -2612,7 +2612,7 @@
 	   ;; string. So if case matters in the filename, use strings, not
 	   ;; symbols, wherever the system is named.
            (when (foreign-system-p system)
-             (warn "Foreing system ~S cannot be reloaded by MK:DEFSYSTEM.")
+             (warn "Foreing system ~S cannot be reloaded by MK:DEFSYSTEM." system-name)
              (return-from find-system nil))
 	   (let ((path (compute-system-path system-name definition-pname)))
 	     (when (and path
@@ -2634,7 +2634,7 @@
     (:load
      (or (unless *reload-systems-from-disk* (get-system system-name))
          (when (foreign-system-p (get-system system-name))
-           (warn "Foreign system ~S cannot be reloaded by MK:DEFSYSTEM.")
+           (warn "Foreign system ~S cannot be reloaded by MK:DEFSYSTEM." system-name)
            (return-from find-system nil))
 	 (or (find-system system-name :load-or-nil definition-pname)
 	     (error "Can't find system named ~s." system-name))))))
Only in cl-defsystem3-3.3i+cvs.2004.07.18.1: defsystem.lisp~