--- a/mercurial/HGRevisionInfo.st	Thu Jul 28 16:54:12 2016 +0200
+++ b/mercurial/HGRevisionInfo.st	Mon Aug 08 19:41:07 2016 +0200
@@ -18,6 +18,8 @@
 "
 "{ Package: 'stx:libscm/mercurial' }"
 
+"{ NameSpace: Smalltalk }"
+
 SCMAbstractRevisionInfo subclass:#HGRevisionInfo
 	instanceVariableNames:'changesetId className'
 	classVariableNames:''
@@ -79,7 +81,7 @@
     s next.
     s skipSeparators.
     s peek == $H ifTrue:[
-        "Some rubbish $Header: /cvs/stx/stx/libscm/mercurial/HGRevisionInfo.st,v 1.4 2015-01-16 14:42:08 vrany Exp $?"
+        "Some rubbish $Header$?"
         (s next: 6) ~= 'Header' ifTrue:[^aBlock value].
         id := HGChangesetId null.
     ] ifFalse:[
@@ -248,7 +250,7 @@
 !HGRevisionInfo methodsFor:'printing & storing'!
 
 printOn:aStream
-    "append a printed representation if the receiver to the argument, aStream"
+    "append a printed representation of the receiver to the argument, aStream"
 
     super printOn:aStream.
     aStream nextPutAll:'['.
@@ -345,6 +347,14 @@
 
 !HGRevisionInfo class methodsFor:'documentation'!
 
+version
+    ^ '$Header$'
+!
+
+version_CVS
+    ^ '$Header$'
+!
+
 version_HG
 
     ^ '$Changeset: <not expanded> $'