--- a/ProfileTree.st	Fri Mar 25 16:44:42 2016 +0100
+++ b/ProfileTree.st	Fri Mar 25 16:45:43 2016 +0100
@@ -9,8 +9,9 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
+"{ Package: 'stx:libbasic3' }"
 
-"{ Package: 'stx:libbasic3' }"
+"{ NameSpace: Smalltalk }"
 
 Object subclass:#ProfileTree
 	instanceVariableNames:'receiver selector class leafTally totalTally called isBlock'
@@ -136,7 +137,7 @@
 addChain:aCallChain
     "{ Pragma: +optSpeed }"
 
-    "merge a chain into the receivers tree"
+    "merge a chain into the receiver's tree"
 
     |node found subTree chain called|
 
@@ -502,5 +503,6 @@
 !ProfileTree class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ProfileTree.st,v 1.20 2000-08-22 19:57:21 cg Exp $'
+    ^ '$Header$'
 ! !
+