From e060a103b22dbace0acdfe57a389f54fa453d233 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 1 Sep 2008 22:44:10 -0500
Subject: [PATCH] new accessors

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

diff --git a/basis/ui/gadgets/labels/labels.factor b/basis/ui/gadgets/labels/labels.factor
index af7dff0039..ed951824b8 100755
--- a/basis/ui/gadgets/labels/labels.factor
+++ b/basis/ui/gadgets/labels/labels.factor
@@ -43,7 +43,7 @@ M: label gadget-text* label-string % ;
 TUPLE: label-control < label ;
 
 M: label-control model-changed
-    swap model-value over set-label-string relayout ;
+    swap value>> over set-label-string relayout ;
 
 : <label-control> ( model -- gadget )
     "" label-control new-label