--- a/Method.st	Tue Mar 09 23:01:20 2004 +0100
+++ b/Method.st	Wed Mar 10 01:12:27 2004 +0100
@@ -1884,14 +1884,19 @@
 sourceStream
     "return an open sourceStream (needs positioning)"
 
-    |stream|
+    |stream encoding|
 
     stream := self rawSourceStream.
     stream notNil ifTrue:[
+        "/ see if its utf8 encoded...
+        encoding := SourceCodeManagerUtilities guessEncodingOfStream:stream.
+        (encoding notNil and:[encoding ~~ #'iso8859-1' and:[encoding ~~ #'ascii']]) ifTrue:[
+            stream := EncodedStream stream:stream encoder:(CharacterEncoder encoderFor:encoding).
+        ].
         stream isExternalStream ifTrue:[
             LastSourceFileName := source.
             LastFileReference at:1 put:stream.
-        ]
+        ].
     ].
     ^ stream
 ! !
@@ -2895,7 +2900,7 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.266 2004-03-09 21:35:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.267 2004-03-10 00:12:19 cg Exp $'
 ! !
 
 Method initialize!