--- a/Class.st	Wed Jan 26 17:11:42 2005 +0100
+++ b/Class.st	Wed Jan 26 17:54:37 2005 +0100
@@ -4431,17 +4431,17 @@
     (owner := self owningClass) notNil ifTrue:[^ owner sourceStream].
 
     classFilename notNil ifTrue:[
-	source := classFilename
+        source := classFilename
     ] ifFalse:[
-	source := (Smalltalk fileNameForClass:self) , '.st'
+        source := (Smalltalk fileNameForClass:self) , '.st'
     ].
     stream := self sourceStreamFor:source.
     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).
-	].
+        "/ see if its utf8 encoded...
+        encoding := CharacterEncoder guessEncodingOfStream:stream.
+        (encoding notNil and:[encoding ~~ #'iso8859-1' and:[encoding ~~ #'ascii']]) ifTrue:[
+            stream := EncodedStream stream:stream encoder:(CharacterEncoder encoderFor:encoding).
+        ].
     ].
     ^ stream.
 !
@@ -4889,5 +4889,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.477 2004-09-30 09:49:17 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.478 2005-01-26 16:54:08 cg Exp $'
 ! !