~ chicken-core (chicken-5) 1e04156d9cc20643efc8a130a828178c4caf51d9

commit 1e04156d9cc20643efc8a130a828178c4caf51d9
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Oct 25 13:06:47 2011 +0200
Commit:     Christian Kellermann <ckeen@pestilenz.org>
CommitDate: Wed Oct 26 10:39:17 2011 +0200

    use write-string port-class method
    
    Signed-off-by: Christian Kellermann <ckeen@pestilenz.org>

diff --git a/extras.scm b/extras.scm
index c5c91609..c01c0f37 100644
--- a/extras.scm
+++ b/extras.scm
@@ -245,11 +245,11 @@
     (let-optionals more ([n #f] [port ##sys#standard-output])
       (##sys#check-output-port port #t 'write-string)
       (when n (##sys#check-exact n 'write-string))
-      (display 
+      ((##sys#slot (##sys#slot port 2) 3) ; write-string
+       port
        (if (and n (fx< n (##sys#size s)))
 	   (##sys#substring s 0 n)
-	   s)
-       port) ) ) )
+	   s)))))
 
 
 ;;; Binary I/O