diff --git a/extra/ui/ui.factor b/extra/ui/ui.factor
index 8fc7247257..0baa4df65b 100755
--- a/extra/ui/ui.factor
+++ b/extra/ui/ui.factor
@@ -120,7 +120,9 @@ SYMBOL: ui-hook
     [ dup update-hand draw-world ] each ;
 
 : notify ( gadget -- )
-    dup gadget-graft-state dup first { f f } { t t } ? pick set-gadget-graft-state {
+    dup gadget-graft-state
+    dup first { f f } { t t } ?
+    pick set-gadget-graft-state {
         { { f t } [ dup activate-control graft* ] }
         { { t f } [ dup activate-control ungraft* ] }
     } case ;