--- a/CVSSourceCodeManager.st	Thu Oct 22 11:19:26 2009 +0200
+++ b/CVSSourceCodeManager.st	Fri Oct 23 01:46:36 2009 +0200
@@ -2619,15 +2619,10 @@
     ].
 
     cacheDir notNil ifTrue:[
-        cacheSubDir := cacheDir construct:moduleDir.
-        cacheSubDir exists ifTrue:[
-            cacheSubDir := cacheSubDir construct:packageDir.
-            cacheSubDir exists ifTrue:[
-                cachedFile := cacheSubDir construct:cachedSourceFilename.
-                cachedFile exists ifTrue:[
-                    ^ cachedFile readStream
-                ].
-            ].
+        cacheSubDir := cacheDir / moduleDir / packageDir.
+        cachedFile := cacheSubDir / cachedSourceFilename.
+        cachedFile exists ifTrue:[
+            ^ cachedFile readStream
         ].
     ].
 
@@ -4877,11 +4872,11 @@
 !CVSSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.378 2009-10-12 18:11:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.379 2009-10-22 23:46:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.378 2009-10-12 18:11:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.379 2009-10-22 23:46:36 cg Exp $'
 ! !
 
 CVSSourceCodeManager initialize!