From 96d5c2fac84c2f3c24ecc9450958f7c230b8b965 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 12 Nov 2011 18:48:03 -0800
Subject: [PATCH] ui.operations: fix stack names.

---
 basis/ui/operations/operations.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 -- )