diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp
index df17dbdd6..ee986e14b 100644
--- a/src/cmp/cmpmain.lsp
+++ b/src/cmp/cmpmain.lsp
@@ -138,7 +138,7 @@
   #+(or mingw32)
   (safe-system
    (format nil
-	   "gcc -shared -o ~A -Wl,--export-all-symbols -L~S ~{~S ~} ~@[~S~] ~A"
+	   "gcc -shared -o ~S -Wl,--export-all-symbols -L~S ~{~S ~} ~@[~S~] ~A"
 	   (si::coerce-to-filename o-pathname)
 	   (fix-for-mingw (ecl-library-directory))
 	   options