--- a/TreeItem.st	Mon Jun 14 12:51:45 2010 +0200
+++ b/TreeItem.st	Mon Jun 14 13:02:20 2010 +0200
@@ -127,7 +127,7 @@
         clsName := aClass name
     ].
 
-    newInst := super new initialize.
+    newInst := self new.
     newInst name:clsName.
 
     aClass isNil ifTrue:[
@@ -1027,7 +1027,11 @@
 !TreeItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TreeItem.st,v 1.49 2009-05-20 06:38:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TreeItem.st,v 1.50 2010-06-14 11:02:20 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libwidg2/TreeItem.st,v 1.50 2010-06-14 11:02:20 cg Exp $'
 ! !
 
 TreeItem initialize!