diff --git a/basis/globs/globs-tests.factor b/basis/globs/globs-tests.factor
index d90c8dc3a9..0adc3b0290 100755
--- a/basis/globs/globs-tests.factor
+++ b/basis/globs/globs-tests.factor
@@ -58,6 +58,8 @@ tools.test ;
     ! { "a/b/c/d/e" "a/b/h/e" "a/e" "a/e/g/e" }
     { "a/e/f" "a/e/g" }
     { "a/b" "a/e" }
+    { "a" }
+    { "a/b" }
 } [
 
     [
@@ -85,5 +87,7 @@ tools.test ;
         ! "**/**/e" glob natural-sort
         "**/e/**" glob natural-sort
         "a/**" glob natural-sort
+        "a" glob natural-sort
+        "a/b" glob natural-sort
     ] with-test-directory
 ] unit-test
diff --git a/basis/globs/globs.factor b/basis/globs/globs.factor
index 3d9f7d857b..8ee3fa06c6 100644
--- a/basis/globs/globs.factor
+++ b/basis/globs/globs.factor
@@ -156,4 +156,6 @@ DEFER: glob%
 PRIVATE>
 
 : glob ( glob -- files )
-    glob-path [ glob% ] { } make ;
+    glob-path [
+        [ 1array f swap ] when-empty glob%
+    ] { } make ;