--- a/UIPainter.st	Tue Jun 17 14:14:41 1997 +0200
+++ b/UIPainter.st	Tue Jun 17 14:19:30 1997 +0200
@@ -1126,6 +1126,11 @@
 
     [
         again := false.
+
+        aspects at:#classNameChannel put:specClass asValue.
+        aspects at:#methodNameChannel put:specSelector asValue.
+        aspects at:#superclassNameChannel put:specSuperclass asValue.
+
         (self openDialogInterface:#nameAndSelectorSpec) ifTrue:[
 
             specClass := (self aspectFor:#classNameChannel) value.
@@ -1141,7 +1146,7 @@
 
     ] doWhile:[again]
 
-    "Modified: 17.6.1997 / 13:04:26 / cg"
+    "Modified: 17.6.1997 / 14:18:19 / cg"
 ! !
 
 !UIPainter methodsFor:'user interaction - pullDown'!