diff --git a/basis/tools/completion/completion.factor b/basis/tools/completion/completion.factor
index 4a0e6f88cd..60ca1e7bea 100644
--- a/basis/tools/completion/completion.factor
+++ b/basis/tools/completion/completion.factor
@@ -121,7 +121,7 @@ PRIVATE>
 PRIVATE>
 
 : paths-matching ( str -- seq )
-    dup file-directory [ ?head drop trim-head-separators ] keep
+    dup last-path-separator [ 1 + cut ] [ drop "" ] if swap
     dup { [ exists? ] [ file-info directory? ] } 1&&
     [ directory-paths completions ] [ 2drop { } ] if ;