--- a/mercurial/HGRepositoriesResource.st	Mon Jun 27 12:00:16 2016 +0100
+++ b/mercurial/HGRepositoriesResource.st	Wed Jul 13 18:29:10 2016 +0100
@@ -259,12 +259,12 @@
 
 initialize
 
-    HGRepositoriesArchiveDir := (Smalltalk packageDirectoryForPackageId:self package)
+    HGRepositoriesArchiveDir := (Smalltalk getPackageDirectoryForPackage:self package)
                     / 'tests' / 'repositories'
 
     "Created: / 09-12-2010 / 23:07:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified (format): / 27-12-2011 / 18:07:34 / dundee"
-    "Modified: / 17-10-2012 / 13:02:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 13-07-2016 / 17:54:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HGRepositoriesResource methodsFor:'accessing'!