--- a/ClassItemRoot.st	Fri Feb 18 14:39:31 2000 +0100
+++ b/ClassItemRoot.st	Fri Feb 18 15:02:06 2000 +0100
@@ -9,7 +9,7 @@
 
 documentation
 "
-    documentation to be added.
+    This is not yet finished (work in progress) - do not use.
 
     [author:]
         Pierre Schwarz (ps@exept.de)
@@ -58,18 +58,12 @@
 "
 
     children ifNil:[
-        children := self computeChildrensFor:parent classRevisionColl.
+        children := self computeChildrensFor:parent dataColl.
         children do:[:eachChild | eachChild parent:self]
     ].
     ^ children
 
-
-
-
-
-
-
-
+    "Modified: / 18.2.2000 / 15:02:12 / cg"
 !
 
 computeChildrensFor:aClassColl
@@ -110,5 +104,5 @@
 !ClassItemRoot class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ClassItemRoot.st,v 1.4 2000-02-15 16:48:28 ps Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ClassItemRoot.st,v 1.5 2000-02-18 14:01:35 cg Exp $'
 ! !