diff --git a/collects/parser-tools/lex.ss b/collects/parser-tools/lex.ss
index ccff8f8..32a3b46 100644
--- a/collects/parser-tools/lex.ss
+++ b/collects/parser-tools/lex.ss
@@ -97,7 +97,7 @@
              (let-values (((trans start action-names no-look disappeared-uses)
                            (build-lexer re-actname-lst)))
                (when (vector-ref action-names start)
-                 (raise-syntax-error #f "accepts the empty string" stx))
+                 (printf "Warning: lexer might accept the empty string ~a.~n" stx))
                (with-syntax ((start-state-stx start)
                              (trans-table-stx trans)
                              (no-lookahead-stx no-look)
diff --git a/collects/parser-tools/private-lex/front.ss b/collects/parser-tools/private-lex/front.ss
index 35a2513..1b2903d 100644
--- a/collects/parser-tools/private-lex/front.ss
+++ b/collects/parser-tools/private-lex/front.ss
@@ -44,12 +44,12 @@
                                                                         entry
                                                                         entry)
                                                        entry))))
-                                               char-ranges)))
-                                      all-chars/to))
-                          (lambda (a b)
-                            (< (vector-ref a 0) (vector-ref b 0))))))
-                   (vector-set! state-table from-state (list->vector flat-all-chars/to))))
-               (dfa-transitions dfa))
+                                 char-ranges)))
+                        all-chars/to))
+                 (lambda (a b)
+                   (< (vector-ref a 0) (vector-ref b 0))))))
+          (vector-set! state-table from-state (list->vector flat-all-chars/to))))
+      (dfa-transitions dfa))
      state-table))