From 5deeb28bbe32b2bdad1da751aef3f385d8c9981c Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Fri, 14 Dec 2007 19:42:00 -0500
Subject: [PATCH] Fixes bug 175517: Custom textual output port not recognized
 as a textual port

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

diff --git a/scheme/ikarus.io.ss b/scheme/ikarus.io.ss
index 0d7edb2..90fccb7 100644
--- a/scheme/ikarus.io.ss
+++ b/scheme/ikarus.io.ss
@@ -304,7 +304,7 @@
     (unless (or (procedure? close) (not close))
       (error who "close should be either a procedure or #f" close))
     ($make-custom-textual-port 
-      textual-input-port-bits
+      (fxior textual-input-port-bits fast-char-text-tag)
       0
       id read! #f get-position
       set-position! close 256))
@@ -320,7 +320,7 @@
     (unless (or (procedure? close) (not close))
       (error who "close should be either a procedure or #f" close))
     ($make-custom-textual-port 
-      textual-output-port-bits
+      (fxior textual-output-port-bits fast-char-text-tag)
       256
       id #f write! get-position
       set-position! close 256))
diff --git a/scheme/last-revision b/scheme/last-revision
index 183f97e..bd9b507 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1241
+1242