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)