--- a/AbstractSourceCodeManager.st	Fri Aug 17 14:13:20 2001 +0200
+++ b/AbstractSourceCodeManager.st	Fri Aug 17 14:16:23 2001 +0200
@@ -68,11 +68,8 @@
 initialize
     "setup for no caching and no workTree"
 
-    CachingSources := UseWorkTree := false.
-    CacheDirectoryName := WorkTreeDirectoryName := ''.
-
-    "Created: 16.12.1995 / 15:41:00 / cg"
-    "Modified: 12.9.1996 / 02:28:11 / cg"
+    CachingSources ifNil:[CachingSources := false].
+    UseWorkTree    ifNil:[UseWorkTree := false].
 ! !
 
 !AbstractSourceCodeManager class methodsFor:'accessing'!
@@ -741,7 +738,10 @@
     (nm := self cacheDirectoryName) isNil ifTrue:[^ nil].
 
     (dir := nm asFilename) exists ifFalse:[
-        dir makeDirectory.
+        OperatingSystem errorSignal handle:[:ex | ]
+        do:[
+            dir makeDirectory.
+        ].
         dir exists ifFalse:[
             'SourceCodeManager [warning]: could not create cache dir ''' , CacheDirectoryName , '''' infoPrintCR.
             ^ nil
@@ -1964,6 +1964,6 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.142 2001-01-17 13:11:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.143 2001-08-17 12:16:23 cg Exp $'
 ! !
 AbstractSourceCodeManager initialize!