diff --git a/module/rnrs/io/ports.scm b/module/rnrs/io/ports.scm
index d3b16ac63..662db1908 100644
--- a/module/rnrs/io/ports.scm
+++ b/module/rnrs/io/ports.scm
@@ -76,6 +76,7 @@
 
           ;; standard ports
           standard-input-port standard-output-port standard-error-port
+          current-input-port current-output-port current-error-port
 
           ;; condition types
           &i/o i/o-error? make-i/o-error