--- a/SimpleView.st	Wed Apr 24 16:57:26 2013 +0200
+++ b/SimpleView.st	Thu Apr 25 15:10:24 2013 +0200
@@ -8835,7 +8835,7 @@
 
     myClass := self class.
     (myClass == View or:[myClass == SimpleView]) ifTrue:[
-	^ ViewSpec "/ CompositeSpecCollection
+        ^ ViewSpec "/ CompositeSpecCollection
     ].
 
     "/ try: appending 'Spec' to my classes name
@@ -8843,8 +8843,8 @@
     myName := self class name.
     cls := Smalltalk classNamed:(myName , 'Spec').
     cls notNil ifTrue:[
-	cls := cls autoload.
-	(cls isSubclassOf:UISpecification) ifTrue:[^ cls].
+        cls := cls autoload.
+        (cls isSubclassOf:UISpecification) ifTrue:[^ cls].
     ].
 
     (myName endsWith:'View') ifTrue:[
@@ -8855,12 +8855,12 @@
 "/            (cls isSubclassOf:UISpecification) ifTrue:[^ cls].
 "/        ].
 
-	"/ try with 'View' replaced by 'Spec'
-	cls := Smalltalk classNamed:((myName copyWithoutLast:4) , 'View').
-	cls notNil ifTrue:[
-	    cls := cls autoload.
-	    (cls isSubclassOf:UISpecification) ifTrue:[^ cls].
-	]
+        "/ try with 'View' replaced by 'Spec'
+        cls := Smalltalk classNamed:((myName copyButLast:4) , 'View').
+        cls notNil ifTrue:[
+            cls := cls autoload.
+            (cls isSubclassOf:UISpecification) ifTrue:[^ cls].
+        ]
     ].
 
     "/ fall back for all others
@@ -10992,15 +10992,16 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.716 2013-01-07 15:06:21 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.717 2013-04-25 13:10:24 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.716 2013-01-07 15:06:21 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.717 2013-04-25 13:10:24 stefan Exp $'
 !
 
 version_SVN
     ^ '§ Id §'
 ! !
 
+
 SimpleView initialize!