From 8b438928905e2b12a83e15dcd8d66af89878c669 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 6 Oct 2017 16:56:24 -0700
Subject: [PATCH] Fix typo when reading symbols without #!fold-case.

---
 src/runtime/parse.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/runtime/parse.scm b/src/runtime/parse.scm
index aaf84327a..c4bbe692a 100644
--- 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
-- 
2.25.1