--- a/UIPainter.st	Mon Jan 16 23:53:38 2017 +0000
+++ b/UIPainter.st	Wed Jan 18 23:45:00 2017 +0000
@@ -5805,7 +5805,7 @@
 doDefineClassAndSelector
     "launches a dialog for defining class, superclass, and selector of the application"
 
-    |again readFromModelKeyed|
+    | again readFromModelKeyed |
 
     readFromModelKeyed := [:aKey| |ret|
         ret := (self aspectValueFor:aKey).
@@ -5858,12 +5858,14 @@
     specClassName := specClassName isBehavior 
                         ifTrue:[specClassName name]
                         ifFalse:[specClassName].
+    specClass := self resolveName: specClassName.  
 
     self clearModifiedFlag.
-    self helpTool buildAndMergeFromClass:specClassName.
+    self helpTool buildAndMergeFromClass:specClass.
     self updateInfoLabel
 
-    "Modified: / 16.7.1998 / 18:26:33 / cg"
+    "Modified: / 16-07-1998 / 18:26:33 / cg"
+    "Modified: / 18-01-2017 / 23:38:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 doDefineGrid
@@ -7561,6 +7563,11 @@
 
 version_CVS
     ^ '$Header$'
+!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
 ! !