diff --git a/basis/ui/operations/operations.factor b/basis/ui/operations/operations.factor
index 48ff20837e..a441ca9273 100644
--- a/basis/ui/operations/operations.factor
+++ b/basis/ui/operations/operations.factor
@@ -88,7 +88,7 @@ operations [ <linked-hash> ] initialize
 : define-operation-map ( class group blurb object translator -- )
     operations>commands define-command-map ;
 
-: operation-quot ( target command -- quot )
+: operation-quot ( target operation -- quot )
     [ translator>> ] [ command>> ] bi '[ _ @ _ execute ] ;
 
 M: operation invoke-command ( target command -- )