Index: imcc/parser_util.c
===================================================================
RCS file: /cvs/public/parrot/imcc/parser_util.c,v
retrieving revision 1.73
diff -u -2 -r1.73 parser_util.c
--- imcc/parser_util.c	6 Aug 2004 12:23:51 -0000	1.73
+++ imcc/parser_util.c	13 Aug 2004 21:36:19 -0000
@@ -479,5 +479,6 @@
     PackFile_fixup_subs(interp);
     /* restore old byte_code, */
-    (void)Parrot_switch_to_cs(interp, pf_save->cur_cs, 0);
+    if (pf_save)
+        (void)Parrot_switch_to_cs(interp, pf_save->cur_cs, 0);
     sourcefile = source;
     /* append new packfile to current directory */
@@ -575,5 +576,6 @@
     imc_cleanup(interp);
 
-    (void)Parrot_switch_to_cs(interp, pf_save->cur_cs, 0);
+    if (pf_save)
+        (void)Parrot_switch_to_cs(interp, pf_save->cur_cs, 0);
     sourcefile = source;
     pasm_file = pasm;