Fix typo when reading symbols without #!fold-case.

diff --git a/src/runtime/parse.scm b/src/runtime/parse.scm
index aaf84327a03764c02d13188ff0576e191de479b4..c4bbe692a7233eadf9d70cf39b123babab9d0e07 100644 (file)
--- a/src/runtime/parse.scm
+++ b/src/runtime/parse.scm
@@ -335,7 +335,7 @@ USA.
 (define (string-maybe-ci=? db s1 s2)
   (if (db-fold-case? db)
       (string-ci=? s1 s2)
-      (string-maybe-ci=? db s1 s2)))
+      (string=? s1 s2)))
 
 (define (handler:whitespace db ctx char)
   db ctx char