Index: user/docl/tabcompletion.retro
===================================================================
--- user/docl/tabcompletion.retro
+++ user/docl/tabcompletion.retro
@@ -34,19 +34,19 @@
       tib getLength 0 swap getSubset
       tib compare [ dup addCompletion ] ifTrue
     again ;
   : showCompletions
     cr space space completions numCompletions
-    [ getCompletion d->name type space ] loop ;
+    [ getCompletion d->name print space ] loop ;
   : finishCompletion
     numCompletions 0; 1 =
     [ getCompletion d->name tib over getLength 1+ copy endOfBuffer ]
     [ showCompletions ] if ;
   variable delimiter
   : testDelimiter @delimiter = dup [ nip ] ifTrue ;
   : testTrigger 27 = dup [ nip ] ifTrue ;
-  : doTrigger findCompletions finishCompletion cr tib type drop ;
+  : doTrigger findCompletions finishCompletion cr tib print drop ;
   : eatLeading ( - ) repeat key dup emit dup @delimiter !if addToBuffer ;then drop again ;
   : newaccept ( "- )
     !delimiter emptyBuffer eatLeading
     repeat
       key dup testDelimiter not 0; drop