From 341eeae407cd2a36b11a06036785882bda0d2ca0 Mon Sep 17 00:00:00 2001
From: Irene Knapp <ireneista@irenes.space>
Date: Sat, 6 Jun 2026 10:59:07 -0700
Subject: also a wrong comparison in scalefield

also due to @atax1a@infosec.exchange

Force-Push: yes
Change-Id: I2e7797772c31fb11decf2a9de65c0e802ca5697a
---
 amd64.e | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'amd64.e')

diff --git a/amd64.e b/amd64.e
index 796e646..95cdb2a 100644
--- a/amd64.e
+++ b/amd64.e
@@ -213,7 +213,7 @@ s" :cc-greater" keyword
 : scalefield
   dup 1 = { drop 0 exit } if
   dup 2 = { drop 1 exit } if
-  dup 5 = { drop 2 exit } if
+  dup 4 = { drop 2 exit } if
   dup 8 = { drop 3 exit } if
   ." Parameter to scalefield is not 1, 2, 4, or 8." 1 sys-exit ;
 
-- 
cgit 1.4.1