return ULONG2NUM((unsigned long)GET_SHAPE_TREE()->next_shape_id);

}

// Assert that we have the VM lock. Relevant mostly for multi ractor situations.

// The GC takes the lock before calling us, and this asserts that it indeed happens.

void