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

: smash-pane ( pane -- gadget )
    [ pane-nl ] [ output>> smash-line ] bi ;

: pane-write ( seq pane -- )
    [ pane-nl ] [ current>> stream-write ]
    bi-curry interleave ;

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

: do-pane-stream ( pane-stream quot -- )

    [ [ empty-output? ] 2keep ] dip
    '[ _ _ swap <styled-label> _ swap add-gadget drop ] unless ;

M: pack pane-format
    gadget-format ;

M: paragraph pane-format
    over { presented image-style } [ swap key? ] with any? [
        gadget-format
    ] [
