--- a/CVSSourceCodeManager.st	Fri Sep 15 18:16:34 2006 +0200
+++ b/CVSSourceCodeManager.st	Mon Sep 18 11:09:50 2006 +0200
@@ -739,15 +739,11 @@
     |tempdir dir|
 
     "/ if CVSTempDir isNil, use current.
-    tempdir := Filename newTemporaryIn:(self cvsTmpDirectory).
-    tempdir exists ifTrue:[
-        tempdir recursiveRemove.
-    ].
     OperatingSystem errorSignal handle:[:ex |
         self reportError:('cannot create temporary directory').
         ^ nil.
     ] do:[
-        tempdir makeDirectory.
+        tempdir := Filename newTemporaryDirectoryIn:(self cvsTmpDirectory).
     ].
 
     moduleDir notNil ifTrue:[
@@ -4390,7 +4386,7 @@
 !CVSSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.324 2006-09-14 10:11:43 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.325 2006-09-18 09:09:50 cg Exp $'
 ! !
 
 CVSSourceCodeManager initialize!