--- a/ChangeSet.st Fri Jan 14 11:08:02 2005 +0100
+++ b/ChangeSet.st Fri Jan 14 11:12:58 2005 +0100
@@ -475,7 +475,7 @@
pos := stream position.
chunk := stream nextChunk.
tree := (Parser parseExpression:chunk).
- (tree isNil or:[tree == #Error]) ifTrue:[^ self].
+ tree isNil ifTrue:[^ self].
stream position:pos
! !
@@ -1941,5 +1941,5 @@
!ChangeSet class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.115 2005-01-14 10:08:02 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.116 2005-01-14 10:12:58 cg Exp $'
! !