diff --git a/m-shared.h b/m-shared.h
index be9cce3a..ff4aa148 100644
--- a/m-shared.h
+++ b/m-shared.h
@@ -344,6 +344,7 @@ static inline int sharedi_integer_cref(int *p) { return *p; }
     }                                                                   \
     M_GET_FREE oplist (s->buffer);                                      \
     s->buffer = NULL;                                                   \
+    genint_clear(s->core);                                              \
   }                                                                     \
                                                                         \
   static inline void                                                    \