--- a/Method.st	Sat Feb 27 17:43:41 1999 +0100
+++ b/Method.st	Sun Feb 28 17:24:01 1999 +0100
@@ -437,20 +437,20 @@
             "/
             (mgr := Smalltalk at:#SourceCodeManager) isNil ifTrue:[
                 package notNil ifTrue:[
-'try: ' print. ((package copyReplaceAll:$: with:$/)  , '/' , source) printCR.
+"/ 'try: ' print. ((package copyReplaceAll:$: with:$/)  , '/' , source) printCR.
 
                     fileName := Smalltalk getSourceFileName:(package copyReplaceAll:$: with:$/) , '/' , source.
                     fileName notNil ifTrue:[
                         aStream := fileName asFilename readStream.
-aStream printCR.
+"/ aStream printCR.
                     ].
                 ].
                 aStream isNil ifTrue:[
                     fileName := Smalltalk getSourceFileName:source.
-'try: ' print. source printCR.
+"/ 'try: ' print. source printCR.
                     fileName notNil ifTrue:[
                         aStream := fileName asFilename readStream.
-aStream printCR.
+"/ aStream printCR.
                     ]
                 ].
             ].
@@ -462,9 +462,9 @@
                 who := self who.
                 who notNil ifTrue:[
                     myClass := who methodClass.
-'ask class for: ' print. source printCR.
+"/ 'ask class for: ' print. source printCR.
                     aStream := myClass sourceStreamFor:source.
-aStream printCR.
+"/ aStream printCR.
 
 "/ the check below is no good -
 "/ the classes stream may be an HTTP-stream, cached fileStream
@@ -486,19 +486,19 @@
                     "/
                     mgr notNil ifTrue:[
                         package notNil ifTrue:[
-'try: ' print. ((package copyReplaceAll:$: with:$/)  , '/' , source) printCR.
+"/ 'try: ' print. ((package copyReplaceAll:$: with:$/)  , '/' , source) printCR.
                             fileName := Smalltalk getSourceFileName:(package copyReplaceAll:$: with:$/) , '/' , source.
                             fileName notNil ifTrue:[
                                 aStream := fileName asFilename readStream.
-aStream printCR.
+"/ aStream printCR.
                             ].
                         ].
                         aStream isNil ifTrue:[
-'try: ' print. source printCR.
+"/ 'try: ' print. source printCR.
                             fileName := Smalltalk getSourceFileName:source.
                             fileName notNil ifTrue:[
                                 aStream := fileName asFilename readStream.
-aStream printCR.
+"/ aStream printCR.
                             ]
                         ]
                     ].
@@ -508,7 +508,7 @@
                     "/
                     aStream isNil ifTrue:[
                         aStream := source asFilename readStream.
-aStream printCR.
+"/ aStream printCR.
                     ]
                 ].
 
@@ -525,7 +525,7 @@
                         myClass := Smalltalk at:className asSymbol ifAbsent:nil.
                         myClass notNil ifTrue:[
                             aStream := myClass sourceStreamFor:source.
-aStream printCR.
+"/ aStream printCR.
                         ]
                     ]
                 ]                
@@ -2401,6 +2401,6 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.169 1999-02-27 16:43:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.170 1999-02-28 16:24:01 cg Exp $'
 ! !
 Method initialize!