thodg/cl-unix-cybernetics

diff --git a/unix/linux.lisp b/unix/linux.lisp
index deacfbb..39e8f08 100644
--- a/unix/linux.lisp
+++ b/unix/linux.lisp
@@ -35,7 +35,7 @@
         (ensure :absent))
     (multiple-value-bind (mode links owner group size mtime)
         (with-ls<1>-l--full-time (mode links owner group size mtime name)
-            (ls "-ld --full-time" id)
+            (ls "-ld --full-time" (sh-quote id))
           (when (and name (string= id (the string name)))
             (setq mode (mode (mode-permissions mode))
                   owner (resource 'user owner)
diff --git a/unix/probes.lisp b/unix/probes.lisp
index 5bb8e06..9af299e 100644
--- a/unix/probes.lisp
+++ b/unix/probes.lisp
@@ -82,7 +82,7 @@
         (ensure :absent))
     (multiple-value-bind #1=(mode links owner group size mtime)
         (with-ls<1>-lT #.(cons 'name '#1#)
-            (ls "-ldT" id)
+            (ls "-ldT" (sh-quote id))
           (when (string= id name)
             (setq mode (mode (mode-permissions mode))
                   owner (resource 'user owner)
@@ -96,7 +96,7 @@
         (ensure :absent))
     (multiple-value-bind #1=(dev ino mode links uid gid rdev size
                                  atime mtime ctime blksize blocks flags)
-        (with-stat<1>-r (name . #1#) (stat "-r" id)
+        (with-stat<1>-r (name . #1#) (stat "-r" (sh-quote id))
           (when (and name (string= id (the string name)))
             (setq mode (mode (mode-permissions mode))
                   ensure :present)