--- a/ProfileTree.st	Sat Dec 09 15:44:23 1995 +0100
+++ b/ProfileTree.st	Sat Dec 09 16:07:00 1995 +0100
@@ -10,7 +10,7 @@
  hereby transferred.
 "
 
-!Object subclass:#ProfileTree
+Object subclass:#ProfileTree
 	 instanceVariableNames:'receiver selector class leafTally totalTally called isBlock'
 	 classVariableNames:''
 	 poolDictionaries:''
@@ -263,5 +263,5 @@
 !ProfileTree class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ProfileTree.st,v 1.9 1995-12-09 14:44:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ProfileTree.st,v 1.10 1995-12-09 15:06:36 cg Exp $'
 ! !