--- a/Class.st	Sat Oct 12 17:50:16 1996 +0200
+++ b/Class.st	Sat Oct 12 18:25:03 1996 +0200
@@ -3648,67 +3648,67 @@
     "/
     ((mgr := self sourceCodeManager) isNil 
     or:[TryLocalSourceFirst == true]) ifTrue:[
-	fileName := Smalltalk getSourceFileName:source.
-	fileName notNil ifTrue:[
-	    aStream := fileName asFilename readStream.
-	]
+        fileName := Smalltalk getSourceFileName:source.
+        fileName notNil ifTrue:[
+            aStream := fileName asFilename readStream.
+        ]
     ].
 
     aStream isNil ifTrue:[
-	"/      
-	"/ hard case - there is no source file for this class
-	"/ (in the source-dir-path).
-	"/      
-
-	"/      
-	"/ look if my binary is from a dynamically loaded module,
-	"/ and, if so, look in the modules directory for the
-	"/ source file.
-	"/      
-	ObjectFileLoader notNil ifTrue:[
-	    ObjectFileLoader loadedObjectHandlesDo:[:h |
-		|f classes|
-
-		aStream isNil ifTrue:[
-		    (classes := h classes) notNil ifTrue:[
-			(classes includes:self) ifTrue:[
-			    f := h pathName.
-			    f := f asFilename directory.
-			    f := f construct:source.
-			    f exists ifTrue:[
-				aStream := f readStream.
-			    ].
-			].
-		    ].
-		]
-	    ].
-	].
+        "/      
+        "/ hard case - there is no source file for this class
+        "/ (in the source-dir-path).
+        "/      
+
+        "/      
+        "/ look if my binary is from a dynamically loaded module,
+        "/ and, if so, look in the modules directory for the
+        "/ source file.
+        "/      
+        ObjectFileLoader notNil ifTrue:[
+            ObjectFileLoader loadedObjectHandlesDo:[:h |
+                |f classes|
+
+                aStream isNil ifTrue:[
+                    (classes := h classes) notNil ifTrue:[
+                        (classes includes:self) ifTrue:[
+                            f := h pathName.
+                            f := f asFilename directory.
+                            f := f construct:source.
+                            f exists ifTrue:[
+                                aStream := f readStream.
+                            ].
+                        ].
+                    ].
+                ]
+            ].
+        ].
     ].
 
     aStream isNil ifTrue:[
 
-	"/ mhmh - still no source file.
-	"/ If there is a SourceCodeManager, ask it to aquire the
-	"/ the source for my class, and return an open stream on it. 
-	"/ if that one does not know about the source, look in
-	"/ standard places
-
-	mgr notNil ifTrue:[
-	    aStream := mgr sourceStreamFor:self.
-	    aStream isNil ifTrue:[
-		fileName := Smalltalk getSourceFileName:source.
-		fileName notNil ifTrue:[
-		    aStream := fileName asFilename readStream.
-		]
-	    ].
-	].
-
-	"/
-	"/ final chance: try current directory
-	"/
-	aStream isNil ifTrue:[
-	    aStream := source asFilename readStream.
-	].
+        "/ mhmh - still no source file.
+        "/ If there is a SourceCodeManager, ask it to aquire the
+        "/ the source for my class, and return an open stream on it. 
+        "/ if that one does not know about the source, look in
+        "/ standard places
+
+        mgr notNil ifTrue:[
+            aStream := mgr getSourceStreamFor:self.
+            aStream isNil ifTrue:[
+                fileName := Smalltalk getSourceFileName:source.
+                fileName notNil ifTrue:[
+                    aStream := fileName asFilename readStream.
+                ]
+            ].
+        ].
+
+        "/
+        "/ final chance: try current directory
+        "/
+        aStream isNil ifTrue:[
+            aStream := source asFilename readStream.
+        ].
     ].
 
     ^ aStream
@@ -3720,7 +3720,7 @@
     "
 
     "Created: 10.11.1995 / 21:05:13 / cg"
-    "Modified: 7.12.1995 / 13:21:16 / cg"
+    "Modified: 12.10.1996 / 17:21:10 / cg"
 !
 
 updateVersionMethodFor:newRevisionString
@@ -4074,6 +4074,6 @@
 !Class  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.175 1996-10-12 15:50:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.176 1996-10-12 16:25:03 cg Exp $'
 ! !
 Class initialize!