--- a/UIPainter.st	Mon Dec 03 12:25:20 2007 +0100
+++ b/UIPainter.st	Wed Dec 05 11:54:52 2007 +0100
@@ -3896,7 +3896,7 @@
         aspects at:#superclassNameChannel put:(specSuperclassName ? 'ApplicationModel') asValue.
 
         (self openDialogInterface:#dialogSpecForDefiningClassAndSelector) ifTrue:[
-            specClassName      := readFromModelKeyed value:#classNameChannel.
+            specClassName  := readFromModelKeyed value:#classNameChannel.
             specSelector   := readFromModelKeyed value:#methodNameChannel.
             specSuperclassName := readFromModelKeyed value:#superclassNameChannel.