--- a/mercurial/HGPackageModelRegistry.st	Tue Feb 05 09:47:23 2013 +0100
+++ b/mercurial/HGPackageModelRegistry.st	Tue Feb 05 10:38:13 2013 +0100
@@ -119,11 +119,13 @@
     toFlush do:[:package|
         | wcdir |
         repositories removeKey: package repository path ifAbsent:[nil].
-        wcdir := package temporaryWorkingCopy path.
-        [ wcdir recursiveRemove ] on: Error do:[
-            OperatingSystem isMSWINDOWSlike ifTrue:[
-                Delay waitForSeconds: 1.
-                wcdir recursiveRemove.
+        wcdir := package temporaryWorkingCopyPath.
+        wcdir exists ifTrue:[
+            [ wcdir recursiveRemove ] on: Error do:[
+                OperatingSystem isMSWINDOWSlike ifTrue:[
+                    Delay waitForSeconds: 1.
+                    wcdir recursiveRemove.
+                ].
             ].
         ].
         packages removeKey: package name
@@ -131,7 +133,7 @@
 
     "Created: / 16-11-2012 / 19:40:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 22-11-2012 / 16:03:07 / jv"
-    "Modified: / 01-12-2012 / 00:32:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 05-02-2013 / 09:28:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HGPackageModelRegistry class methodsFor:'documentation'!