diff --git a/auxbin/jpm b/auxbin/jpm
index b73e9053..ee191925 100755
--- a/auxbin/jpm
+++ b/auxbin/jpm
@@ -267,7 +267,7 @@
   "Remove a directory and all sub directories."
   [path]
   (try
-    (if (= (os/stat path :mode) :directory)
+    (if (= (os/lstat path :mode) :directory)
       (do
         (each subpath (os/dir path)
           (rm (string path sep subpath)))