--- a/AbstractSourceCodeManager.st	Fri Jul 27 11:09:29 2012 +0200
+++ b/AbstractSourceCodeManager.st	Fri Jul 27 12:37:04 2012 +0200
@@ -14,7 +14,7 @@
 Object subclass:#AbstractSourceCodeManager
 	instanceVariableNames:''
 	classVariableNames:'DefaultManager CachingSources CacheDirectoryName UseWorkTree
-		WorkTreeDirectoryName ManagerPerModule'
+		WorkTreeDirectoryName ManagerPerModule Verbose'
 	poolDictionaries:''
 	category:'System-SourceCodeManagement'
 !
@@ -711,6 +711,16 @@
     "Modified: / 30-09-2011 / 13:33:33 / cg"
 ! !
 
+!AbstractSourceCodeManager class methodsFor:'debugging'!
+
+verboseSourceCodeAccess
+    ^ Verbose ? false
+!
+
+verboseSourceCodeAccess:aBoolean
+    Verbose := aBoolean
+! !
+
 !AbstractSourceCodeManager class methodsFor:'obsolete backward compatibility'!
 
 checkForExistingContainerInModule:moduleDir directory:packageDir container:fileName
@@ -3754,11 +3764,11 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.295 2012-07-25 23:33:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.296 2012-07-27 10:37:04 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.295 2012-07-25 23:33:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.296 2012-07-27 10:37:04 cg Exp $'
 !
 
 version_SVN