--- a/mercurial/HGPackageModel.st	Tue Feb 05 09:47:23 2013 +0100
+++ b/mercurial/HGPackageModel.st	Tue Feb 05 10:38:13 2013 +0100
@@ -154,8 +154,7 @@
     (wc notNil and:[ wc path exists ]) ifTrue:[
         ^ self
     ].
-    tmpPath := self manager temporaryWorkingCopyDirectory 
-            / repository uuid printString.
+    tmpPath := self temporaryWorkingCopyPath.
     tmpPath exists ifTrue:[
         tmpRepo := HGRepository on:tmpPath.
         tmpRepo pull.
@@ -175,7 +174,7 @@
     self setWorkingCopy:tmpWc
 
     "Created: / 14-11-2012 / 00:16:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 14-01-2013 / 14:27:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 05-02-2013 / 09:30:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 ensureTemporaryWorkingCopyAtRevision:rev