Index: doc/example-scripts/rosetta-constraint-genericity.tcl
===================================================================
diff -u -re884c2b0d63fa1b5a691e866ccff8d4094a2a8e4 -ra963e8896fd07c345ccfa034cbd043344edbf083
--- 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 a963e8896fd07c345ccfa034cbd043344edbf083)
@@ -1,6 +1,6 @@
 #
 # == Rosetta Example: Constrained genericity 
-# For details see http://rosettacode.org/wiki/Constrained_genericity
+# For details see https://rosettacode.org/wiki/Constrained_genericity
 #
 package req nx
 package req nx::test
@@ -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
   }
 }