--- a/Socket.st	Thu Nov 02 13:00:07 1995 +0100
+++ b/Socket.st	Thu Nov 02 16:16:42 1995 +0100
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.34 1995-11-02 11:19:22 cg Exp $
+$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.35 1995-11-02 15:16:42 cg Exp $
 '!
 
 !Socket class methodsFor:'documentation'!
@@ -43,7 +43,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.34 1995-11-02 11:19:22 cg Exp $
+$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.35 1995-11-02 15:16:42 cg Exp $
 "
 !
 
@@ -1901,7 +1901,7 @@
     int flags = 0;
 
     if (fp != nil) {
-	sock = fileno((FILE *)(_intVal(fp)));
+	sock = fileno(MKFD(fp));
 
 	oClass = __Class(aDataBuffer);
 	switch (_intVal(_ClassInstPtr(oClass)->c_flags) & ARRAYMASK) {
@@ -2051,7 +2051,7 @@
     if ((fp != nil) 
      && __isSmallInteger(startIndex)
      && __isSmallInteger(count)) {
-	sock = fileno((FILE *)(_intVal(fp)));
+	sock = fileno(MKFD(fp));
 
 	if (addrBytes != nil) {
 	    if (! __isByteArray(addrBytes)) goto bad;