--- a/AbstractSourceCodeManager.st	Mon Nov 06 20:13:52 1995 +0100
+++ b/AbstractSourceCodeManager.st	Thu Nov 09 14:44:21 1995 +0100
@@ -23,7 +23,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.8 1995-11-06 19:13:52 cg Exp $
+$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.9 1995-11-09 13:44:18 cg Exp $
 "
 !
 
@@ -56,7 +56,7 @@
 initCacheDirPath
     |path|
 
-    path := OperatingSystem getEnvironment:'ST_TMPPATH'.
+    path := OperatingSystem getEnvironment:'STX_TMPPATH'.
     path isNil ifTrue:[
 	path := OperatingSystem getEnvironment:'TMPPATH'.
 	path isNil ifTrue:[
@@ -102,6 +102,9 @@
 	revision:revision 
 	directory:packageDir 
 	module:moduleDir
+	cache:true
+
+    "Modified: 9.11.1995 / 14:34:10 / cg"
 !
 
 mostRecentSourceStreamForClassNamed:aClassOrClassName
@@ -118,9 +121,10 @@
 	revision:#newest 
 	directory:packageDir 
 	module:moduleDir
+	cache:false
 
     "Created: 6.11.1995 / 16:09:06 / cg"
-    "Modified: 6.11.1995 / 18:45:58 / cg"
+    "Modified: 9.11.1995 / 14:34:15 / cg"
 !
 
 checkinClass:aClass
@@ -188,7 +192,7 @@
     ^ dir
 !
 
-streamForClass:cls fileName:classFileName revision:revision directory:packageDir module:moduleDir
+streamForClass:cls fileName:classFileName revision:revision directory:packageDir module:moduleDir cache:cacheIt
     self subclassResponsibility.
     ^ nil