From 4117dfcc38fde35528975529ca4648992fa7e3e2 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Mon, 20 Sep 2010 15:39:25 -0400
Subject: [PATCH] Oops, the magic list has fixed strings, not regexps

---
 collects/handin-server/main.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/handin-server/main.rkt b/collects/handin-server/main.rkt
index 6b02469325..2054d7b14e 100644
--- a/collects/handin-server/main.rkt
+++ b/collects/handin-server/main.rkt
@@ -282,7 +282,8 @@
   (parameterize ([current-directory submission-dir])
     (define magics '(#"WXME"
                      #"<<<MULTI-SUBMISSION-FILE>>>"
-                     #"#reader(lib\"read.(?:rkt|ss)\"\"wxme\")WXME"))
+                     #"#reader(lib\"read.ss\"\"wxme\")WXME"
+                     #"#reader(lib\"read.rkt\"\"wxme\")WXME"))
     (define mlen (apply max (map bytes-length magics)))
     (define file
       ;; find the newest wxme file