From 1e6253d3c49371c835d7b79e386bdf0087a0cdf8 Mon Sep 17 00:00:00 2001
From: Pyry Kovanen <pkova@users.noreply.github.com>
Date: Tue, 25 Jun 2024 19:28:25 +0300
Subject: [PATCH] crc: fix bogus head

---
 pkg/noun/jets/e/crc32.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/pkg/noun/jets/e/crc32.c b/pkg/noun/jets/e/crc32.c
index 56a7532eff..1afc473a30 100644
--- a/pkg/noun/jets/e/crc32.c
+++ b/pkg/noun/jets/e/crc32.c
@@ -14,7 +14,10 @@ u3qe_crc32(u3_noun input_octs)
   u3_atom head = u3h(input_octs);
   u3_atom tail = u3t(input_octs);
   c3_w  tel_w = u3r_met(3, tail);
-  c3_w  hed_w = u3r_met(3, head);
+  c3_w hed_w;
+  if ( c3n == u3r_safe_word(head, &hed_w) ) {
+    return u3m_bail(c3__fail);
+  }
   c3_y* input;
 
   if (c3y == u3a_is_cat(tail)) {