1 files changed, 1 insertions, 1 deletions
diff --git a/typd_mlc.c b/typd_mlc.c
index 1a497972..108e328a 100644
--- a/typd_mlc.c
+++ b/typd_mlc.c
@@ -178,7 +178,7 @@ STATIC mse * GC_typed_mark_proc(word * addr, mse * mark_stack_ptr,
 
             LOAD_WORD_OR_CONTINUE(current, current_p);
             FIXUP_POINTER(current);
-            if (current >= (word)least_ha && current <= (word)greatest_ha) {
+            if (current >= (word)least_ha && current < (word)greatest_ha) {
                 PUSH_CONTENTS((ptr_t)current, mark_stack_ptr,
                               mark_stack_limit, current_p);
             }