--- a/mercurial/HGStXTests.st	Mon Mar 18 23:18:12 2013 +0000
+++ b/mercurial/HGStXTests.st	Tue Mar 19 08:59:59 2013 +0000
@@ -803,9 +803,10 @@
     ct message:'test_commit_10c'.
     ct doPrepareWorkingCopy.
 
-    self assert: ((Smalltalk at: #'mocks:hg/p1') extensionMethodNames includes: #zork) not.
+    self assert: ((Smalltalk at: #'mocks_hg_p1') extensionMethodNames includes: #zork).
 
     "Created: / 18-03-2013 / 18:42:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 18-03-2013 / 23:01:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 test_commit_11a
@@ -893,7 +894,7 @@
     repo := self repositoryNamed: 'mocks/hg/p1'.
     self assert: (Smalltalk loadPackage: 'mocks:hg/p1').
 
-    (Smalltalk at: #MockHGP1Bar) removeSelector: 'qux'.
+    (Smalltalk at: #MockHGP1Bar) removeSelector: #'qux'.
 
     pm := HGPackageModel named: #'mocks:hg/p1'.
     ct := pm commitTask.
@@ -906,6 +907,7 @@
     self assert: ((repo @ 2 / 'MockHGP1Bar.st') contents asString includesString:'qux') not
 
     "Created: / 18-03-2013 / 19:01:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 18-03-2013 / 23:05:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HGStXTests methodsFor:'tests - manager API'!