From 1c54a7fe5938dcefbcfe6268728e75306c530aaa Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Gerd=20M=C3=B6llmann?= <gerd@gnu.org>
Date: Thu, 18 Apr 2024 14:29:50 +0200
Subject: [PATCH] fix_obarray

---
 src/igc.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/igc.c b/src/igc.c
index 48aa6dad9aa..a844326fd56 100644
--- a/src/igc.c
+++ b/src/igc.c
@@ -1424,8 +1424,7 @@ fix_obarray (mps_ss_t ss, struct Lisp_Obarray *o)
 {
   MPS_SCAN_BEGIN (ss)
   {
-    IGC_FIX_CALL_FN (ss, struct Lisp_Vector, o, fix_vectorlike);
-    igc_assert (!"obarray");
+    IGC_FIX12_NOBJS (ss, o->buckets, obarray_size (o));
   }
   MPS_SCAN_END (ss);
   return MPS_RES_OK;