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