NPExtStr.st
changeset 479 52ca0d10bc9a
parent 477 8710aba7876b
child 530 07d0bce293c9
--- a/NPExtStr.st	Fri Nov 03 13:31:03 1995 +0100
+++ b/NPExtStr.st	Fri Nov 03 13:34:46 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Attic/NPExtStr.st,v 1.19 1995-11-03 12:14:40 cg Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/NPExtStr.st,v 1.20 1995-11-03 12:34:46 cg Exp $
 '!
 
 !NonPositionableExternalStream class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Attic/NPExtStr.st,v 1.19 1995-11-03 12:14:40 cg Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/NPExtStr.st,v 1.20 1995-11-03 12:34:46 cg Exp $
 "
 !
 
@@ -186,7 +186,7 @@
 %{
     OBJ fp;
 
-    _INST(filePointer) = __MKOBJ(stdin); __STORE(self, fp);
+    _INST(filePointer) = fp = __MKOBJ(stdin); __STORE(self, fp);
 %}
 !
 
@@ -198,7 +198,7 @@
 %{
     OBJ fp;
 
-    _INST(filePointer) = __MKOBJ(stdout); __STORE(self, fp);
+    _INST(filePointer) = fp = __MKOBJ(stdout); __STORE(self, fp);
 %}
 !