diff --git a/lib/chibi/stty.scm b/lib/chibi/stty.scm
index 964969bf..b4e36669 100644
--- a/lib/chibi/stty.scm
+++ b/lib/chibi/stty.scm
@@ -235,7 +235,7 @@
     (cond
      (orig-attrs
       (dynamic-wind
-        (lambda () (stty setting))
+        (lambda () (stty port setting))
         thunk
         (lambda () (set-terminal-attributes! port TCSANOW orig-attrs))))
      (else