diff --git a/basis/globs/globs-tests.factor b/basis/globs/globs-tests.factor
index c048af9eb6..f2ad950cbc 100755
--- a/basis/globs/globs-tests.factor
+++ b/basis/globs/globs-tests.factor
@@ -81,12 +81,3 @@ IN: globs.tests
         ] cleanup-unique-directory
     ] with-temp-directory
 ] unit-test
-
-${ { "foo" "bar" } path-separator join }
-[ { "foo" "bar" "ba?" } path-separator join glob-parent-directory ] unit-test
-
-{ "foo" }
-[ { "foo" "b?r" "bas" } path-separator join glob-parent-directory ] unit-test
-
-{ "" }
-[ { "f*" "bar" "bas" } path-separator join glob-parent-directory ] unit-test
diff --git a/basis/globs/globs.factor b/basis/globs/globs.factor
index a22330ffa4..67fe73ae8b 100644
--- a/basis/globs/globs.factor
+++ b/basis/globs/globs.factor
@@ -145,7 +145,3 @@ PRIVATE>
 
 : glob-directory ( glob -- files )
     glob-path [ glob-directory% ] { } make ;
-
-: glob-parent-directory ( glob -- parent-directory )
-    path-separator split harvest dup [ glob-pattern? ] find drop head
-    path-separator join ;