diff --git a/contrib/defsystem/defsystem.lisp b/contrib/defsystem/defsystem.lisp
index a3abb715dbf83d1c57d2e830f6868c3dc5880a0f..15abfd5862dcfc3923232c22c9ebd7094cbee5ab 100644
--- a/contrib/defsystem/defsystem.lisp
+++ b/contrib/defsystem/defsystem.lisp
@@ -1050,7 +1050,7 @@
     "./"
     #+:lucid                (working-directory)
     #+(or :allegro ACLPC)   (current-directory)
-    #+:cmu                  (default-directory)
+    #+:cmu                  (ext:default-directory)
     #+:lispworks 
     ,(multiple-value-bind (major minor) (system::lispworks-version)
        (if (or (> major 3)