diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp
index d4a28a299..0be74cc48 100644
--- a/src/cmp/cmpmain.lsp
+++ b/src/cmp/cmpmain.lsp
@@ -60,7 +60,7 @@
 (defmacro fix-for-mingw (directory-namestring)
   directory-namestring)
 
-#+minwg32
+#+mingw32
 (defun fix-for-mingw (directory-namestring)
   (let ((x (string-right-trim '(#\\ #\/) directory-namestring)))
     (if (zerop (length x)) "/" x)))