Index: level-1/l1-pathnames.lisp
===================================================================
--- level-1/l1-pathnames.lisp	(revision 11951)
+++ level-1/l1-pathnames.lisp	(working copy)
@@ -624,7 +624,7 @@
   (let* ((native
           (ignore-errors
             (truename
-             (native-to-directory-pathname (or #+ccl-0711 (getenv "HOME")
+             (native-to-directory-pathname (or (getenv "HOME")
                                                (get-user-home-dir (getuid))))))))
     (if (and native (eq :absolute (car (pathname-directory native))))
       native