diff --git a/basis/tools/completion/completion.factor b/basis/tools/completion/completion.factor
index 5b7576fdb8..7a0a0a6e7a 100644
--- a/basis/tools/completion/completion.factor
+++ b/basis/tools/completion/completion.factor
@@ -107,6 +107,9 @@ PRIVATE>
 : colors-matching ( str -- seq )
     named-colors dup zip completions ;
 
+: strings-matching ( str seq -- seq' )
+    dup zip completions keys ;
+
 <PRIVATE
 
 : directory-paths ( directory -- alist )