--- a/ExternalStream.st	Sun Jan 09 22:25:58 1994 +0100
+++ b/ExternalStream.st	Wed Jan 12 20:11:58 1994 +0100
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.11 1994-01-09 21:15:45 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.12 1994-01-12 19:08:29 claus Exp $
 
 written 88 by claus
 '!
@@ -31,6 +31,11 @@
 #include <stdio.h>
 #include <fcntl.h>
 #include <errno.h>
+
+#ifdef hpux
+# define fileno(f)      ((f->__fileH << 8) | (f->__fileL))
+#endif
+
 %}
 
 !ExternalStream class methodsFor:'documentation'!