From c4f994658ca7eff0787e6ad902fcabd869925d9c Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 11 Nov 2008 15:36:33 +0000
Subject: [PATCH] fix mzc --include-compiled (PR 9900)

svn: r12384
---
 collects/compiler/main.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/compiler/main.ss b/collects/compiler/main.ss
index 87eb50dda9..6285ac7d68 100644
--- a/collects/compiler/main.ss
+++ b/collects/compiler/main.ss
@@ -657,7 +657,8 @@
     #:extra-setup-collections (map list (plt-setup-collections))
     #:file-filter (if (plt-include-compiled)
                     (lambda (path)
-                      (or (regexp-match #rx"compiled$" path) (std-filter path)))
+                      (or (regexp-match #rx#"compiled$" (path->bytes path))
+                          (std-filter path)))
                     std-filter)
     #:at-plt-home? (plt-files-plt-home-relative?)
     #:test-plt-collects? (not (plt-force-install-dir?)))