--- a/FileStr.st	Fri Oct 28 02:22:49 1994 +0100
+++ b/FileStr.st	Fri Oct 28 02:22:55 1994 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Attic/FileStr.st,v 1.15 1994-10-10 00:26:04 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/FileStr.st,v 1.16 1994-10-28 01:22:55 claus Exp $
 '!
 
 !FileStream class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Attic/FileStr.st,v 1.15 1994-10-10 00:26:04 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/FileStr.st,v 1.16 1994-10-28 01:22:55 claus Exp $
 "
 !
 
@@ -57,6 +57,8 @@
 "
 ! !
 
+!FileStream class primitiveDefinitions!
+
 %{
 #include <stdio.h>
 #include <errno.h>
@@ -87,6 +89,7 @@
 #endif
 
 %}
+! !
 
 !FileStream class methodsFor:'initialization'!
 
@@ -482,17 +485,20 @@
 reOpen
     "sent after snapin to reopen streams"
 
+    |oldPos|
+
     filePointer notNil ifTrue:[
 	"it was open, when snapped-out"
 	filePointer := nil.
 	Lobby unregister:self.
+	oldPos := position.
 	self open.
 	filePointer isNil ifTrue:[
 	    "this happens, if after a restart, the file is no longer accessable ..."
 
 	    ('could not reopen file: ', pathName) errorPrintNewline.
 	] ifFalse:[
-	    self position:position.
+	    self position:oldPos.
 	]
     ]
 ! !