diff --git a/tools/dev/pbc_to_exe.pir b/tools/dev/pbc_to_exe.pir index 9c10fd9d1a..cc788e6a7a 100644 --- a/tools/dev/pbc_to_exe.pir +++ b/tools/dev/pbc_to_exe.pir @@ -163,7 +163,9 @@ HEADER if (msg_raw) { fprintf(vector, "%s%s", msg_raw, newline ? "\n" : ""); - Parrot_api_string_free_exported_ascii(interp, msg_raw); + + if (!Parrot_api_string_free_exported_ascii(interp, msg_raw)) + show_last_error_and_exit(interp); } }