--- a/mercurial/HGPackageModelRegistry.st	Thu Nov 15 01:42:14 2012 +0000
+++ b/mercurial/HGPackageModelRegistry.st	Thu Nov 15 01:44:36 2012 +0000
@@ -20,17 +20,23 @@
     dir := Smalltalk getPackageDirectoryForPackage: package.
     dir := HGRepository discover: dir.
     dir isNil ifTrue:[
-        GitError raiseErrorString: 'No repository found for package ',package.
+        HGError raiseErrorString: 'No repository found for package ',package.
         ^nil.
     ].
     repo := repositories at: dir ifAbsentPut: [ HGRepository on: dir ].
     ^packages at: package ifAbsentPut: [ HGPackageModel name: package repository: repo ].
 
     "Created: / 14-11-2012 / 00:15:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 14-11-2012 / 23:21:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HGPackageModelRegistry class methodsFor:'documentation'!
 
+version_HG
+    "Never, ever change this method. Ask JV or CG why"
+    ^thisContext method mclass theNonMetaclass instVarNamed: #revision
+!
+
 version_SVN
     ^ '$Id::                                                                                                                        $'
 ! !