diff --git a/collects/parser-tools/yacc-to-scheme.rkt b/collects/parser-tools/yacc-to-scheme.rkt
index e854fca..4fb9620 100644
--- a/collects/parser-tools/yacc-to-scheme.rkt
+++ b/collects/parser-tools/yacc-to-scheme.rkt
@@ -8,14 +8,14 @@
   
   (define match-double-string
     (lexer
-     ((:* (:~ #\" #\\)) (append (string->list lexeme)
+     ((:+ (:~ #\" #\\)) (append (string->list lexeme)
                                 (match-double-string input-port)))
      ((:: #\\ any-char) (cons (string-ref lexeme 1) (match-double-string input-port)))
      (#\" null)))
 
    (define match-single-string
     (lexer
-     ((:* (:~ #\' #\\)) (append (string->list lexeme)
+     ((:+ (:~ #\' #\\)) (append (string->list lexeme)
                                 (match-single-string input-port)))
      ((:: #\\ any-char) (cons (string-ref lexeme 1) (match-single-string input-port)))
      (#\' null)))