--- a/Method.st	Sun Nov 03 16:13:55 2019 +0100
+++ b/Method.st	Sun Nov 03 17:05:28 2019 +0100
@@ -799,8 +799,7 @@
     |sourceStream chunk|
 
     "
-     if sourcePosition is nonNil, its the fileName and
-     abs(sourcePosition) is the offset.
+     if sourcePosition is nonNil, its the fileName and abs(sourcePosition) is the offset.
      Otherwise, source is the real source
     "
     sourcePosition isNil ifTrue:[^ source].
@@ -1063,7 +1062,6 @@
     "Modified (format): / 18-11-2011 / 14:47:06 / cg"
 ! !
 
-
 !Method methodsFor:'accessing-visibility'!
 
 isIgnored
@@ -2156,30 +2154,33 @@
 
     |dir fileName aStream|
 
+    "/ to test CVS access, uncomment the following:
+    "/ ^ nil.
+
     package notNil ifTrue:[
-	"/
-	"/ old: look in 'source/<filename>'
-	"/ this is still kept in order to find user-private
-	"/ classes in her currentDirectory.
-	"/
-	fileName := Smalltalk getSourceFileName:(package copyReplaceAll:$: with:$/) , '/' , source.
-	fileName notNil ifTrue:[
-	    aStream := fileName asFilename readStreamOrNil.
-	    aStream notNil ifTrue:[^ aStream].
-	].
-	"/
-	"/ new: look in package-dir
-	"/
-	dir := Smalltalk getPackageDirectoryForPackage:package.
-	dir notNil ifTrue:[
-	    fileName := dir construct:source.
-	    aStream := fileName asFilename readStreamOrNil.
-	    aStream notNil ifTrue:[^ aStream].
-	].
+        "/
+        "/ old: look in 'source/<filename>'
+        "/ this is still kept in order to find user-private
+        "/ classes in her currentDirectory.
+        "/
+        fileName := Smalltalk getSourceFileName:(package copyReplaceAll:$: with:$/) , '/' , source.
+        fileName notNil ifTrue:[
+            aStream := fileName asFilename readStreamOrNil.
+            aStream notNil ifTrue:[^ aStream].
+        ].
+        "/
+        "/ new: look in package-dir
+        "/
+        dir := Smalltalk getPackageDirectoryForPackage:package.
+        dir notNil ifTrue:[
+            fileName := dir construct:source.
+            aStream := fileName asFilename readStreamOrNil.
+            aStream notNil ifTrue:[^ aStream].
+        ].
     ].
     fileName := Smalltalk getSourceFileName:source.
     fileName notNil ifTrue:[
-	aStream := fileName asFilename readStreamOrNil.
+        aStream := fileName asFilename readStreamOrNil.
     ].
     ^ aStream
 !
@@ -2193,8 +2194,7 @@
     |aStream fileName who myClass mgr className classNameSymbol dir mod pkgDef |
 
     "
-     if sourcePosition is nonNil, its the fileName and
-     abs(sourcePosition) is the offset.
+     if sourcePosition is nonNil, its the fileName and abs(sourcePosition) is the offset.
      Otherwise, source is the real source
     "
     source isNil ifTrue:[^ nil].
@@ -2406,8 +2406,8 @@
 sourceStreamUsingCache:usingCacheBoolean
     "return an open sourceStream (needs positioning).
      If usingCacheBoolean is true, cache the stream (but take care against concurrent access).
-     You have to close the stream, if usingCacheBoolean is false, and should not close it
-     if usingCacheBoolean is true."
+     You have to close the stream, if usingCacheBoolean is false, 
+     and should not close it if usingCacheBoolean is true."
 
     |rawStream|
 
@@ -3854,7 +3854,6 @@
     "Created: / 23-07-2012 / 11:16:36 / cg"
 ! !
 
-
 !Method methodsFor:'source management'!
 
 revisionInfo