     ] with-default-style nl nl ;
 
 : listener-thread ( listener -- )
-    dup listener-streams [
+    dup input>> dup output>> [
         [ com-browse ] help-hook set
         '[ [ _ input>> ] 2dip debugger-popup ] error-hook set
         error-summary? off

        size >>size
    ] change-font f >>line-height drop
    ostream output-stream set ;

listener-gadget default-font-size  { 50 58 } n*v set-tool-dim

: listener-streams ( listener -- input output )
    [ input>> ] [ output>> <pane-stream> H{ } clone <style-stream> ] bi ;

: init-input/output ( listener -- listener )
    <interactor>
