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