New upstream version 3b5upstream/3b5upstream

1 files changed, 3 insertions, 3 deletions

diff --git a/trnscrpt.scm b/trnscrpt.scm
index d801621..844e115 100644..100755
--- a/trnscrpt.scm
+++ b/trnscrpt.scm
@@ -50,21 +50,21 @@
 (define write-char
   (let ((wrt-chr write-char))
     (lambda (obj . opt)
-      (apply wrt-chr obj opt)
+      (apply wrt-chr (cons obj opt))
       (if (output-port? transcript:port)
 	  (wrt-chr obj transcript:port)))))
 ;@
 (define write
   (let ((wrt write))
     (lambda (obj . opt)
-      (apply wrt obj opt)
+      (apply wrt (cons obj opt))
       (if (output-port? transcript:port)
 	  (wrt obj transcript:port)))))
 ;@
 (define display
   (let ((dspl display))
     (lambda (obj . opt)
-      (apply dspl obj opt)
+      (apply dspl (cons obj opt))
       (if (output-port? transcript:port)
 	  (dspl obj transcript:port)))))
 ;@