stupid mutable state

diff --git a/basis/ui/ui.factor b/basis/ui/ui.factor
index aee19279a4ee303f27e4e74431d9efc3ad1ede03..37ec4f35b1cdefc3c8e5d7a0d749d35dab97ab72 100644 (file)
--- a/basis/ui/ui.factor
+++ b/basis/ui/ui.factor
@@ -198,7 +198,7 @@ PRIVATE>
     windows get empty? not ;
 
 : ?attributes ( gadget title/attributes -- attributes )
-    dup string? [ world-attributes new swap >>title ] when
+    dup string? [ world-attributes new swap >>title ] [ clone ] if
     swap [ [ [ 1array ] [ f ] if* ] curry unless* ] curry change-gadgets ;
 
 PRIVATE>