     [ pane-nl ] do-pane-stream ;
 
 M: pane-stream stream-write1
-    [ current>> pane-write1 ] do-pane-stream ;
+    [ pane-write1 ] do-pane-stream ;
 
 : split-pane ( str quot: ( str -- ) -- )
     '[

} set-gestures

GENERIC: content-gadget ( object -- gadget/f )
M: object content-gadget drop f ;

        add-incremental
    ] [ next-line ] bi ;

GENERIC: smash-pane ( pane -- gadget )

M: pane smash-pane
    [ pane-nl ] [ output>> smash-line ] bi ;

GENERIC: pane-line ( str style gadget -- )

: pane-format ( lines style pane -- )
    [ nip pane-nl ] [ current>> pane-line ]
    bi-curry bi-curry interleave ;

: pane-write ( lines pane -- )
    H{ } swap pane-format ;

: pane-write1 ( char pane -- )
    [ 1string H{ } ] dip current>> pane-line ;

: do-pane-stream ( pane-stream quot -- )
    [ pane>> ] dip keep scroll-pane ; inline
