--- defsystem-new.lisp	Sun Jan 11 07:51:54 2004
+++ defsystem.lisp	Sun Jan 11 07:55:36 2004
@@ -1819,7 +1819,8 @@
 			(pop abs-directory)))
 	 ;; Stig (July 2001):
 	 ;; Somehow CLISP dies on the next line, but NIL is ok.
-	 (abs-name (ignore-errors (file-namestring abs-dir))) ; was pathname-name
+         #+:gcl(abs-name (file-namestring abs-dir))
+	 #-:gcl(abs-name (ignore-errors (file-namestring abs-dir))) ; was pathname-name
 	 (rel-directory (directory-to-list (pathname-directory rel-dir)))
 	 (rel-keyword (when (keywordp (car rel-directory))
 			(pop rel-directory)))