Fix handler

diff --git a/basis/ui/gadgets/handler/handler.factor b/basis/ui/gadgets/handler/handler.factor
index 1ad50630135cec6c5b8533abfc51971ff54de2ba..1c1214259339832fb69728ef4ce633ffbbea4ca3 100644 (file)
--- a/basis/ui/gadgets/handler/handler.factor
+++ b/basis/ui/gadgets/handler/handler.factor
@@ -8,4 +8,4 @@ TUPLE: handler < wrapper table ;
 : <handler> ( child -- handler ) handler new-wrapper ;
 
 M: handler handle-gesture ( gesture gadget -- ? )
-   over table>> at dup [ call f ] [ 2drop t ] if ;
\ No newline at end of file
+   tuck table>> at dup [ call f ] [ 2drop t ] if ;
\ No newline at end of file