Index: doc/example-scripts/container.tcl
===================================================================
diff -u -r4b4555e4069ed573312be00cdc01bd865e6e49fa -re68fc7356263c35f5924f826bb3959f75bd42211
--- doc/example-scripts/container.tcl	(.../container.tcl)	(revision 4b4555e4069ed573312be00cdc01bd865e6e49fa)
+++ doc/example-scripts/container.tcl	(.../container.tcl)	(revision e68fc7356263c35f5924f826bb3959f75bd42211)
@@ -35,6 +35,7 @@
   # container.
   :public method new {args} {
     set item [${:memberClass} create [:]::[:autoname ${:prefix}] {*}$args]
+    return $item
   }
 }