diff --git a/library/syntax/parser.factor b/library/syntax/parser.factor
index f643d197fe..05df542955 100644
--- a/library/syntax/parser.factor
+++ b/library/syntax/parser.factor
@@ -101,7 +101,7 @@ TUPLE: bad-escape ;
     [ (parse-effect) column get ] { } make swap column set
     { "--" } split1 <effect> ;
 
-: parse-base ( base -- ) scan swap base> parsed ;
+: parse-base ( parsed base -- parsed ) scan swap base> parsed ;
 
 global [
     {
diff --git a/library/tools/word-tools.factor b/library/tools/word-tools.factor
index bb8be6490e..9d50a0dd1e 100644
--- a/library/tools/word-tools.factor
+++ b/library/tools/word-tools.factor
@@ -77,7 +77,8 @@ math namespaces prettyprint sequences strings styles ;
         2drop 0
     ] if ;
 
-: completion ( str word -- { score indices word } )
+: completion ( str word -- triple )
+    #! triple is { score indices word }
     [
         word-name [ swap fuzzy ] keep swap [ score ] keep
     ] keep