From 16e504b2ff28e4e0635a2597955235b64379af51 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 23 Jul 2022 12:22:33 -0500
Subject: [PATCH] base64: don't use new word

---
 basis/base64/base64.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/base64/base64.factor b/basis/base64/base64.factor
index 38016ed417..a85768aafe 100644
--- a/basis/base64/base64.factor
+++ b/basis/base64/base64.factor
@@ -77,7 +77,7 @@ PRIVATE>
 <PRIVATE
 
 : read1-ignoring ( ignoring stream -- ch )
-    dup stream-read1 pick over member-eq-of?
+    dup stream-read1 pick dupd member-eq?
     [ drop read1-ignoring ] [ 2nip ] if ; inline recursive
 
 : read-ignoring ( n ignoring stream -- accum )
-- 
2.34.1