diff --git a/extra/tools/completion/completion.factor b/extra/tools/completion/completion.factor
old mode 100644
new mode 100755
index bb15a3fa87..539b348706
--- a/extra/tools/completion/completion.factor
+++ b/extra/tools/completion/completion.factor
@@ -60,13 +60,14 @@ vectors words assocs combinators sorting ;
     dupd fuzzy score max ;
 
 : completion ( short candidate -- result )
-    [ second swap complete ] keep first 2array ;
+    [ second >lower swap complete ] keep first 2array ;
 
 : completions ( short candidates -- seq )
     over empty? [
         nip [ first ] map
     ] [
-        >r >lower r> [ completion ] with map rank-completions
+        >r >lower r> [ completion ] with map
+        rank-completions
     ] if ;
 
 : string-completions ( short strs -- seq )