Fix SLASHIT bug

library/UNIXUTILS

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "22-Oct-2025 13:05:51" {WMEDLEY}<library>UNIXUTILS.;33
 17919  
+
(FILECREATED " 4-Nov-2025 10:11:10" {WMEDLEY}<library>UNIXUTILS.;34
 18037  
 
       :EDIT-BY rmk
 
       :CHANGES-TO (FNS SLASHIT)
 
-      :PREVIOUS-DATE "27-Sep-2025 16:25:07" {WMEDLEY}<library>UNIXUTILS.;32)
+      :PREVIOUS-DATE "22-Oct-2025 13:05:51" {WMEDLEY}<library>UNIXUTILS.;33)
 
 
 (PRETTYCOMPRINT UNIXUTILSCOMS)
@@ -240,7 +240,8 @@
                                                  0))) DO
 (BLOCK) FINALLY
 (RETURN CODE])
 
 (SLASHIT

-  [LAMBDA (X LCASEDIRS NOHOST)
                               (* ; "Edited 22-Oct-2025 13:05 by rmk")


+  [LAMBDA (X LCASEDIRS NOHOST)
                               (* ; "Edited  4-Nov-2025 10:10 by rmk")


+                                                             (* ; "Edited 22-Oct-2025 13:05 by rmk")


                                                              (* ; "Edited 25-Sep-2025 09:57 by rmk")


                                                              (* ; "Edited 23-Sep-2023 15:27 by rmk")

 
@@ -259,7 +260,7 @@
                                                       (CONS (CHARCODE /)))
                                                  (/ (SETQ LASTDIRPOS I)
                                                     (CONS C))
-                                                 (SPACE (CHARCODE (\ SPACE)))
+                                                 (SPACE (APPEND (CHARCODE (\ SPACE))))
                                                  (CONS C]
          (CL:WHEN (AND LCASEDIRS LASTDIRPOS)
              (SETQ LASTDIRPOS (ADD1 (IDIFFERENCE LASTDIRPOS DIRPOS)))
@@ -326,7 +327,7 @@
 
 (PUTPROPS UNIXUTILS
 FILETYPE
 CL:COMPILE-FILE)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1110 1483 (ShellCommand 1110 . 1483)) (1485 1882 (ShellWhich 1485 . 1882)) (1972 17841 
+  (FILEMAP (NIL (1110 1483 (ShellCommand 1110 . 1483)) (1485 1882 (ShellWhich 1485 . 1882)) (1972 17959 
 (ShellBrowser 1982 . 3754) (ShellBrowse 3756 . 4441) (ShellOpener 4443 . 6131) (ShellOpen 6133 . 11612
-) (PROCESS-COMMAND 11614 . 12227) (SLASHIT 12229 . 14566) (UNIX-FILE-NAME 14568 . 17839)))))
+) (PROCESS-COMMAND 11614 . 12227) (SLASHIT 12229 . 14684) (UNIX-FILE-NAME 14686 . 17957)))))
 STOP