--- a/MethodChange.st	Wed Sep 07 21:27:48 2011 +0200
+++ b/MethodChange.st	Wed Sep 07 21:27:56 2011 +0200
@@ -254,6 +254,8 @@
                 replacementClassName := Dialog 
                                 request:('Cannot apply change for missing class: %1\\Use replacement class (or press cancel)' bindWith:className) withCRs
                                 initialAnswer:suggestion.
+                replacementClassName isNil ifTrue:[ AbortSignal raise ].
+
                 (replacementClassName isEmptyOrNil
                 or:[ (class := Smalltalk classNamed:replacementClassName) isNil]) ifTrue:[
                     self error:('Cannot apply change for missing class: ' , replacementClassName) mayProceed:true.
@@ -270,7 +272,7 @@
     ].
     class compile:source classified:methodCategory logged:true.
 
-    "Modified: / 07-09-2011 / 15:39:16 / cg"
+    "Modified: / 07-09-2011 / 21:09:19 / cg"
 ! !
 
 !MethodChange methodsFor:'comparing'!
@@ -431,7 +433,7 @@
 !MethodChange class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.61 2011-09-07 13:42:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.62 2011-09-07 19:27:56 cg Exp $'
 !
 
 version_SVN