From 1c11d900c0ad03e5c99687ffc718a5dd1de3f96c Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Mon, 6 Oct 1997 13:19:47 +0000
Subject: [PATCH] * boot-9.scm (inherit-print-state): If NEW-PORT contains a
 print-state, throw it away.

---
 ice-9/boot-9.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 60f017cf4..c1e27ab0d 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -2841,5 +2841,6 @@
 
 (define (inherit-print-state old-port new-port)
   (if (pair? old-port)
-      (cons new-port (cdr old-port))
+      (cons (if (pair? new-port) (car new-port) new-port)
+	    (cdr old-port))
       new-port))