diff --git a/contrib/defsystem/defsystem.lisp b/contrib/defsystem/defsystem.lisp
index 991b778e0b16296fb8f21a32292003927f51162e..74b9d9137dbf03f1c98a9d282200982631dbcd72 100644
--- a/contrib/defsystem/defsystem.lisp
+++ b/contrib/defsystem/defsystem.lisp
@@ -1049,7 +1049,7 @@
   `(;; Current directory
     "./"
     #+:lucid                (working-directory)
-    #+(or :allegro ACLPC)   (current-directory)
+    #+(or :allegro ACLPC)   (excl:current-directory)
     #+:cmu                  (ext:default-directory)
     #+:lispworks 
     ,(multiple-value-bind (major minor) (system::lispworks-version)