diff --git a/collects/parser-tools/private-lex/unicode-chars.ss b/collects/parser-tools/private-lex/unicode-chars.ss
index b580e6c..0f3cb32 100644
--- a/collects/parser-tools/private-lex/unicode-chars.ss
+++ b/collects/parser-tools/private-lex/unicode-chars.ss
@@ -7,7 +7,7 @@
   (define mapped-chars (make-known-char-range-list))
   
   
-  ;; gat-chars-for-x : (nat -> bool) (listof (list nat nat bool)) -> (listof (cons nat nat))
+  ;; get-chars-for-x : (nat -> bool) (listof (list nat nat bool)) -> (listof (cons nat nat))
   (define (get-chars-for char-x? mapped-chars)
     (cond
       ((null? mapped-chars) null)