// Allocates memory
void factor_vm::primitive_resize_string() {
data_root<string> str(ctx->pop(), this);
- str.untag_check(this);
+ check_tagged(str);
cell capacity = unbox_array_size();
ctx->push(tag<string>(reallot_string(str.untagged(), capacity)));
}