--- a/mercurial/HGTestCase.st	Sat Jan 12 14:10:22 2013 +0000
+++ b/mercurial/HGTestCase.st	Mon Jan 14 13:56:09 2013 +0000
@@ -117,14 +117,20 @@
 !HGTestCase methodsFor:'utilities'!
 
 repositoryNamed: nm
+    ^self repositoryNamed: nm unpack: true
+
+    "Created: / 19-09-2012 / 19:04:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 14-01-2013 / 13:20:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+repositoryNamed: nm unpack: unpack
     | dir |
 
-    dir := HGRepositoriesResource current directoryForRepositoryNamed: nm.
+    dir := HGRepositoriesResource current directoryForRepositoryNamed: nm unpack: unpack.
     repositories add:  dir.
     ^HGRepository on: dir.
 
-    "Created: / 19-09-2012 / 19:04:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 22-11-2012 / 11:06:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 14-01-2013 / 13:20:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HGTestCase class methodsFor:'documentation'!