--- a/ClassDefinitionChange.st	Fri Oct 13 01:33:24 2006 +0200
+++ b/ClassDefinitionChange.st	Wed Oct 18 13:12:31 2006 +0200
@@ -372,7 +372,7 @@
 
     source notNil ifTrue:[
         parseTree := Parser parseExpression:source.
-        parseTree isMessage ifFalse:[
+        (parseTree notNil and:[parseTree isMessage]) ifFalse:[
             self error:'bad change source'.
         ].
 
@@ -390,11 +390,11 @@
     ].
 
     "Created: / 11-10-2006 / 14:10:02 / cg"
-    "Modified: / 12-10-2006 / 23:02:38 / cg"
+    "Modified: / 17-10-2006 / 18:49:51 / cg"
 ! !
 
 !ClassDefinitionChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.41 2006-10-12 21:47:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.42 2006-10-18 11:12:31 cg Exp $'
 ! !