From b87d21e54878718ece71cb9ca771e6a39b49f68b Mon Sep 17 00:00:00 2001
From: Brad Nelson <flagxor@gmail.com>
Date: Mon, 16 Jan 2023 13:21:38 -0800
Subject: [PATCH] Fix bug in strcase=.

---
 posix/httpd.fs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/posix/httpd.fs b/posix/httpd.fs
index 8bb5c3e..489973e 100644
--- a/posix/httpd.fs
+++ b/posix/httpd.fs
@@ -50,7 +50,7 @@ sockaddr httpd-port   sockaddr client   variable client-len
 : strcase= ( a n a n -- f )
   >r swap r@ <> if rdrop 2drop 0 exit then r>
   for aft
-    2dup c@ upper swap c@ upper <> if 2drop 0 exit then
+    2dup c@ upper swap c@ upper <> if rdrop 2drop 0 exit then
     1+ swap 1+ swap
   then next
   2drop -1