--- a/ProfileTree.st	Thu Mar 24 07:05:38 2016 +0100
+++ b/ProfileTree.st	Sat Mar 26 07:56:43 2016 +0000
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic3' }"
 
+"{ NameSpace: Smalltalk }"
+
 Object subclass:#ProfileTree
 	instanceVariableNames:'receiver selector class leafTally totalTally called isBlock'
 	classVariableNames:''
@@ -135,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|
 
@@ -501,7 +503,7 @@
 !ProfileTree class methodsFor:'documentation'!
 
 version
-    ^ '$Header: ProfileTree.st 1909 2012-03-31 00:14:49Z vranyj1 $'
+    ^ '$Header$'
 !
 
 version_HG
@@ -510,6 +512,6 @@
 !
 
 version_SVN
-    ^ '§Id: ProfileTree.st 1909 2012-03-31 00:14:49Z vranyj1 §'
+    ^ 'Id: ProfileTree.st 1909 2012-03-31 00:14:49Z vranyj1 '
 ! !