diff --git a/collects/framework/private/decode.ss b/collects/framework/private/decode.ss
index 47fdae061a..0944528ec1 100644
--- a/collects/framework/private/decode.ss
+++ b/collects/framework/private/decode.ss
@@ -6,7 +6,7 @@
 (define-syntax (module-begin stx)
   (syntax-case stx ()
     [(_ x ...)
-     (andmap (lambda (x) (or identifier? (integer? (syntax-e x))))
+     (andmap (lambda (x) (or (identifier? x) (integer? (syntax-e x))))
              (syntax->list #'(x ...)))
      (let* ([data  (format "~a" (syntax->datum #'(x ...)))]
             [data  (substring data 1 (sub1 (string-length data)))]