--- a/ChangeSet.st	Tue Dec 21 11:53:39 2004 +0100
+++ b/ChangeSet.st	Thu Jan 13 11:07:27 2005 +0100
@@ -475,7 +475,7 @@
     pos := stream position.
     chunk := stream nextChunk.
     tree := (Parser parseExpression:chunk).
-    (tree notNil and:[tree ~~ #Error]) ifTrue:[
+    (tree isNil or:[tree == #Error]) ifTrue:[
         stream position:pos
     ].
 ! !
@@ -1942,5 +1942,5 @@
 !ChangeSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.112 2004-08-12 09:22:13 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.113 2005-01-13 10:07:27 cg Exp $'
 ! !