--- a/mercurial/HGStatus.st	Thu Nov 15 01:42:14 2012 +0000
+++ b/mercurial/HGStatus.st	Thu Nov 15 01:44:36 2012 +0000
@@ -156,6 +156,12 @@
     ^ false
 !
 
+isCleanOrIgnored
+    ^ false
+
+    "Created: / 15-11-2012 / 01:29:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 isIgnored
     ^ false
 !
@@ -208,6 +214,12 @@
 
 isClean
     ^ true
+!
+
+isCleanOrIgnored
+    ^ true
+
+    "Created: / 15-11-2012 / 01:29:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HGStatus::Ignored class methodsFor:'accessing'!
@@ -223,6 +235,12 @@
 
 !HGStatus::Ignored methodsFor:'testing'!
 
+isCleanOrIgnored
+    ^ true
+
+    "Created: / 15-11-2012 / 01:30:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 isIgnored
     ^ true
 ! !
@@ -297,6 +315,11 @@
 
 !HGStatus class methodsFor:'documentation'!
 
+version_HG
+    "Never, ever change this method. Ask JV or CG why"
+    ^thisContext method mclass theNonMetaclass instVarNamed: #revision
+!
+
 version_SVN
     ^ '$Id::                                                                                                                        $'
 ! !