--- a/UIPainter.st	Tue Oct 28 20:28:46 2003 +0100
+++ b/UIPainter.st	Tue Oct 28 21:25:36 2003 +0100
@@ -2746,17 +2746,17 @@
     (self aspectFor:#superclassNameChannel) value:superClassName.
 
     self painter 
-	    className:clsName 
-	    superclassName:superClassName
-	    selector:(selector ? '').
+            className:clsName 
+            superclassName:superClassName
+            selector:(selector ? '').
 
     self specClass:clsName.
     specSelector := (selector ? '').
     specSuperclass := superClassName.
 
-    specClass notNil & selector notNil ifTrue:[
-	self addToHistory: (specClass, ' ', specSelector) -> #loadFromMessage:.
-	self updateInfoLabel
+    (specClass notNil and:[ selector notNil ]) ifTrue:[
+        self addToHistory: (specClass, ' ', specSelector) -> #loadFromMessage:.
+        self updateInfoLabel
     ].
 
     "Modified: / 5.2.1998 / 09:44:58 / stefan"