--- post-sysdef-install.lisp    2006-05-16 22:53:46.000000000 +0100
+++ post-sysdef-install_corrected.lisp  2006-05-19 10:47:28.000000000 +0100
@@ -91,7 +91,7 @@
     (let* ((stat (excl.osi:stat (namestring directory)))
           (mode (excl.osi:stat-mode stat))
           (uid  (excl.osi:stat-uid stat)))
+      (values uid mode uid))))
-      (values uid mode my-uid))))

 #+sbcl
 (defmacro with-secure-umask (&body forms)
@@ -119,7 +119,7 @@
   (let ((old-umask (gensym)))
     `(let ((,old-umask (excl.osi:umask #o077)))
       (unwind-protect ,@forms
+       (excl.osi:umask ,old-umask)))))
-       (excl.osi:umask old-umask)))))

 #+(or clisp sbcl cmu allegro)
 (defun check-spooldir-security (target)