--- a/ClassDefinitionChange.st	Wed Oct 25 18:09:14 2006 +0200
+++ b/ClassDefinitionChange.st	Thu Oct 26 19:37:59 2006 +0200
@@ -373,7 +373,8 @@
     source notNil ifTrue:[
         parseTree := Parser parseExpression:source.
         (parseTree notNil and:[parseTree isMessage]) ifFalse:[
-            self error:'bad change source'.
+            self error:'bad change source' mayProceed:true.
+            ^ self
         ].
 
         definitionSelector := parseTree selector.
@@ -390,11 +391,11 @@
     ].
 
     "Created: / 11-10-2006 / 14:10:02 / cg"
-    "Modified: / 17-10-2006 / 18:49:51 / cg"
+    "Modified: / 26-10-2006 / 19:29:17 / cg"
 ! !
 
 !ClassDefinitionChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.42 2006-10-18 11:12:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.43 2006-10-26 17:37:59 cg Exp $'
 ! !