 
 : prompt ( -- str )
     manifest get current-vocab>> [ name>> "IN: " prepend ] [ "" ] if*
-    auto-use? get [ " auto-use" append ] when ;
+    auto-use? get [ dup empty? "" " " ? "auto-use" 3append ] when ;
 
 SYMBOL: prompt-style
 H{

} prompt-style set-global

M: object prompt.
    nip prompt-style get-global format bl flush ;

SYMBOL: handle-ctrl-break


    visible-vars.
    datastack datastack.
    input-stream get prompt prompt.
    flush
    [
        read-quot [
            '[ [ datastack _ with-datastack ] with-ctrl-break ]
