diff --git a/scheme/read.sld b/scheme/read.sld
index 47f35c46..f673cead 100644
--- a/scheme/read.sld
+++ b/scheme/read.sld
@@ -14,6 +14,7 @@
     read
     read-all
     include
+    include-ci
   )
   (begin
 
@@ -32,6 +33,11 @@
                 (read-all port))))
           (cdr expr)))))))
 
+(define-syntax include-ci
+  (er-macro-transformer
+   (lambda (expr rename compare)
+    `(include ,@(cdr expr)))))
+
 (define read cyc-read)
 
 ;; Extended information for each input port