--- a/CVSSourceCodeManager.st	Fri Jan 20 16:08:05 2012 +0100
+++ b/CVSSourceCodeManager.st	Fri Jan 20 16:15:28 2012 +0100
@@ -2684,18 +2684,6 @@
     cvsRoot := self getCVSROOTForModule:moduleDir.
     cvsRoot isNil ifTrue:[^ nil].
 
-    "/ if not already existing, create a cache directory
-    "/ where we deposit sources.
-    "/ this is used as a cache for further requests, since
-    "/ accessing the repository may be slow.
-    "/ (if cvs uses a remote connection via ppp, for example)
-
-    (cacheIt and:[revision ~~ #newest and:[revision notNil]]) ifTrue:[
-        (cacheDir := self sourceCacheDirectory) isNil ifTrue:[
-            'CVSSourceCodeManager [warning]: no source cache directory' errorPrintCR.
-        ]
-    ].
-
     classFileName := fileName.
     classFileName isNil ifTrue:[classFileName := cls classBaseFilename].
 
@@ -2718,6 +2706,18 @@
         cachedSourceFilename := classFileName , '_' , revision.
     ].
 
+    "/ if not already existing, create a cache directory
+    "/ where we deposit sources.
+    "/ this is used as a cache for further requests, since
+    "/ accessing the repository may be slow.
+    "/ (if cvs uses a remote connection via ppp, for example)
+
+   (cacheIt and:[revision ~~ #newest and:[revision notNil]]) ifTrue:[
+        (cacheDir := self sourceCacheDirectory) isNil ifTrue:[
+            ('CVSSourceCodeManager [warning]: no source cache directory for %1' bindWith:cachedSourceFilename) infoPrintCR
+        ]
+    ].
+
     cacheDir notNil ifTrue:[
         cacheSubDir := cacheDir / moduleDir / packageDir.
         cachedFile := cacheSubDir / cachedSourceFilename.
@@ -2858,7 +2858,7 @@
 
     "Created: / 04-11-1995 / 19:46:20 / cg"
     "Modified: / 20-08-1997 / 16:37:11 / stefan"
-    "Modified: / 07-09-2011 / 09:58:06 / cg"
+    "Modified: / 20-01-2012 / 16:15:19 / cg"
 ! !
 
 !CVSSourceCodeManager class methodsFor:'source code administration'!
@@ -5071,11 +5071,11 @@
 !CVSSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.424 2012-01-20 15:08:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.425 2012-01-20 15:15:28 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.424 2012-01-20 15:08:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.425 2012-01-20 15:15:28 cg Exp $'
 ! !
 
 CVSSourceCodeManager initialize!