--- a/mercurial/HGPackageModel.st	Tue Nov 20 21:32:08 2012 +0000
+++ b/mercurial/HGPackageModel.st	Wed Nov 21 01:21:47 2012 +0000
@@ -57,14 +57,19 @@
     (wc notNil and:[wc path exists]) ifTrue:[ ^ self ].
 
     tmpPath := self manager temporaryWorkingCopyDirectory / repository uuid printString.
-    tmpRepo := tmpPath exists 
-                    ifTrue:[HGRepository on: tmpPath]
-                    ifFalse:[tmpRepo := repository cloneTo: tmpPath].
-    tmpWc := tmpRepo workingCopy.
+    tmpPath exists ifTrue:[
+        tmpRepo := HGRepository on: tmpPath.
+        tmpWc := tmpRepo workingCopy.
+    ] ifFalse:[
+        tmpRepo := repository cloneTo: tmpPath update: false.
+        tmpWc := tmpRepo workingCopy.
+        tmpWc update: self definition hgLogicalRevision.
+    ].
+
     self wc: tmpWc
 
     "Created: / 14-11-2012 / 00:16:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 20-11-2012 / 12:20:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 21-11-2012 / 00:37:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HGPackageModel class methodsFor:'documentation'!