From 9233090af75cb04b4dd874e7c03f23a3cd3f859f Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 26 Apr 2005 20:30:09 +0000
Subject: [PATCH] .

original commit: 4ffc43c36c67f9d966ff670cebd787bd4fe7a47f
---
 collects/mzlib/port.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/mzlib/port.ss b/collects/mzlib/port.ss
index 1c705cf..9cb9d7f 100644
--- a/collects/mzlib/port.ss
+++ b/collects/mzlib/port.ss
@@ -496,10 +496,11 @@
 	 (lambda ()
 	   (let-values ([(l c p) (port-next-location p)])
 	     (values (and l (+ l (- init-l) line))
-		     (and c (if (eq? l 1)
+		     (and c (if (equal? l init-l)
 				(+ c (- init-c) col)
 				c))
 		     (and p (+ p (- init-p) pos)))))
+	 void
 	 pos))))
 
   ;; Not kill-safe.