--- a/AbstractSettingsApplication.st	Mon Mar 03 14:47:03 2003 +0100
+++ b/AbstractSettingsApplication.st	Mon Mar 03 14:50:34 2003 +0100
@@ -8670,6 +8670,7 @@
         ].
         CVSSourceCodeManager initializeForRepository:self cvsRootHolder value.
         CVSSourceCodeManager repositoryNamesPerModule:rootsPerModule.
+        self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
         DebugView newDebugger.
     ] ifFalse:[
         Smalltalk at:#SourceCodeManager put:nil
@@ -10626,5 +10627,5 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.33 2003-03-02 18:35:03 stefan Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.34 2003-03-03 13:50:34 penk Exp $'
+! !