--- a/ClassRevisionTree.st	Fri Feb 18 14:39:31 2000 +0100
+++ b/ClassRevisionTree.st	Fri Feb 18 15:02:06 2000 +0100
@@ -10,7 +10,7 @@
 
 documentation
 "
-    documentation to be added.
+    This is not yet finished (work in progress) - do not use.
 
     [author:]
         Pierre Schwarz (ps@exept.de)
@@ -364,8 +364,9 @@
 
 setUpList
 
-    self halt.
     ^self hierarchicalList newData: self dataHolder value
+
+    "Modified: / 18.2.2000 / 15:05:35 / cg"
 ! !
 
 !ClassRevisionTree methodsFor:'protocol accessing'!
@@ -439,5 +440,5 @@
 !ClassRevisionTree class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ClassRevisionTree.st,v 1.7 2000-02-15 16:49:16 ps Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ClassRevisionTree.st,v 1.8 2000-02-18 14:01:02 cg Exp $'
 ! !