From 432e1d9b87591e52e403a980e59967b496b28a31 Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Sun, 8 Jun 2008 06:25:22 -0700
Subject: [PATCH] replaced &i/o-write with &i/o-read for IO read errors.  Duuh.

---
 scheme/ikarus.io.ss  | 2 +-
 scheme/last-revision | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/scheme/ikarus.io.ss b/scheme/ikarus.io.ss
index c092560..8a0c6bd 100644
--- a/scheme/ikarus.io.ss
+++ b/scheme/ikarus.io.ss
@@ -1266,7 +1266,7 @@
                                  (refill bv idx cnt)]
                                 [else 
                                  (io-error 'read id bytes
-                                   (make-i/o-write-error))])))])
+                                   (make-i/o-read-error))])))])
                   refill)
                 #f ;;; write!
                 #f ;;; get-position
diff --git a/scheme/last-revision b/scheme/last-revision
index 96764d9..34f46ed 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1502
+1504