Index: doc/example-scripts/traits-composite.tcl
===================================================================
diff -u -rac2bbda827dff056beb23cf8400ab77b6996d1e8 -racc540eae81024718461724ce69e7971fa9ddfa9
--- doc/example-scripts/traits-composite.tcl	(.../traits-composite.tcl)	(revision ac2bbda827dff056beb23cf8400ab77b6996d1e8)
+++ doc/example-scripts/traits-composite.tcl	(.../traits-composite.tcl)	(revision acc540eae81024718461724ce69e7971fa9ddfa9)
@@ -19,8 +19,8 @@
   #
   # Define the methods provided by this trait:
   #  
-  :public method atStart {} {expr {[:position] == [:minPosition]}}
-  :public method atEnd {} {expr {[:position] == [:maxPosition]}}
+  :public method atStart {} {expr {[:position get] == [:minPosition]}}
+  :public method atEnd {} {expr {[:position get] == [:maxPosition]}}
   :public method setToStart {} {set :position [:minPosition]}
   :public method setToEnd {} {set :position [:maxPosition]}
   :public method maxPosition {} {llength ${:collection}}
@@ -31,8 +31,8 @@
   # from the base class or other traits. The definition is incomplete
   # in these regards
 
-  :requiredMethods position
-  :requiredVariables collection
+  :requiredMethods assign position
+  :requiredVariables assign collection
 }
 
 #
@@ -53,7 +53,7 @@
   }
   
   # This trait requires these methods:
-  :requiredMethods {setToStart atEnd nextPosition}
+  :requiredMethods assign {setToStart atEnd nextPosition}
 
   # Require the trait "tPositionableStream"
   :require trait tPositionableStream
@@ -75,7 +75,7 @@
   }
 
   # This trait requires these methods:
-  :requiredMethods {setToEnd nextPosition}
+  :requiredMethods assign {setToEnd nextPosition}
 
   # Require the trait "tPositionableStream"
   :require trait tPositionableStream