--- a/SimpleView.st	Tue Jun 25 19:28:06 2002 +0200
+++ b/SimpleView.st	Tue Jul 02 14:35:42 2002 +0200
@@ -7303,7 +7303,7 @@
 
     ((myClass := self class) == View
     or:[myClass == SimpleView]) ifTrue:[
-	^ ViewSpec "/ CompositeSpecCollection
+        ^ ViewSpec "/ CompositeSpecCollection
     ].
 
     "/ try: appending 'Spec' to my classes name
@@ -7311,10 +7311,8 @@
     myName := self class name.
     cls := Smalltalk classNamed:(myName , 'Spec').
     cls notNil ifTrue:[
-	cls isLoaded ifFalse:[
-	    cls autoload
-	].
-	(cls notNil and:[cls isSubclassOf:UISpecification]) ifTrue:[^ cls].
+        cls autoload.
+        (cls notNil and:[cls isSubclassOf:UISpecification]) ifTrue:[^ cls].
     ].
 
     (myName endsWith:'View') ifTrue:[
@@ -7325,14 +7323,12 @@
 "/        ].
 "/        (cls notNil and:[cls isSubclassOf:UISpecification]) ifTrue:[^ cls].
 
-	"/ try with 'View' replaced by 'Spec'
-	cls := Smalltalk classNamed:((myName copyWithoutLast:4) , 'View').
-	cls notNil ifTrue:[
-	    cls isLoaded ifFalse:[
-		cls autoload
-	    ].
-	    (cls notNil and:[cls isSubclassOf:UISpecification]) ifTrue:[^ cls].
-	]
+        "/ try with 'View' replaced by 'Spec'
+        cls := Smalltalk classNamed:((myName copyWithoutLast:4) , 'View').
+        cls notNil ifTrue:[
+            cls autoload.
+            (cls notNil and:[cls isSubclassOf:UISpecification]) ifTrue:[^ cls].
+        ]
     ].
 
     "/ fallBack for all others
@@ -9285,6 +9281,6 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.440 2002-05-14 13:40:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.441 2002-07-02 12:35:42 stefan Exp $'
 ! !
 SimpleView initialize!