From cc3f5b07bc472ae0f872dd3bd75baa4cd5b83e53 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Mon, 3 Mar 2003 09:43:17 +0000
Subject: [PATCH] Fixed typo in error message.

---
 scsh/newports.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scsh/newports.scm b/scsh/newports.scm
index 2b28307..3741414 100644
--- a/scsh/newports.scm
+++ b/scsh/newports.scm
@@ -623,7 +623,7 @@
     (let ((stream (:optional maybe-i/o (current-output-port))))
       (cond ((output-port? stream) (s48name arg ... stream))
 	    ((integer? stream) body ...)
-	    (else (error "Not a outport or file descriptor" stream))))))
+	    (else (error "Not an outport or file descriptor" stream))))))
 
 ;;; This one depends upon S48's string ports.
 (define-r4rs-output (display object) output s48-display