diff --git a/basis/ui/tools/listener/listener.factor b/basis/ui/tools/listener/listener.factor
index 0371767dff..2e5132c0e8 100644
--- a/basis/ui/tools/listener/listener.factor
+++ b/basis/ui/tools/listener/listener.factor
@@ -270,7 +270,9 @@ M: string listener-input
     [ set-editor-string ] [ request-focus ] bi ;
 
 : call-listener ( quot command -- )
-    get-ready-listener dup wait-for-listener (call-listener) ;
+    get-ready-listener
+    '[ _ _ _ dup wait-for-listener (call-listener) ]
+    "Listener call" spawn drop ;
 
 M: listener-command invoke-command ( target command -- )
     [ command-quot ] [ nip ] 2bi call-listener ;