diff --git a/module/rnrs.scm b/module/rnrs.scm
index 4ba9e2a56..eb2ea85cf 100644
--- a/module/rnrs.scm
+++ b/module/rnrs.scm
@@ -236,7 +236,47 @@
 	  (rnrs control (6))
 	  (rnrs enums (6))
 	  (rnrs exceptions (6))
-	  (rnrs files (6))
+
+          ;; These i/o conditions are exported by (io simple), (files), and
+          ;; should be exported by (ports) but are not yet. Avoid duplicate
+          ;; bindings warnings, then, by excluding these bindings from all but
+          ;; (io simple).
+	  (except (rnrs files (6))
+                  &i/o make-i/o-error i/o-error?
+                  &i/o-read make-i/o-read-error i/o-read-error?
+                  &i/o-write make-i/o-write-error i/o-write-error?
+
+                  &i/o-invalid-position 
+                  make-i/o-invalid-position-error 
+                  i/o-invalid-position-error? 
+                  i/o-error-position
+	  
+                  &i/o-filename
+                  make-i/o-filename-error
+                  i/o-filename-error?
+                  i/o-error-filename
+	  
+                  &i/o-file-protection 
+                  make-i/o-file-protection-error
+                  i/o-file-protection-error?
+
+                  &i/o-file-is-read-only
+                  make-i/o-file-is-read-only-error
+                  i/o-file-is-read-only-error?
+
+                  &i/o-file-already-exists
+                  make-i/o-file-already-exists-error
+                  i/o-file-already-exists-error?
+
+                  &i/o-file-does-not-exist
+                  make-i/o-file-does-not-exist-error
+                  i/o-file-does-not-exist-error?
+
+                  &i/o-port
+                  make-i/o-port-error
+                  i/o-port-error?
+                  i/o-error-port)
+
 	  (rnrs hashtables (6))
 
 	  (rnrs io ports (6))