diff -up common-lisp-controller/post-sysdef-install.lisp.sbcl common-lisp-controller/post-sysdef-install.lisp
--- common-lisp-controller/post-sysdef-install.lisp.sbcl	2009-09-03 00:16:13.000000000 -0500
+++ common-lisp-controller/post-sysdef-install.lisp	2010-02-18 12:25:59.638835910 -0600
@@ -61,7 +61,9 @@
 #+sbcl
 (defun get-owner-and-mode (directory)
   (when (eq :directory
-	    (sb-impl::native-file-kind (namestring directory)))
+	    (#.(or (find-symbol "NATIVE-FILE-KIND" :sb-impl)
+	    (find-symbol "UNIX-FILE-KIND" :sb-unix))
+	        (namestring directory)))
     ;; check who owns it
     (multiple-value-bind (res dev ino mode nlink uid gid rdev size atime mtime)
 	(sb-unix:unix-stat (namestring directory))