ExternalStream.st
changeset 17475 a31762a088b7
parent 17474 18c7b1b817b4
child 17533 e7d0b89faa1a
--- a/ExternalStream.st	Mon Feb 16 19:41:02 2015 +0100
+++ b/ExternalStream.st	Mon Feb 16 20:17:03 2015 +0100
@@ -6016,13 +6016,13 @@
 			    buf = newBuf;
 			}
 
-			if ((c = *sp++) == '\n') {
+			if ((c = *sp) != '\n') {
+			    *dp++ = c;
+			} else {
 			    *dp++ = sep[0];
 			    if (sepLen == 2) {
 				*dp++ = sep[1];
 			    };
-			} else {
-			    *dp++ = c;
 			}
 		    }
 
@@ -6201,7 +6201,7 @@
 			    buf = newBuf;
 			}
 
-			if ((c = *sp++) == '\n') {
+			if ((c = *sp) == '\n') {
 			    *dp++ = sep[0];
 			    if (sepLen == 2) {
 				*dp++ = sep[1];
@@ -6435,11 +6435,11 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.408 2015-02-16 18:41:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.409 2015-02-16 19:17:03 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.408 2015-02-16 18:41:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.409 2015-02-16 19:17:03 cg Exp $'
 ! !