--- a/mercurial/HGCommandParserTests.st	Sat Nov 17 01:11:41 2012 +0000
+++ b/mercurial/HGCommandParserTests.st	Sat Nov 17 01:11:55 2012 +0000
@@ -4,7 +4,7 @@
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
-	category:'SCM-Mercurial-Core-Tests'
+	category:'SCM-Mercurial-Tests'
 !
 
 
@@ -97,6 +97,11 @@
 
 !HGCommandParserTests class methodsFor:'documentation'!
 
+version_HG
+    "Never, ever change this method. Ask JV or CG why"
+    ^thisContext method mclass theNonMetaclass instVarNamed: #revision
+!
+
 version_SVN
-    ^ '$Id::                                                                                                                        $'
+    ^ '§Id::                                                                                                                        §'
 ! !