Index: doc/example-scripts/container.tcl
===================================================================
diff -u -re884c2b0d63fa1b5a691e866ccff8d4094a2a8e4 -re0419345b49587b5738f87c6d828dfc5ae4b3276
--- doc/example-scripts/container.tcl	(.../container.tcl)	(revision e884c2b0d63fa1b5a691e866ccff8d4094a2a8e4)
+++ doc/example-scripts/container.tcl	(.../container.tcl)	(revision e0419345b49587b5738f87c6d828dfc5ae4b3276)
@@ -129,14 +129,14 @@
 
   :variable values {}
   :variable index {}
-
   :property key
+
   :public method index {} { return ${:index}}
 
   :public method new {args} {
     set item [${:memberClass} create [:]::[:autoname ${:prefix}] {*}$args]
     if {[info exists :key]} {
-      set value [$item ${:key}]
+      set value [$item cget -${:key}]
       set pos [lsearch -bisect ${:values} $value]
       set :values [linsert ${:values} [expr {$pos + 1}] $value]
       set :index  [linsert ${:index}  [expr {$pos + 1}] $item]
@@ -154,7 +154,6 @@
     set :index  [lreplace ${:index}  $pos $pos]
     next
   }
-
 }
 
 # Create a container for class +D+ with key +name+: