--- a/SourceCodeCache.st	Wed Nov 30 19:52:51 2011 +0100
+++ b/SourceCodeCache.st	Thu Dec 01 11:52:43 2011 +0100
@@ -91,7 +91,11 @@
 
 cachedFileNameForRepository: repositoryId module: module directory: package container: container revision: revision
 
-    ^ AbstractSourceCodeManager cacheDirectoryName asFilename
+    | cache |
+    cache := AbstractSourceCodeManager cacheDirectoryName.
+    cache isNil ifTrue:[AbstractSourceCodeManager initCacheDirPath].
+    cache := AbstractSourceCodeManager cacheDirectoryName.
+    ^ cache asFilename
         "/ repositoryId "/ TODO: Ignored for now, discuss with Claus
         / module
         / (package copyReplaceAll:$/ with: Filename separator) 
@@ -112,9 +116,9 @@
 !SourceCodeCache class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeCache.st,v 1.1 2011-10-12 10:28:43 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeCache.st,v 1.2 2011-12-01 10:52:43 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeCache.st,v 1.1 2011-10-12 10:28:43 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeCache.st,v 1.2 2011-12-01 10:52:43 vrany Exp $'
 ! !