diff --git a/extra/globs/globs.factor b/extra/globs/globs.factor
index 7204693016..4fa56bcf93 100755
--- a/extra/globs/globs.factor
+++ b/extra/globs/globs.factor
@@ -35,4 +35,4 @@ PRIVATE>
 : <glob> 'glob' just parse-1 just ;
 
 : glob-matches? ( input glob -- ? )
-    >r >lower r> <glob> parse nil? not ;
+    [ >lower ] [ <glob> ] bi* parse nil? not ;