From 3b49e208acff7673a90947e8a0b4c3ec6a87d996 Mon Sep 17 00:00:00 2001
From: Scott Owens <sowens@cs.utah.edu>
Date: Wed, 24 Apr 2002 02:02:38 +0000
Subject: [PATCH] *** empty log message ***

original commit: 35074d0ff2d11d87840ac1dc1a719751425aa70b
---
 collects/parser-tools/lex.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/parser-tools/lex.ss b/collects/parser-tools/lex.ss
index 67d934d..91c5fcd 100644
--- a/collects/parser-tools/lex.ss
+++ b/collects/parser-tools/lex.ss
@@ -121,7 +121,7 @@
                        ;; including the one just read
                        (length 1)
                        ;; how many characters are in the longest match
-                       (longest-match-length 0))
+                       (longest-match-length 1))
         (let ((next-state
                (cond
                  ((eof-object? char)