From d3a3a665ebe0a57ca5830bf301df2127f03fec92 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 19 Jun 2005 15:19:24 +0000
Subject: [PATCH] fix to special handling via peek

svn: r218
---
 src/mzscheme/src/port.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/port.c b/src/mzscheme/src/port.c
index f8ff1126db..bd7d407a93 100644
--- a/src/mzscheme/src/port.c
+++ b/src/mzscheme/src/port.c
@@ -2659,7 +2659,7 @@ Scheme_Object *scheme_get_special(Scheme_Object *port,
     /* do location increment, since read didn't */
     if (line > 0)
       line++;
-    if (col > 0)
+    if (col >= 0)
       col++;
     if (pos > 0)
       pos++;