--- a/mercurial/HGWorkingCopyFile.st	Thu Oct 18 14:24:45 2012 +0000
+++ b/mercurial/HGWorkingCopyFile.st	Tue Oct 23 10:37:14 2012 +0000
@@ -27,9 +27,14 @@
 !
 
 status
-    ^wc statusOf: filename.
+    | cmd |
+
+    cmd := HGCommand status.
+    cmd path: filename pathName.
+    ^cmd execute first
 
     "Created: / 24-09-2012 / 22:27:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 23-10-2012 / 11:11:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HGWorkingCopyFile methodsFor:'delegating'!
@@ -107,6 +112,50 @@
     "Modified: / 17-10-2012 / 13:51:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!HGWorkingCopyFile methodsFor:'testing'!
+
+isAdded
+    ^ self status isAdded
+
+    "Modified: / 23-10-2012 / 11:13:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isClean
+    ^ self status isClean
+
+    "Modified: / 23-10-2012 / 11:13:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isIgnored
+    ^ self status isIgnored
+
+    "Modified: / 23-10-2012 / 11:13:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isMissing
+    ^ self status isMissing
+
+    "Modified: / 23-10-2012 / 11:12:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isModified
+    ^ self status isModified
+
+    "Modified: / 23-10-2012 / 11:13:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isNotTracked
+    ^ self status isNotTracked
+
+    "Modified: / 23-10-2012 / 11:13:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isRemoved
+    ^ self status isRemoved
+
+    "Modified: / 23-10-2012 / 11:13:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !HGWorkingCopyFile class methodsFor:'documentation'!
 
 version_SVN