diff --git a/basis/ui/operations/operations.factor b/basis/ui/operations/operations.factor
index b3dc52d227..fdb1061f15 100644
--- a/basis/ui/operations/operations.factor
+++ b/basis/ui/operations/operations.factor
@@ -36,6 +36,9 @@ SYMBOL: operations
 : object-operations ( obj -- operations )
     operations get [ predicate>> call ] with filter ;
 
+: gesture>operation ( gesture object -- operation/f )
+    object-operations [ operation-gesture = ] with find nip ;
+
 : find-operation ( obj quot -- command )
     [ object-operations ] dip find-last nip ; inline