--- 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.