--- ports.c.~1.193.~	2004-08-20 11:00:31.000000000 +1000
+++ ports.c	2004-08-23 15:18:44.000000000 +1000
@@ -1013,6 +1013,9 @@
       case '\n':
         SCM_INCLINE (port);
         break;
+      case '\r':
+        SCM_ZEROCOL (port);
+        break;
       case '\t':
         SCM_TABCOL (port);
         break;
@@ -1056,6 +1059,9 @@
     if (*ptr == '\n') {
       SCM_INCLINE(port);
     }
+    else if (*ptr == '\r') {
+      SCM_ZEROCOL(port);
+    }
     else if (*ptr == '\t') {
       SCM_TABCOL(port);
     }