thodg/cl-unix-cybernetics

diff --git a/unix/probes.lisp b/unix/probes.lisp
index bf30d72..b749b1c 100644
--- a/unix/probes.lisp
+++ b/unix/probes.lisp
@@ -78,7 +78,7 @@
         (ensure :absent))
     (multiple-value-bind #1=(mode links owner group size mtime)
         (with-ls<1>-lT #.(cons 'name '#1#)
-            (ls "-ldT" (sh-quote id))
+            (ls "-ldT" id)
           (when (string= id name)
             (setq mode (mode (mode-permissions mode))
                   owner (resource 'user owner)