diff --git a/sh/anguish.scm b/sh/anguish.scm
index 0d5789c..723c0d0 100644
--- a/sh/anguish.scm
+++ b/sh/anguish.scm
@@ -132,7 +132,7 @@ copyleft.
                   (let ((empty? (string=? "" path)))
                     (map (lambda (extension) (if empty? extension (string-join (list path "/" extension) "")))
                          (filter (cute glob-match pattern <>)
-                                 (map car (cddr (file-system-tree (if empty? (getcwd) path))))))))
+                                 (filter (negate (cute string-any #\. <> 0 1)) (scandir (if empty? (getcwd) path)))))))
                 paths))
 
   (if (glob? pattern)
diff --git a/test.sh b/test-anguish.sh
similarity index 100%
rename from test.sh
rename to test-anguish.sh