diff --git a/contrib/20.r7rs/scheme/base.scm b/contrib/20.r7rs/scheme/base.scm
index 7976fddc..12bc14cd 100644
--- a/contrib/20.r7rs/scheme/base.scm
+++ b/contrib/20.r7rs/scheme/base.scm
@@ -34,7 +34,7 @@
 
   ;; 4.1.7. Inclusion
 
-  (define-syntax include
+  (define-macro include
     (letrec ((read-file
               (lambda (filename)
                 (call-with-port (open-input-file filename)