diff --git a/extra/alarms/alarms.factor b/extra/alarms/alarms.factor
index 5b198fdb0d..5a48cd9a10 100755
--- a/extra/alarms/alarms.factor
+++ b/extra/alarms/alarms.factor
@@ -16,7 +16,6 @@ TUPLE: alarm time interval quot entry ;
 : <alarm> ( time delay quot -- alarm )
     check-alarm <box> alarm construct-boa ;
 
-! Global min-heap
 SYMBOL: alarms
 SYMBOL: alarm-thread
 
diff --git a/extra/ui/tools/listener/listener.factor b/extra/ui/tools/listener/listener.factor
index db26c2a150..7617b0f32d 100755
--- a/extra/ui/tools/listener/listener.factor
+++ b/extra/ui/tools/listener/listener.factor
@@ -6,7 +6,7 @@ kernel models namespaces parser quotations sequences ui.commands
 ui.gadgets ui.gadgets.editors ui.gadgets.labelled
 ui.gadgets.panes ui.gadgets.buttons ui.gadgets.scrollers
 ui.gadgets.tracks ui.gestures ui.operations vocabs words
-prettyprint listener debugger threads ;
+prettyprint listener debugger threads boxes ;
 IN: ui.tools.listener
 
 TUPLE: listener-gadget input output stack ;
@@ -161,6 +161,7 @@ M: listener-gadget handle-gesture* ( gadget gesture delegate -- ? )
 
 M: listener-gadget graft*
     dup delegate graft*
+    dup listener-gadget-input interactor-thread ?box 2drop
     restart-listener ;
 
 M: listener-gadget ungraft*