diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp
index b19c3a8d3..87eaaa1b9 100755
--- a/src/cmp/cmpmain.lsp
+++ b/src/cmp/cmpmain.lsp
@@ -354,7 +354,12 @@ filesystem or in the database of ASDF modules."
              (find-archive (system)
                  (or (existing-system-output system :library)
                      (existing-system-output system :shared-library)))
-             (fallback () (format nil #-msvc "-l~A" #+msvc "~A.lib" (string-downcase library))))
+             (fallback ()
+		 (translate-logical-pathname
+		  (merge-pathnames
+		   "SYS:"
+		   (compile-file-pathname (string-downcase library)
+					  :type :library)))))
       (or
        #-ecl-min
        (and asdf
@@ -517,6 +522,8 @@ List of offending files:~{~%~T~S~}"
     (cmp-delete-file o-name)
     output-name))
 
+(trace builder)
+
 (defun build-fasl (&rest args)
   (apply #'builder :fasl args))