--- a/TreeItem.st	Fri Nov 25 09:19:37 2016 +0100
+++ b/TreeItem.st	Mon Nov 28 12:57:56 2016 +0100
@@ -256,8 +256,8 @@
 !
 
 value:something 
-    "set contents
-    "
+    "allow TreeItem to be used as a model"
+
     self contents:something
 ! !