diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 3cd6035f7..e06ae8206 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -3285,14 +3285,15 @@
                      (let ((fn (syntax->datum filename)))
                        (let ((tmp (datum->syntax
                                     filename
-                                    (let ((t (%search-load-path fn)))
-                                      (if t
-                                        t
-                                        (syntax-violation
-                                          'include-from-path
-                                          "file not found in path"
-                                          x
-                                          filename))))))
+                                    (canonicalize-path
+                                      (let ((t (%search-load-path fn)))
+                                        (if t
+                                          t
+                                          (syntax-violation
+                                            'include-from-path
+                                            "file not found in path"
+                                            x
+                                            filename)))))))
                          (let ((fn tmp))
                            (list '#(syntax-object include ((top)) (hygiene guile)) fn)))))
                    tmp)
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index a45353aa3..e68b4ca7d 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -3204,10 +3204,11 @@
        (let ((fn (syntax->datum #'filename)))
          (with-syntax ((fn (datum->syntax
                             #'filename
-                            (or (%search-load-path fn)
-                                (syntax-violation 'include-from-path
-                                                  "file not found in path"
-                                                  x #'filename)))))
+                            (canonicalize-path
+                             (or (%search-load-path fn)
+                                 (syntax-violation 'include-from-path
+                                                   "file not found in path"
+                                                   x #'filename))))))
            #'(include fn)))))))
 
 (define-syntax unquote