new accessor

diff --git a/basis/ui/render/render.factor b/basis/ui/render/render.factor
index c7bfc9902405d652613b9f83aac96a14d5d81a79..a4bb353d1bb1c59fe10d0410cbd069f7b7bac67d 100644 (file)
--- a/basis/ui/render/render.factor
+++ b/basis/ui/render/render.factor
@@ -138,7 +138,7 @@ M: polygon draw-interior
 
 : <polygon-gadget> ( color points -- gadget )
     dup max-dim
-    >r <polygon> <gadget> r> over set-rect-dim
+    >r <polygon> <gadget> r> >>dim
     [ (>>interior) ] keep ;
 
 ! Font rendering