diff --git a/lib/modules/Stdio.pmod b/lib/modules/Stdio.pmod
index f25d4da1184a4a7714309a7338cab4e5b5bd4c05..cb63433e963d5c176385570f05fdaa0988d3eb16 100644
--- a/lib/modules/Stdio.pmod
+++ b/lib/modules/Stdio.pmod
@@ -1,4 +1,4 @@
-// $Id: Stdio.pmod,v 1.37 1999/01/30 01:22:09 grubba Exp $
+// $Id: Stdio.pmod,v 1.38 1999/04/21 06:55:40 js Exp $
 
 #include <string.h>
 
@@ -394,7 +394,10 @@ class FILE {
       string s;
       s=b[bpos..bpos+bytes-1];
       bpos += bytes+skip;
-      return s;
+      if(sizeof(s) && s[-1]=='\r')
+	return s[..sizeof(s)-2];
+      else
+	return s;
     }