Index: doc/example-scripts/rosetta-constraint-genericity.tcl
===================================================================
diff -u -re884c2b0d63fa1b5a691e866ccff8d4094a2a8e4 -r2872e1f0a6523c7fb44952492e05414c4f8d9c84
--- doc/example-scripts/rosetta-constraint-genericity.tcl	(.../rosetta-constraint-genericity.tcl)	(revision e884c2b0d63fa1b5a691e866ccff8d4094a2a8e4)
+++ doc/example-scripts/rosetta-constraint-genericity.tcl	(.../rosetta-constraint-genericity.tcl)	(revision 2872e1f0a6523c7fb44952492e05414c4f8d9c84)
@@ -26,7 +26,7 @@
   :property -incremental item:object,type=::Eatable
   :public method print {} {
     set string "Foodbox contains:\n"
-    foreach i ${:item} {append string "   [$i name]\n"}
+    foreach i ${:item} {append string "   [$i cget -name]\n"}
     return $string
   }
 }