diff --git a/collects/mzlib/include.ss b/collects/mzlib/include.ss
index 00674fe..f718254 100644
--- a/collects/mzlib/include.ss
+++ b/collects/mzlib/include.ss
@@ -5,7 +5,9 @@
     (lambda (stx)
       ;; Parse the file name
       (let ([file
-	     (syntax-case stx (build-path)
+	     (syntax-case* stx (build-path) (lambda (a b)
+					      (eq? (syntax-e a)
+						   (syntax-e b)))
 	       [(_ fn)
 		(string? (syntax-e (syntax fn)))
 		(syntax-e (syntax fn))]