--- a/FileStream.st	Sat Feb 11 17:42:24 1995 +0100
+++ b/FileStream.st	Wed Feb 15 11:22:05 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.18 1995-02-05 21:29:58 claus Exp $
+$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.19 1995-02-15 10:22:03 claus Exp $
 '!
 
 !FileStream class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.18 1995-02-05 21:29:58 claus Exp $
+$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.19 1995-02-15 10:22:03 claus Exp $
 "
 !
 
@@ -598,10 +598,11 @@
 
     FILE *f;
     int ret;
+    OBJ fp;
 
-    if (_INST(filePointer) != nil) {
-	if (_isSmallInteger(newPos)) {
-	    f = (FILE *)MKFD(_INST(filePointer));
+    if ((fp = _INST(filePointer)) != nil) {
+	if (__isSmallInteger(newPos)) {
+	    f = (FILE *)MKFD(fp);
 	    /*
 	     * notice: Smalltalk index starts at 1
 	     */