--- a/WindowBuilder.st	Mon Jul 25 17:31:41 2011 +0200
+++ b/WindowBuilder.st	Mon Jul 25 17:32:15 2011 +0200
@@ -236,30 +236,30 @@
     |b|
 
     aSymbol notNil ifTrue:[
-	bindings notNil ifTrue:[
-	    b := bindings at:aSymbol ifAbsent:nil.
-	    b notNil ifTrue:[^ b].
-	].
+        bindings notNil ifTrue:[
+            b := bindings at:aSymbol ifAbsent:nil.
+            b notNil ifTrue:[^ b].
+        ].
 
-	application notNil ifTrue:[
-	    MessageNotUnderstood
-		ignoreNotUnderstoodOf:aSymbol
-		in:[
-		    ^ application aspectFor:aSymbol
-		].
-	    MessageNotUnderstood
-		ignoreNotUnderstoodOf:aSymbol
-		in:[
-		    ^ application class aspectFor:aSymbol
-		].
+        application notNil ifTrue:[
+            MessageNotUnderstood
+                ignoreNotUnderstoodOf:aSymbol
+                in:[
+                    ^ application aspectFor:aSymbol
+                ].
+            MessageNotUnderstood
+                ignoreNotUnderstoodOf:aSymbol
+                in:[
+                    ^ application class aspectFor:aSymbol
+                ].
 
-	    ^ exceptionBlock value.
-	]
+            ^ exceptionBlock value.
+        ]
     ].
     ^ nil
 
-    "Created: / 4.8.1998 / 19:28:30 / cg"
-    "Modified: / 4.8.1998 / 19:37:02 / cg"
+    "Created: / 04-08-1998 / 19:28:30 / cg"
+    "Modified: / 25-07-2011 / 15:29:25 / cg"
 !
 
 aspectAt:aSymbol put:aModel
@@ -1624,9 +1624,9 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.149 2011-03-22 12:32:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.150 2011-07-25 15:32:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.149 2011-03-22 12:32:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.150 2011-07-25 15:32:15 cg Exp $'
 ! !