diff --git a/basis/ui/gadgets/panes/panes.factor b/basis/ui/gadgets/panes/panes.factor
index a159cce7a7..983d092c47 100644
--- a/basis/ui/gadgets/panes/panes.factor
+++ b/basis/ui/gadgets/panes/panes.factor
@@ -175,14 +175,14 @@ M: style-stream write-gadget
 : gadget. ( gadget -- )
     output-stream get print-gadget ;
 
-: pane-clear ( pane -- )
+: clear-pane ( pane -- )
     clear-selection
     [ output>> clear-incremental ]
     [ current>> clear-gadget ]
     bi ;
 
 : with-pane ( pane quot -- )
-    [ [ scroll>top ] [ pane-clear ] [ <pane-stream> ] tri ] dip
+    [ [ scroll>top ] [ clear-pane ] [ <pane-stream> ] tri ] dip
     with-output-stream* ; inline
 
 : make-pane ( quot -- gadget )
diff --git a/basis/ui/tools/listener/listener.factor b/basis/ui/tools/listener/listener.factor
index aa56bb4cdc..5ce038470b 100644
--- a/basis/ui/tools/listener/listener.factor
+++ b/basis/ui/tools/listener/listener.factor
@@ -310,7 +310,7 @@ M: listener-operation invoke-command ( target command -- )
     input>> interactor-eof ;
 
 : clear-output ( listener -- )
-    output>> pane-clear ;
+    output>> clear-pane ;
 
 \ clear-output H{ { +listener+ t } } define-command