--- a/ChangeSet.st	Thu Jan 13 11:07:27 2005 +0100
+++ b/ChangeSet.st	Thu Jan 13 23:09:08 2005 +0100
@@ -475,9 +475,9 @@
     pos := stream position.
     chunk := stream nextChunk.
     tree := (Parser parseExpression:chunk).
-    (tree isNil or:[tree == #Error]) ifTrue:[
-        stream position:pos
-    ].
+    tree isNil ifTrue:[^ self].
+    tree == #Error ifTrue:[^ self].
+    stream position:pos
 ! !
 
 !ChangeSet class methodsFor:'queries'!
@@ -1942,5 +1942,5 @@
 !ChangeSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.113 2005-01-13 10:07:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.114 2005-01-13 22:09:08 cg Exp $'
 ! !