--- a/ObjectFileLoader.st	Sun Sep 26 13:12:37 1999 +0200
+++ b/ObjectFileLoader.st	Mon Oct 04 13:15:43 1999 +0200
@@ -3979,24 +3979,26 @@
      (req'd if a subclass of an autoloaded class has been loaded)"
 
     Verbose ifTrue:[
-	'checkCall for:' infoPrint. aClass name infoPrint. ' -> ' infoPrint.
+        'checkCall for:' infoPrint. aClass name infoPrint. ' -> ' infoPrint.
     ].
     aClass isBehavior ifFalse:[
-	Verbose ifTrue:[
-	    'false' infoPrintCR. 
-	].
-	'ObjectFileLoader [warning]: check failed - no behavior' errorPrintCR.
-	^ false
+        Verbose ifTrue:[
+            'false' infoPrintCR. 
+        ].
+        'ObjectFileLoader [warning]: check failed - no behavior' errorPrintCR.
+        ^ false
     ].
     Verbose ifTrue:[
-	'true' infoPrintCR. 
+        'true' infoPrintCR. 
+        ('ObjectFileLoader [info]: check for ' , aClass name , ' being loaded') infoPrintCR.
     ].
-    ('ObjectFileLoader [info]: check for ' , aClass name , ' being loaded') infoPrintCR.
     aClass autoload.
     (aClass isBehavior and:[aClass isLoaded]) ifTrue:[
-	('ObjectFileLoader [info]: ok, loaded. continue registration of actual class') infoPrintCR.
-	aClass signature.       "/ req'd in VM for validation
-	^ true
+        Verbose ifTrue:[
+            ('ObjectFileLoader [info]: ok, loaded. continue registration of actual class') infoPrintCR.
+        ].
+        aClass signature.       "/ req'd in VM for validation
+        ^ true
     ].
     ('ObjectFileLoader [warning]: superclass not loaded; registration of ' , aClass name , ' fails') errorPrintCR.
     ^ false
@@ -4024,6 +4026,6 @@
 !ObjectFileLoader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.208 1999-09-21 18:37:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.209 1999-10-04 11:15:43 cg Exp $'
 ! !
 ObjectFileLoader initialize!