diff --git a/c/scheme48.h b/c/scheme48.h
index 0bdbe53..8821d67 100644
--- a/c/scheme48.h
+++ b/c/scheme48.h
@@ -312,36 +312,38 @@ extern void s48_check_record_type(s48_value record, s48_value type_binding);
 #define S48_CLOSURE_P(x) (s48_stob_has_type(x, 3))
 #define S48_STOBTYPE_LOCATION 4
 #define S48_LOCATION_P(x) (s48_stob_has_type(x, 4))
-#define S48_STOBTYPE_CHANNEL 5
-#define S48_CHANNEL_P(x) (s48_stob_has_type(x, 5))
-#define S48_STOBTYPE_PORT 6
-#define S48_PORT_P(x) (s48_stob_has_type(x, 6))
-#define S48_STOBTYPE_RATNUM 7
-#define S48_RATNUM_P(x) (s48_stob_has_type(x, 7))
-#define S48_STOBTYPE_RECORD 8
-#define S48_RECORD_P(x) (s48_stob_has_type(x, 8))
-#define S48_STOBTYPE_CONTINUATION 9
-#define S48_CONTINUATION_P(x) (s48_stob_has_type(x, 9))
-#define S48_STOBTYPE_EXTENDED_NUMBER 10
-#define S48_EXTENDED_NUMBER_P(x) (s48_stob_has_type(x, 10))
-#define S48_STOBTYPE_TEMPLATE 11
-#define S48_TEMPLATE_P(x) (s48_stob_has_type(x, 11))
-#define S48_STOBTYPE_WEAK_POINTER 12
-#define S48_WEAK_POINTER_P(x) (s48_stob_has_type(x, 12))
-#define S48_STOBTYPE_SHARED_BINDING 13
-#define S48_SHARED_BINDING_P(x) (s48_stob_has_type(x, 13))
-#define S48_STOBTYPE_UNUSED_D_HEADER1 14
-#define S48_UNUSED_D_HEADER1_P(x) (s48_stob_has_type(x, 14))
-#define S48_STOBTYPE_UNUSED_D_HEADER2 15
-#define S48_UNUSED_D_HEADER2_P(x) (s48_stob_has_type(x, 15))
-#define S48_STOBTYPE_STRING 16
-#define S48_STRING_P(x) (s48_stob_has_type(x, 16))
-#define S48_STOBTYPE_BYTE_VECTOR 17
-#define S48_BYTE_VECTOR_P(x) (s48_stob_has_type(x, 17))
-#define S48_STOBTYPE_DOUBLE 18
-#define S48_DOUBLE_P(x) (s48_stob_has_type(x, 18))
-#define S48_STOBTYPE_BIGNUM 19
-#define S48_BIGNUM_P(x) (s48_stob_has_type(x, 19))
+#define S48_STOBTYPE_CELL 5
+#define S48_CELL_P(x) (s48_stob_has_type(x, 5))
+#define S48_STOBTYPE_CHANNEL 6
+#define S48_CHANNEL_P(x) (s48_stob_has_type(x, 6))
+#define S48_STOBTYPE_PORT 7
+#define S48_PORT_P(x) (s48_stob_has_type(x, 7))
+#define S48_STOBTYPE_RATNUM 8
+#define S48_RATNUM_P(x) (s48_stob_has_type(x, 8))
+#define S48_STOBTYPE_RECORD 9
+#define S48_RECORD_P(x) (s48_stob_has_type(x, 9))
+#define S48_STOBTYPE_CONTINUATION 10
+#define S48_CONTINUATION_P(x) (s48_stob_has_type(x, 10))
+#define S48_STOBTYPE_EXTENDED_NUMBER 11
+#define S48_EXTENDED_NUMBER_P(x) (s48_stob_has_type(x, 11))
+#define S48_STOBTYPE_TEMPLATE 12
+#define S48_TEMPLATE_P(x) (s48_stob_has_type(x, 12))
+#define S48_STOBTYPE_WEAK_POINTER 13
+#define S48_WEAK_POINTER_P(x) (s48_stob_has_type(x, 13))
+#define S48_STOBTYPE_SHARED_BINDING 14
+#define S48_SHARED_BINDING_P(x) (s48_stob_has_type(x, 14))
+#define S48_STOBTYPE_UNUSED_D_HEADER1 15
+#define S48_UNUSED_D_HEADER1_P(x) (s48_stob_has_type(x, 15))
+#define S48_STOBTYPE_UNUSED_D_HEADER2 16
+#define S48_UNUSED_D_HEADER2_P(x) (s48_stob_has_type(x, 16))
+#define S48_STOBTYPE_STRING 17
+#define S48_STRING_P(x) (s48_stob_has_type(x, 17))
+#define S48_STOBTYPE_BYTE_VECTOR 18
+#define S48_BYTE_VECTOR_P(x) (s48_stob_has_type(x, 18))
+#define S48_STOBTYPE_DOUBLE 19
+#define S48_DOUBLE_P(x) (s48_stob_has_type(x, 19))
+#define S48_STOBTYPE_BIGNUM 20
+#define S48_BIGNUM_P(x) (s48_stob_has_type(x, 20))
 
 #define S48_CAR_OFFSET 0
 #define S48_CAR(x) (s48_stob_ref((x), S48_STOBTYPE_PAIR, 0))
@@ -366,6 +368,11 @@ extern void s48_check_record_type(s48_value record, s48_value type_binding);
 #define S48_UNSAFE_CONTENTS(x) (S48_STOB_REF((x), 1))
 #define S48_SET_CONTENTS(x, v) (s48_stob_set((x), S48_STOBTYPE_LOCATION, 1, (v)))
 #define S48_UNSAFE_SET_CONTENTS(x, v) S48_STOB_SET((x), 1, (v))
+#define S48_CELL_REF_OFFSET 0
+#define S48_CELL_REF(x) (s48_stob_ref((x), S48_STOBTYPE_CELL, 0))
+#define S48_UNSAFE_CELL_REF(x) (S48_STOB_REF((x), 0))
+#define S48_CELL_SET(x, v) (s48_stob_set((x), S48_STOBTYPE_CELL, 0, (v)))
+#define S48_UNSAFE_CELL_SET(x, v) S48_STOB_SET((x), 0, (v))
 #define S48_CLOSURE_TEMPLATE_OFFSET 0
 #define S48_CLOSURE_TEMPLATE(x) (s48_stob_ref((x), S48_STOBTYPE_CLOSURE, 0))
 #define S48_UNSAFE_CLOSURE_TEMPLATE(x) (S48_STOB_REF((x), 0))
diff --git a/c/scheme48heap.c b/c/scheme48heap.c
index d6a7d23..9c9a376 100644
--- a/c/scheme48heap.c
+++ b/c/scheme48heap.c
@@ -69,7 +69,7 @@ static long Simported_bindingsS;
 static long Sexported_bindingsS;
 static long Sresumer_recordsS;
 static char SinitializingPS;
-static long Hthe_record_type9310;
+static long Hthe_record_type9330;
 char * s48_ShpS;
 char * s48_SlimitS;
 
@@ -83,23 +83,23 @@ static long copy_weak_pointer(long weak_1X, char * frontier_2X, char * *TT0)
   char * x_3X;
  {  x_3X = Sweak_pointer_hpS;
   if ((x_3X == NULL)) {
-    goto L2424;}
+    goto L2431;}
   else {
     if (((Sweak_pointer_hpS) < (Sweak_pointer_limitS))) {
       arg0K0 = frontier_2X;
-      goto L2429;}
+      goto L2436;}
     else {
-      goto L2424;}}}
- L2424: {
+      goto L2431;}}}
+ L2431: {
   old_4X = Sweak_pointer_hpS;
   new_frontier_5X = frontier_2X + 1024;
   Sweak_pointer_hpS = frontier_2X;
   Sweak_pointer_limitS = new_frontier_5X;
-  *((long *) (Sweak_pointer_hpS)) = 261190;
+  *((long *) (Sweak_pointer_hpS)) = 261194;
   *((long *) ((Sweak_pointer_hpS) + 8)) = (((long) old_4X));
   arg0K0 = new_frontier_5X;
-  goto L2429;}
- L2429: {
+  goto L2436;}
+ L2436: {
   frontier_6X = arg0K0;
   new_7X = 3 + (((long) ((Sweak_pointer_hpS) + 4)));
   *((long *) ((Sweak_pointer_hpS) + 4)) = (*((long *) (((char *) (-3 + weak_1X)))));
@@ -130,56 +130,56 @@ static void clean_weak_pointers(void)
     end_9X = Sweak_pointer_hpS;
     arg0K0 = (x_8X + -1024);
     arg0K1 = end_9X;
-    goto L3995;}}
- L3995: {
+    goto L4002;}}
+ L4002: {
   start_10X = arg0K0;
   end_11X = arg0K1;
   next_12X = ((char *) (*((long *) (start_10X + 8))));
   arg0K0 = start_10X;
-  goto L2636;}
- L2636: {
+  goto L2643;}
+ L2643: {
   scan_13X = arg0K0;
   if ((scan_13X < end_11X)) {
-    *((long *) scan_13X) = 1074;
+    *((long *) scan_13X) = 1078;
     value_14X = *((long *) (scan_13X + 4));
     if ((3 == (3 & value_14X))) {
       a_15X = ((char *) (-3 + value_14X));
       if ((a_15X < (Sfrom_beginS))) {
-        goto L2682;}
+        goto L2689;}
       else {
         if ((a_15X < (Sfrom_endS))) {
           if ((3 == (3 & value_14X))) {
             h_16X = *((long *) ((((char *) (-3 + value_14X))) + -4));
             if ((3 == (3 & h_16X))) {
               arg1K0 = h_16X;
-              goto L2677;}
+              goto L2684;}
             else {
               arg1K0 = 1;
-              goto L2677;}}
+              goto L2684;}}
           else {
-            goto L2682;}}
+            goto L2689;}}
         else {
-          goto L2682;}}}
+          goto L2689;}}}
     else {
-      goto L2682;}}
+      goto L2689;}}
   else {
     if ((next_12X == NULL)) {
       if ((end_9X < (Sweak_pointer_limitS))) {
-        *((long *) end_9X) = (70 + ((((-4 & ((Sweak_pointer_limitS) - (end_9X + 4))))<<8)));
+        *((long *) end_9X) = (74 + ((((-4 & ((Sweak_pointer_limitS) - (end_9X + 4))))<<8)));
         return;}
       else {
         return;}}
     else {
       arg0K0 = (next_12X + -1024);
       arg0K1 = next_12X;
-      goto L3995;}}}
- L2682: {
+      goto L4002;}}}
+ L2689: {
   arg0K0 = (scan_13X + 8);
-  goto L2636;}
- L2677: {
+  goto L2643;}
+ L2684: {
   x2_17X = arg1K0;
   *((long *) (scan_13X + 4)) = x2_17X;
-  goto L2682;}
+  goto L2689;}
 }
 static char gc_recordP(long x_18X)
 {
@@ -188,12 +188,12 @@ static char gc_recordP(long x_18X)
     header_19X = *((long *) ((((char *) (-3 + x_18X))) + -4));
     if ((3 == (3 & header_19X))) {
       if ((3 == (3 & header_19X))) {
-        return (8 == (31 & ((((*((long *) ((((char *) (-3 + header_19X))) + -4))))>>2))));}
+        return (9 == (31 & ((((*((long *) ((((char *) (-3 + header_19X))) + -4))))>>2))));}
       else {
         return 0;}}
     else {
       if ((3 == (3 & x_18X))) {
-        return (8 == (31 & ((((*((long *) ((((char *) (-3 + x_18X))) + -4))))>>2))));}
+        return (9 == (31 & ((((*((long *) ((((char *) (-3 + x_18X))) + -4))))>>2))));}
       else {
         return 0;}}}
   else {
@@ -221,8 +221,8 @@ static void note_undumpableB(long thing_20X)
   else {
     list_21X = Sundumpable_recordsS;
     arg1K0 = list_21X;
-    goto L6368;}}
- L6368: {
+    goto L6375;}}
+ L6375: {
   list_22X = arg1K0;
   if ((25 == list_22X)) {
     Sundumpable_countS = (1 + (Sundumpable_countS));
@@ -248,16 +248,16 @@ static void note_undumpableB(long thing_20X)
       *((long *) (((char *) (-3 + x_30X)))) = thing_20X;
       *((long *) ((((char *) (-3 + x_30X))) + 4)) = b_28X;
       Sundumpable_recordsS = x_30X;
-      goto L6290;}
+      goto L6297;}
     else {
-      goto L6290;}}
+      goto L6297;}}
   else {
     if (((*((long *) (((char *) (-3 + list_22X))))) == thing_20X)) {
       return;}
     else {
       arg1K0 = (*((long *) ((((char *) (-3 + list_22X))) + 4)));
-      goto L6368;}}}
- L6290: {
+      goto L6375;}}}
+ L6297: {
   temp_31X = s48_SlimitS;
   s48_SlimitS = (Soldspace_limitS);
   Soldspace_limitS = temp_31X;
@@ -491,9 +491,9 @@ long s48_check_image_header(char *filename_61X)
     SstatusS = NO_ERRORS;
     SeofPS = 0;
     if ((SeofPS)) {
-      goto L2894;}
+      goto L2901;}
     else {
-      goto L3627;}}
+      goto L3634;}}
   else {
     ps_write_string("Can't open heap image file", (stderr));
     { long ignoreXX;
@@ -502,301 +502,301 @@ long s48_check_image_header(char *filename_61X)
     { long ignoreXX;
     PS_WRITE_CHAR(10, (stderr), ignoreXX) }
     return -1;}}
- L2894: {
+ L2901: {
   if ((SeofPS)) {
-    goto L2927;}
+    goto L2934;}
   else {
-    goto L3591;}}
- L3627: {
+    goto L3598;}}
+ L3634: {
   PS_READ_CHAR(port_62X, ch_64X, eofP_65X, status_66X)
   if (eofP_65X) {
     arg2K0 = eofP_65X;
     arg1K1 = status_66X;
-    goto L2872;}
+    goto L2879;}
   else {
     if ((status_66X == NO_ERRORS)) {
       if ((12 == ch_64X)) {
         arg2K0 = 0;
         arg1K1 = status_66X;
-        goto L2872;}
+        goto L2879;}
       else {
-        goto L3627;}}
+        goto L3634;}}
     else {
       arg2K0 = eofP_65X;
       arg1K1 = status_66X;
-      goto L2872;}}}
- L2927: {
+      goto L2879;}}}
+ L2934: {
   if ((SeofPS)) {
     arg2K0 = 0;
-    goto L2960;}
+    goto L2967;}
   else {
     arg1K0 = 0;
-    goto L3567;}}
- L3591: {
+    goto L3574;}}
+ L3598: {
   PS_READ_CHAR(port_62X, ch_67X, eofP_68X, status_69X)
   if (eofP_68X) {
     arg2K0 = eofP_68X;
     arg1K1 = status_69X;
-    goto L2905;}
+    goto L2912;}
   else {
     if ((status_69X == NO_ERRORS)) {
       if ((10 == ch_67X)) {
         arg2K0 = 0;
         arg1K1 = status_69X;
-        goto L2905;}
+        goto L2912;}
       else {
-        goto L3591;}}
+        goto L3598;}}
     else {
       arg2K0 = eofP_68X;
       arg1K1 = status_69X;
-      goto L2905;}}}
- L2872: {
+      goto L2912;}}}
+ L2879: {
   eofP_70X = arg2K0;
   status_71X = arg1K1;
   if (eofP_70X) {
     SeofPS = 1;
-    goto L2894;}
+    goto L2901;}
   else {
     if (((SstatusS) == NO_ERRORS)) {
-      goto L2894;}
+      goto L2901;}
     else {
       SeofPS = 1;
       SstatusS = status_71X;
-      goto L2894;}}}
- L2960: {
+      goto L2901;}}}
+ L2967: {
   same_versionP_72X = arg2K0;
   if ((SeofPS)) {
     arg1K0 = -1;
-    goto L2995;}
+    goto L3002;}
   else {
     PS_READ_INTEGER(port_62X, thing_73X, eofP_74X, status_75X)
     if (eofP_74X) {
       SeofPS = 1;
       arg1K0 = -1;
-      goto L2995;}
+      goto L3002;}
     else {
       if (((SstatusS) == NO_ERRORS)) {
         arg1K0 = thing_73X;
-        goto L2995;}
+        goto L3002;}
       else {
         SeofPS = 1;
         SstatusS = status_75X;
         arg1K0 = -1;
-        goto L2995;}}}}
- L3567: {
+        goto L3002;}}}}
+ L3574: {
   i_76X = arg1K0;
   PS_READ_CHAR(port_62X, ch_77X, eofP_78X, status_79X)
   if (eofP_78X) {
     arg2K0 = 0;
     arg2K1 = eofP_78X;
     arg1K2 = status_79X;
-    goto L2938;}
+    goto L2945;}
   else {
     if ((status_79X == NO_ERRORS)) {
       if ((i_76X == (strlen((char *) "Vanilla 20")))) {
         arg2K0 = (10 == ch_77X);
         arg2K1 = 0;
         arg1K2 = status_79X;
-        goto L2938;}
+        goto L2945;}
       else {
         if ((ch_77X == (*("Vanilla 20" + i_76X)))) {
           arg1K0 = (1 + i_76X);
-          goto L3567;}
+          goto L3574;}
         else {
           arg2K0 = 0;
           arg2K1 = 0;
           arg1K2 = status_79X;
-          goto L2938;}}}
+          goto L2945;}}}
     else {
       arg2K0 = 0;
       arg2K1 = eofP_78X;
       arg1K2 = status_79X;
-      goto L2938;}}}
- L2905: {
+      goto L2945;}}}
+ L2912: {
   eofP_80X = arg2K0;
   status_81X = arg1K1;
   if (eofP_80X) {
     SeofPS = 1;
-    goto L2927;}
+    goto L2934;}
   else {
     if (((SstatusS) == NO_ERRORS)) {
-      goto L2927;}
+      goto L2934;}
     else {
       SeofPS = 1;
       SstatusS = status_81X;
-      goto L2927;}}}
- L2995: {
+      goto L2934;}}}
+ L3002: {
   old_bytes_per_cell_82X = arg1K0;
   if ((SeofPS)) {
     arg1K0 = -1;
-    goto L3030;}
+    goto L3037;}
   else {
     PS_READ_INTEGER(port_62X, thing_83X, eofP_84X, status_85X)
     if (eofP_84X) {
       SeofPS = 1;
       arg1K0 = -1;
-      goto L3030;}
+      goto L3037;}
     else {
       if (((SstatusS) == NO_ERRORS)) {
         arg1K0 = thing_83X;
-        goto L3030;}
+        goto L3037;}
       else {
         SeofPS = 1;
         SstatusS = status_85X;
         arg1K0 = -1;
-        goto L3030;}}}}
- L2938: {
+        goto L3037;}}}}
+ L2945: {
   thing_86X = arg2K0;
   eofP_87X = arg2K1;
   status_88X = arg1K2;
   if (eofP_87X) {
     SeofPS = 1;
     arg2K0 = 0;
-    goto L2960;}
+    goto L2967;}
   else {
     if (((SstatusS) == NO_ERRORS)) {
       arg2K0 = thing_86X;
-      goto L2960;}
+      goto L2967;}
     else {
       SeofPS = 1;
       SstatusS = status_88X;
       arg2K0 = 0;
-      goto L2960;}}}
- L3030: {
+      goto L2967;}}}
+ L3037: {
   cells_89X = arg1K0;
   Sold_beginS = (((char *) (((cells_89X)<<2))));
   if ((SeofPS)) {
     arg1K0 = -1;
-    goto L3068;}
+    goto L3075;}
   else {
     PS_READ_INTEGER(port_62X, thing_90X, eofP_91X, status_92X)
     if (eofP_91X) {
       SeofPS = 1;
       arg1K0 = -1;
-      goto L3068;}
+      goto L3075;}
     else {
       if (((SstatusS) == NO_ERRORS)) {
         arg1K0 = thing_90X;
-        goto L3068;}
+        goto L3075;}
       else {
         SeofPS = 1;
         SstatusS = status_92X;
         arg1K0 = -1;
-        goto L3068;}}}}
- L3068: {
+        goto L3075;}}}}
+ L3075: {
   cells_93X = arg1K0;
   Sold_hpS = (((char *) (((cells_93X)<<2))));
   if ((SeofPS)) {
     arg1K0 = -1;
-    goto L3106;}
+    goto L3113;}
   else {
     PS_READ_INTEGER(port_62X, thing_94X, eofP_95X, status_96X)
     if (eofP_95X) {
       SeofPS = 1;
       arg1K0 = -1;
-      goto L3106;}
+      goto L3113;}
     else {
       if (((SstatusS) == NO_ERRORS)) {
         arg1K0 = thing_94X;
-        goto L3106;}
+        goto L3113;}
       else {
         SeofPS = 1;
         SstatusS = status_96X;
         arg1K0 = -1;
-        goto L3106;}}}}
- L3106: {
+        goto L3113;}}}}
+ L3113: {
   v_97X = arg1K0;
   SsymbolsS = v_97X;
   if ((SeofPS)) {
     arg1K0 = -1;
-    goto L3142;}
+    goto L3149;}
   else {
     PS_READ_INTEGER(port_62X, thing_98X, eofP_99X, status_100X)
     if (eofP_99X) {
       SeofPS = 1;
       arg1K0 = -1;
-      goto L3142;}
+      goto L3149;}
     else {
       if (((SstatusS) == NO_ERRORS)) {
         arg1K0 = thing_98X;
-        goto L3142;}
+        goto L3149;}
       else {
         SeofPS = 1;
         SstatusS = status_100X;
         arg1K0 = -1;
-        goto L3142;}}}}
- L3142: {
+        goto L3149;}}}}
+ L3149: {
   v_101X = arg1K0;
   Simported_bindingsS = v_101X;
   if ((SeofPS)) {
     arg1K0 = -1;
-    goto L3178;}
+    goto L3185;}
   else {
     PS_READ_INTEGER(port_62X, thing_102X, eofP_103X, status_104X)
     if (eofP_103X) {
       SeofPS = 1;
       arg1K0 = -1;
-      goto L3178;}
+      goto L3185;}
     else {
       if (((SstatusS) == NO_ERRORS)) {
         arg1K0 = thing_102X;
-        goto L3178;}
+        goto L3185;}
       else {
         SeofPS = 1;
         SstatusS = status_104X;
         arg1K0 = -1;
-        goto L3178;}}}}
- L3178: {
+        goto L3185;}}}}
+ L3185: {
   v_105X = arg1K0;
   Sexported_bindingsS = v_105X;
   if ((SeofPS)) {
     arg1K0 = -1;
-    goto L3214;}
+    goto L3221;}
   else {
     PS_READ_INTEGER(port_62X, thing_106X, eofP_107X, status_108X)
     if (eofP_107X) {
       SeofPS = 1;
       arg1K0 = -1;
-      goto L3214;}
+      goto L3221;}
     else {
       if (((SstatusS) == NO_ERRORS)) {
         arg1K0 = thing_106X;
-        goto L3214;}
+        goto L3221;}
       else {
         SeofPS = 1;
         SstatusS = status_108X;
         arg1K0 = -1;
-        goto L3214;}}}}
- L3214: {
+        goto L3221;}}}}
+ L3221: {
   v_109X = arg1K0;
   Sresumer_recordsS = v_109X;
   if ((SeofPS)) {
     arg1K0 = -1;
-    goto L3250;}
+    goto L3257;}
   else {
     PS_READ_INTEGER(port_62X, thing_110X, eofP_111X, status_112X)
     if (eofP_111X) {
       SeofPS = 1;
       arg1K0 = -1;
-      goto L3250;}
+      goto L3257;}
     else {
       if (((SstatusS) == NO_ERRORS)) {
         arg1K0 = thing_110X;
-        goto L3250;}
+        goto L3257;}
       else {
         SeofPS = 1;
         SstatusS = status_112X;
         arg1K0 = -1;
-        goto L3250;}}}}
- L3250: {
+        goto L3257;}}}}
+ L3257: {
   v_113X = arg1K0;
   Sstartup_procedureS = v_113X;
   Simage_portS = port_62X;
   if ((SeofPS)) {
-    goto L3289;}
+    goto L3296;}
   else {
-    goto L3498;}}
- L3289: {
+    goto L3505;}}
+ L3296: {
   if (((SstatusS) == NO_ERRORS)) {
     if ((SeofPS)) {
       SstatusS = EDOM;
@@ -804,12 +804,12 @@ long s48_check_image_header(char *filename_61X)
       { long ignoreXX;
       PS_WRITE_CHAR(10, (stderr), ignoreXX) }
       if (((SstatusS) == NO_ERRORS)) {
-        goto L3370;}
+        goto L3377;}
       else {
         ps_write_string((ps_error_string((SstatusS))), (stderr));
         { long ignoreXX;
         PS_WRITE_CHAR(10, (stderr), ignoreXX) }
-        goto L3370;}}
+        goto L3377;}}
     else {
       if (same_versionP_72X) {
         if ((4 == old_bytes_per_cell_82X)) {
@@ -819,53 +819,53 @@ long s48_check_image_header(char *filename_61X)
           { long ignoreXX;
           PS_WRITE_CHAR(10, (stderr), ignoreXX) }
           if (((SstatusS) == NO_ERRORS)) {
-            goto L3430;}
+            goto L3437;}
           else {
             ps_write_string((ps_error_string((SstatusS))), (stderr));
             { long ignoreXX;
             PS_WRITE_CHAR(10, (stderr), ignoreXX) }
-            goto L3430;}}}
+            goto L3437;}}}
       else {
         ps_write_string("Format of image is incompatible with this version of system", (stderr));
         { long ignoreXX;
         PS_WRITE_CHAR(10, (stderr), ignoreXX) }
         if (((SstatusS) == NO_ERRORS)) {
-          goto L3400;}
+          goto L3407;}
         else {
           ps_write_string((ps_error_string((SstatusS))), (stderr));
           { long ignoreXX;
           PS_WRITE_CHAR(10, (stderr), ignoreXX) }
-          goto L3400;}}}}
+          goto L3407;}}}}
   else {
     ps_write_string("Error reading from image file", (stderr));
     { long ignoreXX;
     PS_WRITE_CHAR(10, (stderr), ignoreXX) }
     if (((SstatusS) == NO_ERRORS)) {
-      goto L3345;}
+      goto L3352;}
     else {
       ps_write_string((ps_error_string((SstatusS))), (stderr));
       { long ignoreXX;
       PS_WRITE_CHAR(10, (stderr), ignoreXX) }
-      goto L3345;}}}
- L3498: {
+      goto L3352;}}}
+ L3505: {
   PS_READ_CHAR(port_62X, ch_114X, eofP_115X, status_116X)
   if (eofP_115X) {
     arg2K0 = eofP_115X;
     arg1K1 = status_116X;
-    goto L3267;}
+    goto L3274;}
   else {
     if ((status_116X == NO_ERRORS)) {
       if ((12 == ch_114X)) {
         arg2K0 = 0;
         arg1K1 = status_116X;
-        goto L3267;}
+        goto L3274;}
       else {
-        goto L3498;}}
+        goto L3505;}}
     else {
       arg2K0 = eofP_115X;
       arg1K1 = status_116X;
-      goto L3267;}}}
- L3370: {
+      goto L3274;}}}
+ L3377: {
   status_117X = ps_close(port_62X);
   if ((status_117X == NO_ERRORS)) {
     return -1;}
@@ -874,7 +874,7 @@ long s48_check_image_header(char *filename_61X)
     { long ignoreXX;
     PS_WRITE_CHAR(10, (stderr), ignoreXX) }
     return -1;}}
- L3430: {
+ L3437: {
   status_118X = ps_close(port_62X);
   if ((status_118X == NO_ERRORS)) {
     return -1;}
@@ -883,7 +883,7 @@ long s48_check_image_header(char *filename_61X)
     { long ignoreXX;
     PS_WRITE_CHAR(10, (stderr), ignoreXX) }
     return -1;}}
- L3400: {
+ L3407: {
   status_119X = ps_close(port_62X);
   if ((status_119X == NO_ERRORS)) {
     return -1;}
@@ -892,7 +892,7 @@ long s48_check_image_header(char *filename_61X)
     { long ignoreXX;
     PS_WRITE_CHAR(10, (stderr), ignoreXX) }
     return -1;}}
- L3345: {
+ L3352: {
   status_120X = ps_close(port_62X);
   if ((status_120X == NO_ERRORS)) {
     return -1;}
@@ -901,19 +901,19 @@ long s48_check_image_header(char *filename_61X)
     { long ignoreXX;
     PS_WRITE_CHAR(10, (stderr), ignoreXX) }
     return -1;}}
- L3267: {
+ L3274: {
   eofP_121X = arg2K0;
   status_122X = arg1K1;
   if (eofP_121X) {
     SeofPS = 1;
-    goto L3289;}
+    goto L3296;}
   else {
     if (((SstatusS) == NO_ERRORS)) {
-      goto L3289;}
+      goto L3296;}
     else {
       SeofPS = 1;
       SstatusS = status_122X;
-      goto L3289;}}}
+      goto L3296;}}}
 }
 long s48_find_all(long type_123X)
 {
@@ -922,8 +922,8 @@ long s48_find_all(long type_123X)
   char * merged_arg0K1;
   char * merged_arg0K0;
 
-  int Hproc928124_return_tag;
-  char Hproc9281240_return_value;
+  int Hproc930124_return_tag;
+  char Hproc9301240_return_value;
   char * start_125X;
   char * end_126X;
   char * next_142X;
@@ -948,75 +948,75 @@ long s48_find_all(long type_123X)
   s48_ShpS = ((s48_ShpS) + 4);
   merged_arg0K0 = (Snewspace_beginS);
   merged_arg0K1 = start_hp_127X;
-  Hproc928124_return_tag = 0;
-  goto Hproc928124;
- Hproc928124_return_0:
-  v_128X = Hproc9281240_return_value;
+  Hproc930124_return_tag = 0;
+  goto Hproc930124;
+ Hproc930124_return_0:
+  v_128X = Hproc9301240_return_value;
   if (v_128X) {
     if ((0 < (Simpure_area_countS))) {
       areas_129X = Simpure_areasS;
       sizes_130X = Simpure_sizesS;
       count_131X = Simpure_area_countS;
       arg1K0 = 0;
-      goto L5578;}
+      goto L5585;}
     else {
-      goto L5518;}}
+      goto L5525;}}
   else {
-    goto L5536;}}
- L5578: {
+    goto L5543;}}
+ L5585: {
   i_132X = arg1K0;
   if ((i_132X < count_131X)) {
     merged_arg0K0 = (*(areas_129X + i_132X));
     merged_arg0K1 = ((*(areas_129X + i_132X)) + (*(sizes_130X + i_132X)));
-    Hproc928124_return_tag = 1;
-    goto Hproc928124;
-   Hproc928124_return_1:
-    v_133X = Hproc9281240_return_value;
+    Hproc930124_return_tag = 1;
+    goto Hproc930124;
+   Hproc930124_return_1:
+    v_133X = Hproc9301240_return_value;
     if (v_133X) {
       arg1K0 = (1 + i_132X);
-      goto L5578;}
+      goto L5585;}
     else {
-      goto L5536;}}
+      goto L5543;}}
   else {
-    goto L5518;}}
- L5518: {
+    goto L5525;}}
+ L5525: {
   if ((0 < (Spure_area_countS))) {
     areas_134X = Spure_areasS;
     sizes_135X = Spure_sizesS;
     count_136X = Spure_area_countS;
     arg1K0 = 0;
-    goto L5599;}
+    goto L5606;}
   else {
-    goto L5525;}}
- L5536: {
+    goto L5532;}}
+ L5543: {
   s48_ShpS = start_hp_127X;
   return 1;}
- L5599: {
+ L5606: {
   i_137X = arg1K0;
   if ((i_137X < count_136X)) {
     merged_arg0K0 = (*(areas_134X + i_137X));
     merged_arg0K1 = ((*(areas_134X + i_137X)) + (*(sizes_135X + i_137X)));
-    Hproc928124_return_tag = 2;
-    goto Hproc928124;
-   Hproc928124_return_2:
-    v_138X = Hproc9281240_return_value;
+    Hproc930124_return_tag = 2;
+    goto Hproc930124;
+   Hproc930124_return_2:
+    v_138X = Hproc9301240_return_value;
     if (v_138X) {
       arg1K0 = (1 + i_137X);
-      goto L5599;}
+      goto L5606;}
     else {
-      goto L5536;}}
+      goto L5543;}}
   else {
-    goto L5525;}}
- L5525: {
+    goto L5532;}}
+ L5532: {
   *((long *) start_hp_127X) = (10 + (((((s48_ShpS) - (start_hp_127X + 4)))<<8)));
   return (3 + (((long) (start_hp_127X + 4))));}
- Hproc928124: {
+ Hproc930124: {
   start_125X = merged_arg0K0;
   end_126X = merged_arg0K1;{
   type_139X = Sfinding_typeS;
   arg0K0 = start_125X;
-  goto L4504;}
- L4504: {
+  goto L4511;}
+ L4511: {
   addr_140X = arg0K0;
   if ((addr_140X < end_126X)) {
     d_141X = *((long *) addr_140X);
@@ -1027,25 +1027,25 @@ long s48_find_all(long type_123X)
           *((long *) (s48_ShpS)) = (3 + (((long) (addr_140X + 4))));
           s48_ShpS = ((s48_ShpS) + 4);
           arg0K0 = next_142X;
-          goto L4504;}
+          goto L4511;}
         else {
-          Hproc9281240_return_value = 0;
-          goto Hproc928124_return;}}
+          Hproc9301240_return_value = 0;
+          goto Hproc930124_return;}}
       else {
         arg0K0 = next_142X;
-        goto L4504;}}
+        goto L4511;}}
     else {
       ps_write_string("heap is in an inconsistent state.", (stderr));
-      Hproc9281240_return_value = 0;
-      goto Hproc928124_return;}}
+      Hproc9301240_return_value = 0;
+      goto Hproc930124_return;}}
   else {
-    Hproc9281240_return_value = 1;
-    goto Hproc928124_return;}}
- Hproc928124_return:
-  switch (Hproc928124_return_tag) {
-  case 0: goto Hproc928124_return_0;
-  case 1: goto Hproc928124_return_1;
-  default: goto Hproc928124_return_2;
+    Hproc9301240_return_value = 1;
+    goto Hproc930124_return;}}
+ Hproc930124_return:
+  switch (Hproc930124_return_tag) {
+  case 0: goto Hproc930124_return_0;
+  case 1: goto Hproc930124_return_1;
+  default: goto Hproc930124_return_2;
   }}
 
 }
@@ -1113,29 +1113,29 @@ long s48_read_image(void)
     if (eofP_145X) {
       arg2K0 = 0;
       arg3K1 = "Premature EOF when reading image file";
-      goto L6080;}
+      goto L6087;}
     else {
       if ((got_144X < 4)) {
         arg2K0 = 0;
         arg3K1 = "Read returned too few bytes";
-        goto L6080;}
+        goto L6087;}
       else {
         arg2K0 = 1;
         arg3K1 = "";
-        goto L6080;}}}
+        goto L6087;}}}
   else {
     SstatusS = status_146X;
     arg2K0 = 0;
     arg3K1 = "Error reading from image file";
-    goto L6080;}}
- L6080: {
+    goto L6087;}}
+ L6087: {
   okayP_147X = arg2K0;
   string_148X = arg3K1;
   if (okayP_147X) {
     if ((1 == (*((long *) (s48_ShpS))))) {
       arg4K0 = port_143X;
       arg2K1 = 0;
-      goto L5093;}
+      goto L5100;}
     else {
       addr_149X = s48_ShpS;
       x_150X = *((unsigned char *) addr_149X);
@@ -1147,30 +1147,30 @@ long s48_read_image(void)
       if ((1 == (*((long *) (s48_ShpS))))) {
         arg4K0 = port_143X;
         arg2K1 = 1;
-        goto L5093;}
+        goto L5100;}
       else {
         ps_write_string("Unable to correct byte order", (stderr));
         { long ignoreXX;
         PS_WRITE_CHAR(10, (stderr), ignoreXX) }
         if (((SstatusS) == NO_ERRORS)) {
-          goto L6188;}
+          goto L6195;}
         else {
           ps_write_string((ps_error_string((SstatusS))), (stderr));
           { long ignoreXX;
           PS_WRITE_CHAR(10, (stderr), ignoreXX) }
-          goto L6188;}}}}
+          goto L6195;}}}}
   else {
     ps_write_string(string_148X, (stderr));
     { long ignoreXX;
     PS_WRITE_CHAR(10, (stderr), ignoreXX) }
     if (((SstatusS) == NO_ERRORS)) {
-      goto L6136;}
+      goto L6143;}
     else {
       ps_write_string((ps_error_string((SstatusS))), (stderr));
       { long ignoreXX;
       PS_WRITE_CHAR(10, (stderr), ignoreXX) }
-      goto L6136;}}}
- L5093: {
+      goto L6143;}}}
+ L5100: {
   port_152X = arg4K0;
   reverseP_153X = arg2K1;
   delta_154X = (s48_ShpS) - (Sold_beginS);
@@ -1184,33 +1184,33 @@ long s48_read_image(void)
       if (eofP_160X) {
         arg2K0 = 0;
         arg3K1 = "Premature EOF when reading image file";
-        goto L5115;}
+        goto L5122;}
       else {
         if ((got_159X < need_158X)) {
           arg2K0 = 0;
           arg3K1 = "Read returned too few bytes";
-          goto L5115;}
+          goto L5122;}
         else {
           arg2K0 = 1;
           arg3K1 = "";
-          goto L5115;}}}
+          goto L5122;}}}
     else {
       SstatusS = status_161X;
       arg2K0 = 0;
       arg3K1 = "Error reading from image file";
-      goto L5115;}}
+      goto L5122;}}
   else {
     ps_write_string("Heap not big enough to restore this image", (stderr));
     { long ignoreXX;
     PS_WRITE_CHAR(10, (stderr), ignoreXX) }
     if (((SstatusS) == NO_ERRORS)) {
-      goto L5211;}
+      goto L5218;}
     else {
       ps_write_string((ps_error_string((SstatusS))), (stderr));
       { long ignoreXX;
       PS_WRITE_CHAR(10, (stderr), ignoreXX) }
-      goto L5211;}}}
- L6188: {
+      goto L5218;}}}
+ L6195: {
   status_162X = ps_close(port_143X);
   if ((status_162X == NO_ERRORS)) {
     return -1;}
@@ -1219,7 +1219,7 @@ long s48_read_image(void)
     { long ignoreXX;
     PS_WRITE_CHAR(10, (stderr), ignoreXX) }
     return -1;}}
- L6136: {
+ L6143: {
   status_163X = ps_close(port_143X);
   if ((status_163X == NO_ERRORS)) {
     return -1;}
@@ -1228,7 +1228,7 @@ long s48_read_image(void)
     { long ignoreXX;
     PS_WRITE_CHAR(10, (stderr), ignoreXX) }
     return -1;}}
- L5115: {
+ L5122: {
   okayP_164X = arg2K0;
   string_165X = arg3K1;
   PS_READ_CHAR(port_152X, v_166X, eofP_167X, status_168X)
@@ -1242,54 +1242,54 @@ long s48_read_image(void)
             { long ignoreXX;
             PS_WRITE_CHAR(10, (stderr), ignoreXX) }
             arg0K0 = start_157X;
-            goto L4310;}
+            goto L4317;}
           else {
-            goto L5153;}}
+            goto L5160;}}
         else {
           ps_write_string("Error closing image file", (stderr));
           { long ignoreXX;
           PS_WRITE_CHAR(10, (stderr), ignoreXX) }
           if (((SstatusS) == NO_ERRORS)) {
-            goto L5346;}
+            goto L5353;}
           else {
             ps_write_string((ps_error_string((SstatusS))), (stderr));
             { long ignoreXX;
             PS_WRITE_CHAR(10, (stderr), ignoreXX) }
-            goto L5346;}}}
+            goto L5353;}}}
       else {
         ps_write_string("Image file has extraneous data after image", (stderr));
         { long ignoreXX;
         PS_WRITE_CHAR(10, (stderr), ignoreXX) }
         if (((SstatusS) == NO_ERRORS)) {
-          goto L5316;}
+          goto L5323;}
         else {
           ps_write_string((ps_error_string((SstatusS))), (stderr));
           { long ignoreXX;
           PS_WRITE_CHAR(10, (stderr), ignoreXX) }
-          goto L5316;}}}
+          goto L5323;}}}
     else {
       ps_write_string("Error reading from image file", (stderr));
       { long ignoreXX;
       PS_WRITE_CHAR(10, (stderr), ignoreXX) }
       if (((SstatusS) == NO_ERRORS)) {
-        goto L5286;}
+        goto L5293;}
       else {
         ps_write_string((ps_error_string((SstatusS))), (stderr));
         { long ignoreXX;
         PS_WRITE_CHAR(10, (stderr), ignoreXX) }
-        goto L5286;}}}
+        goto L5293;}}}
   else {
     ps_write_string(string_165X, (stderr));
     { long ignoreXX;
     PS_WRITE_CHAR(10, (stderr), ignoreXX) }
     if (((SstatusS) == NO_ERRORS)) {
-      goto L5256;}
+      goto L5263;}
     else {
       ps_write_string((ps_error_string((SstatusS))), (stderr));
       { long ignoreXX;
       PS_WRITE_CHAR(10, (stderr), ignoreXX) }
-      goto L5256;}}}
- L5211: {
+      goto L5263;}}}
+ L5218: {
   status_170X = ps_close(port_152X);
   if ((status_170X == NO_ERRORS)) {
     return -1;}
@@ -1298,7 +1298,7 @@ long s48_read_image(void)
     { long ignoreXX;
     PS_WRITE_CHAR(10, (stderr), ignoreXX) }
     return -1;}}
- L4310: {
+ L4317: {
   ptr_171X = arg0K0;
   if ((ptr_171X < new_hp_155X)) {
     x_172X = *((unsigned char *) ptr_171X);
@@ -1310,24 +1310,24 @@ long s48_read_image(void)
     value_174X = *((long *) ptr_171X);
     next_175X = ptr_171X + 4;
     if ((2 == (3 & value_174X))) {
-      if (((31 & (((value_174X)>>2))) < 16)) {
+      if (((31 & (((value_174X)>>2))) < 17)) {
         arg0K0 = next_175X;
-        goto L4310;}
+        goto L4317;}
       else {
         arg0K0 = (next_175X + (-4 & (3 + ((long)(((unsigned long)value_174X)>>8)))));
-        goto L4310;}}
+        goto L4317;}}
     else {
       arg0K0 = next_175X;
-      goto L4310;}}
+      goto L4317;}}
   else {
-    goto L5153;}}
- L5153: {
+    goto L5160;}}
+ L5160: {
   if ((0 == delta_154X)) {
-    goto L5163;}
+    goto L5170;}
   else {
     arg0K0 = start_157X;
-    goto L4409;}}
- L5346: {
+    goto L4416;}}
+ L5353: {
   status_176X = ps_close(port_152X);
   if ((status_176X == NO_ERRORS)) {
     return -1;}
@@ -1336,7 +1336,7 @@ long s48_read_image(void)
     { long ignoreXX;
     PS_WRITE_CHAR(10, (stderr), ignoreXX) }
     return -1;}}
- L5316: {
+ L5323: {
   status_177X = ps_close(port_152X);
   if ((status_177X == NO_ERRORS)) {
     return -1;}
@@ -1345,7 +1345,7 @@ long s48_read_image(void)
     { long ignoreXX;
     PS_WRITE_CHAR(10, (stderr), ignoreXX) }
     return -1;}}
- L5286: {
+ L5293: {
   status_178X = ps_close(port_152X);
   if ((status_178X == NO_ERRORS)) {
     return -1;}
@@ -1354,7 +1354,7 @@ long s48_read_image(void)
     { long ignoreXX;
     PS_WRITE_CHAR(10, (stderr), ignoreXX) }
     return -1;}}
- L5256: {
+ L5263: {
   status_179X = ps_close(port_152X);
   if ((status_179X == NO_ERRORS)) {
     return -1;}
@@ -1363,82 +1363,82 @@ long s48_read_image(void)
     { long ignoreXX;
     PS_WRITE_CHAR(10, (stderr), ignoreXX) }
     return -1;}}
- L5163: {
+ L5170: {
   s48_ShpS = new_hp_155X;
   descriptor_180X = Sstartup_procedureS;
   if ((3 == (3 & descriptor_180X))) {
     arg1K0 = (3 + (((long) ((((char *) (-3 + descriptor_180X))) + delta_154X))));
-    goto L5167;}
+    goto L5174;}
   else {
     arg1K0 = descriptor_180X;
-    goto L5167;}}
- L4409: {
+    goto L5174;}}
+ L4416: {
   ptr_181X = arg0K0;
   if ((ptr_181X < new_hp_155X)) {
     descriptor_182X = *((long *) ptr_181X);
     if ((3 == (3 & descriptor_182X))) {
       arg1K0 = (3 + (((long) ((((char *) (-3 + descriptor_182X))) + delta_154X))));
-      goto L4414;}
+      goto L4421;}
     else {
       arg1K0 = descriptor_182X;
-      goto L4414;}}
+      goto L4421;}}
   else {
-    goto L5163;}}
- L5167: {
+    goto L5170;}}
+ L5174: {
   v_183X = arg1K0;
   Sstartup_procedureS = v_183X;
   descriptor_184X = SsymbolsS;
   if ((3 == (3 & descriptor_184X))) {
     arg1K0 = (3 + (((long) ((((char *) (-3 + descriptor_184X))) + delta_154X))));
-    goto L5172;}
+    goto L5179;}
   else {
     arg1K0 = descriptor_184X;
-    goto L5172;}}
- L4414: {
+    goto L5179;}}
+ L4421: {
   d_185X = arg1K0;
   *((long *) ptr_181X) = d_185X;
   if ((2 == (3 & d_185X))) {
-    if (((31 & (((d_185X)>>2))) < 16)) {
-      goto L4428;}
+    if (((31 & (((d_185X)>>2))) < 17)) {
+      goto L4435;}
     else {
       arg0K0 = (ptr_181X + (4 + (-4 & (3 + ((long)(((unsigned long)d_185X)>>8))))));
-      goto L4409;}}
+      goto L4416;}}
   else {
-    goto L4428;}}
- L5172: {
+    goto L4435;}}
+ L5179: {
   v_186X = arg1K0;
   SsymbolsS = v_186X;
   descriptor_187X = Simported_bindingsS;
   if ((3 == (3 & descriptor_187X))) {
     arg1K0 = (3 + (((long) ((((char *) (-3 + descriptor_187X))) + delta_154X))));
-    goto L5177;}
+    goto L5184;}
   else {
     arg1K0 = descriptor_187X;
-    goto L5177;}}
- L4428: {
+    goto L5184;}}
+ L4435: {
   arg0K0 = (ptr_181X + 4);
-  goto L4409;}
- L5177: {
+  goto L4416;}
+ L5184: {
   v_188X = arg1K0;
   Simported_bindingsS = v_188X;
   descriptor_189X = Sexported_bindingsS;
   if ((3 == (3 & descriptor_189X))) {
     arg1K0 = (3 + (((long) ((((char *) (-3 + descriptor_189X))) + delta_154X))));
-    goto L5182;}
+    goto L5189;}
   else {
     arg1K0 = descriptor_189X;
-    goto L5182;}}
- L5182: {
+    goto L5189;}}
+ L5189: {
   v_190X = arg1K0;
   Sexported_bindingsS = v_190X;
   descriptor_191X = Sresumer_recordsS;
   if ((3 == (3 & descriptor_191X))) {
     arg1K0 = (3 + (((long) ((((char *) (-3 + descriptor_191X))) + delta_154X))));
-    goto L5187;}
+    goto L5194;}
   else {
     arg1K0 = descriptor_191X;
-    goto L5187;}}
- L5187: {
+    goto L5194;}}
+ L5194: {
   v_192X = arg1K0;
   Sresumer_recordsS = v_192X;
   return 0;}
@@ -1450,8 +1450,8 @@ long s48_find_all_records(long record_type_193X)
   char * merged_arg0K1;
   char * merged_arg0K0;
 
-  int Hproc974194_return_tag;
-  char Hproc9741940_return_value;
+  int Hproc978194_return_tag;
+  char Hproc9781940_return_value;
   char * start_195X;
   char * end_196X;
   long obj_213X;
@@ -1471,82 +1471,82 @@ long s48_find_all_records(long record_type_193X)
   char * *areas_199X;
   char v_198X;
   char * start_hp_197X;
- {  Hthe_record_type9310 = record_type_193X;
-  Sfinding_typeS = 8;
+ {  Hthe_record_type9330 = record_type_193X;
+  Sfinding_typeS = 9;
   start_hp_197X = s48_ShpS;
   *((long *) (s48_ShpS)) = 0;
   s48_ShpS = ((s48_ShpS) + 4);
   merged_arg0K0 = (Snewspace_beginS);
   merged_arg0K1 = start_hp_197X;
-  Hproc974194_return_tag = 0;
-  goto Hproc974194;
- Hproc974194_return_0:
-  v_198X = Hproc9741940_return_value;
+  Hproc978194_return_tag = 0;
+  goto Hproc978194;
+ Hproc978194_return_0:
+  v_198X = Hproc9781940_return_value;
   if (v_198X) {
     if ((0 < (Simpure_area_countS))) {
       areas_199X = Simpure_areasS;
       sizes_200X = Simpure_sizesS;
       count_201X = Simpure_area_countS;
       arg1K0 = 0;
-      goto L5743;}
+      goto L5750;}
     else {
-      goto L5683;}}
+      goto L5690;}}
   else {
-    goto L5701;}}
- L5743: {
+    goto L5708;}}
+ L5750: {
   i_202X = arg1K0;
   if ((i_202X < count_201X)) {
     merged_arg0K0 = (*(areas_199X + i_202X));
     merged_arg0K1 = ((*(areas_199X + i_202X)) + (*(sizes_200X + i_202X)));
-    Hproc974194_return_tag = 1;
-    goto Hproc974194;
-   Hproc974194_return_1:
-    v_203X = Hproc9741940_return_value;
+    Hproc978194_return_tag = 1;
+    goto Hproc978194;
+   Hproc978194_return_1:
+    v_203X = Hproc9781940_return_value;
     if (v_203X) {
       arg1K0 = (1 + i_202X);
-      goto L5743;}
+      goto L5750;}
     else {
-      goto L5701;}}
+      goto L5708;}}
   else {
-    goto L5683;}}
- L5683: {
+    goto L5690;}}
+ L5690: {
   if ((0 < (Spure_area_countS))) {
     areas_204X = Spure_areasS;
     sizes_205X = Spure_sizesS;
     count_206X = Spure_area_countS;
     arg1K0 = 0;
-    goto L5764;}
+    goto L5771;}
   else {
-    goto L5690;}}
- L5701: {
+    goto L5697;}}
+ L5708: {
   s48_ShpS = start_hp_197X;
   return 1;}
- L5764: {
+ L5771: {
   i_207X = arg1K0;
   if ((i_207X < count_206X)) {
     merged_arg0K0 = (*(areas_204X + i_207X));
     merged_arg0K1 = ((*(areas_204X + i_207X)) + (*(sizes_205X + i_207X)));
-    Hproc974194_return_tag = 2;
-    goto Hproc974194;
-   Hproc974194_return_2:
-    v_208X = Hproc9741940_return_value;
+    Hproc978194_return_tag = 2;
+    goto Hproc978194;
+   Hproc978194_return_2:
+    v_208X = Hproc9781940_return_value;
     if (v_208X) {
       arg1K0 = (1 + i_207X);
-      goto L5764;}
+      goto L5771;}
     else {
-      goto L5701;}}
+      goto L5708;}}
   else {
-    goto L5690;}}
- L5690: {
+    goto L5697;}}
+ L5697: {
   *((long *) start_hp_197X) = (10 + (((((s48_ShpS) - (start_hp_197X + 4)))<<8)));
   return (3 + (((long) (start_hp_197X + 4))));}
- Hproc974194: {
+ Hproc978194: {
   start_195X = merged_arg0K0;
   end_196X = merged_arg0K1;{
   type_209X = Sfinding_typeS;
   arg0K0 = start_195X;
-  goto L4671;}
- L4671: {
+  goto L4678;}
+ L4678: {
   addr_210X = arg0K0;
   if ((addr_210X < end_196X)) {
     d_211X = *((long *) addr_210X);
@@ -1554,33 +1554,33 @@ long s48_find_all_records(long record_type_193X)
     if ((2 == (3 & d_211X))) {
       if ((type_209X == (31 & (((d_211X)>>2))))) {
         obj_213X = 3 + (((long) (addr_210X + 4)));
-        if (((*((long *) (((char *) (-3 + obj_213X))))) == (Hthe_record_type9310))) {
+        if (((*((long *) (((char *) (-3 + obj_213X))))) == (Hthe_record_type9330))) {
           if ((((s48_ShpS) + 16) < (s48_SlimitS))) {
             *((long *) (s48_ShpS)) = obj_213X;
             s48_ShpS = ((s48_ShpS) + 4);
             arg0K0 = next_212X;
-            goto L4671;}
+            goto L4678;}
           else {
-            Hproc9741940_return_value = 0;
-            goto Hproc974194_return;}}
+            Hproc9781940_return_value = 0;
+            goto Hproc978194_return;}}
         else {
           arg0K0 = next_212X;
-          goto L4671;}}
+          goto L4678;}}
       else {
         arg0K0 = next_212X;
-        goto L4671;}}
+        goto L4678;}}
     else {
       ps_write_string("heap is in an inconsistent state.", (stderr));
-      Hproc9741940_return_value = 0;
-      goto Hproc974194_return;}}
+      Hproc9781940_return_value = 0;
+      goto Hproc978194_return;}}
   else {
-    Hproc9741940_return_value = 1;
-    goto Hproc974194_return;}}
- Hproc974194_return:
-  switch (Hproc974194_return_tag) {
-  case 0: goto Hproc974194_return_0;
-  case 1: goto Hproc974194_return_1;
-  default: goto Hproc974194_return_2;
+    Hproc9781940_return_value = 1;
+    goto Hproc978194_return;}}
+ Hproc978194_return:
+  switch (Hproc978194_return_tag) {
+  case 0: goto Hproc978194_return_0;
+  case 1: goto Hproc978194_return_1;
+  default: goto Hproc978194_return_2;
   }}
 
 }
@@ -1608,8 +1608,8 @@ long s48_trace_locationsB(char * start_214X, char * end_215X)
   char * addr_216X;
  {  arg0K0 = start_214X;
   arg0K1 = (s48_ShpS);
-  goto L6442;}
- L6442: {
+  goto L6449;}
+ L6449: {
   addr_216X = arg0K0;
   frontier_217X = arg0K1;
   if ((addr_216X < end_215X)) {
@@ -1617,18 +1617,18 @@ long s48_trace_locationsB(char * start_214X, char * end_215X)
     next_219X = addr_216X + 4;
     if ((2 == (3 & thing_218X))) {
       if ((2 == (3 & thing_218X))) {
-        if (((31 & (((thing_218X)>>2))) < 16)) {
+        if (((31 & (((thing_218X)>>2))) < 17)) {
           arg0K0 = next_219X;
           arg0K1 = frontier_217X;
-          goto L6442;}
+          goto L6449;}
         else {
           arg0K0 = (next_219X + (-4 & (3 + ((long)(((unsigned long)thing_218X)>>8)))));
           arg0K1 = frontier_217X;
-          goto L6442;}}
+          goto L6449;}}
       else {
         arg0K0 = next_219X;
         arg0K1 = frontier_217X;
-        goto L6442;}}
+        goto L6449;}}
     else {
       if ((Swriting_imagePS)) {
         v_220X = gc_recordP(thing_218X);
@@ -1641,67 +1641,67 @@ long s48_trace_locationsB(char * start_214X, char * end_215X)
               *((long *) addr_216X) = (*((long *) ((((char *) (-3 + thing_218X))) + 4)));
               arg0K0 = addr_216X;
               arg0K1 = frontier_217X;
-              goto L6442;}
+              goto L6449;}
             else {
-              goto L6476;}}
+              goto L6483;}}
           else {
-            goto L6476;}}
+            goto L6483;}}
         else {
-          goto L6476;}}
+          goto L6483;}}
       else {
-        goto L6476;}}}
+        goto L6483;}}}
   else {
     s48_ShpS = frontier_217X;
     return 0;}}
- L6476: {
+ L6483: {
   if ((3 == (3 & thing_218X))) {
     a_223X = ((char *) (-3 + thing_218X));
     if ((a_223X < (Sfrom_beginS))) {
       arg0K0 = next_219X;
       arg0K1 = frontier_217X;
-      goto L6442;}
+      goto L6449;}
     else {
       if ((a_223X < (Sfrom_endS))) {
         h_224X = *((long *) ((((char *) (-3 + thing_218X))) + -4));
         if ((3 == (3 & h_224X))) {
           arg1K0 = h_224X;
           arg0K1 = frontier_217X;
-          goto L6483;}
+          goto L6490;}
         else {
-          if ((1074 == h_224X)) {
+          if ((1078 == h_224X)) {
             descriptor_225X = *((long *) (((char *) (-3 + thing_218X))));
             if ((3 == (3 & descriptor_225X))) {
               a_226X = ((char *) (-3 + descriptor_225X));
               if ((a_226X < (Sfrom_beginS))) {
-                goto L7061;}
+                goto L7068;}
               else {
                 if ((a_226X < (Sfrom_endS))) {
                   new_thing_227X = copy_weak_pointer(thing_218X, frontier_217X, &frontier_228X);
                   arg1K0 = new_thing_227X;
                   arg0K1 = frontier_228X;
-                  goto L6483;}
+                  goto L6490;}
                 else {
-                  goto L7061;}}}
+                  goto L7068;}}}
             else {
-              goto L7061;}}
+              goto L7068;}}
           else {
-            goto L7061;}}}
+            goto L7068;}}}
       else {
         arg0K0 = next_219X;
         arg0K1 = frontier_217X;
-        goto L6442;}}}
+        goto L6449;}}}
   else {
     arg0K0 = next_219X;
     arg0K1 = frontier_217X;
-    goto L6442;}}
- L6483: {
+    goto L6449;}}
+ L6490: {
   new_thing_229X = arg1K0;
   frontier_230X = arg0K1;
   *((long *) addr_216X) = new_thing_229X;
   arg0K0 = next_219X;
   arg0K1 = frontier_230X;
-  goto L6442;}
- L7061: {
+  goto L6449;}
+ L7068: {
   *((long *) frontier_217X) = h_224X;
   data_addr_231X = frontier_217X + 4;
   new_232X = 3 + (((long) data_addr_231X));
@@ -1709,7 +1709,7 @@ long s48_trace_locationsB(char * start_214X, char * end_215X)
   memcpy((void *)data_addr_231X, (void *)(((char *) (-3 + thing_218X))),((long)(((unsigned long)h_224X)>>8)));
   arg1K0 = new_232X;
   arg0K1 = (data_addr_231X + (-4 & (3 + ((long)(((unsigned long)h_224X)>>8)))));
-  goto L6483;}
+  goto L6490;}
 }
 long s48_do_gc(void)
 {
@@ -1717,21 +1717,21 @@ long s48_do_gc(void)
   char * end_234X;
   char * start_233X;
  {  arg0K0 = (Snewspace_beginS);
-  goto L6698;}
- L6698: {
+  goto L6705;}
+ L6705: {
   start_233X = arg0K0;
   end_234X = s48_ShpS;
   s48_trace_locationsB(start_233X, end_234X);
   if (((((((s48_SlimitS) - (s48_ShpS)))>>2)) < 0)) {
     ps_error("GC error: ran out of space in new heap", 0);
-    goto L6721;}
+    goto L6728;}
   else {
     if ((end_234X < (s48_ShpS))) {
       arg0K0 = end_234X;
-      goto L6698;}
+      goto L6705;}
     else {
-      goto L6721;}}}
- L6721: {
+      goto L6728;}}}
+ L6728: {
   clean_weak_pointers();
   return 0;}
 }
@@ -1776,15 +1776,15 @@ void s48_begin_collection(void)
     sizes_243X = Simpure_sizesS;
     count_244X = Simpure_area_countS;
     arg1K0 = 0;
-    goto L6814;}
+    goto L6821;}
   else {
     return;}}
- L6814: {
+ L6821: {
   i_245X = arg1K0;
   if ((i_245X < count_244X)) {
     s48_trace_locationsB((*(areas_242X + i_245X)), ((*(areas_242X + i_245X)) + (*(sizes_243X + i_245X))));
     arg1K0 = (1 + i_245X);
-    goto L6814;}
+    goto L6821;}
   else {
     return;}}
 }
@@ -1808,8 +1808,8 @@ long s48_trace_value(long stob_246X)
   char v_248X;
   long stob_247X;
  {  arg1K0 = stob_247X;
-  goto L7252;}
- L7252: {
+  goto L7259;}
+ L7259: {
   stob_247X = arg1K0;
   if ((Swriting_imagePS)) {
     v_248X = gc_recordP(stob_246X);
@@ -1820,16 +1820,16 @@ long s48_trace_value(long stob_246X)
         if ((1 == (*((long *) ((((char *) (-3 + type_249X))) + 4))))) {
           note_undumpableB(stob_246X);
           arg1K0 = (*((long *) ((((char *) (-3 + stob_246X))) + 4)));
-          goto L7252;}
+          goto L7259;}
         else {
-          goto L6842;}}
+          goto L6849;}}
       else {
-        goto L6842;}}
+        goto L6849;}}
     else {
-      goto L6842;}}
+      goto L6849;}}
   else {
-    goto L6842;}}
- L6842: {
+    goto L6849;}}
+ L6849: {
   if ((3 == (3 & stob_246X))) {
     a_251X = ((char *) (-3 + stob_246X));
     if ((a_251X < (Sfrom_beginS))) {
@@ -1841,36 +1841,36 @@ long s48_trace_value(long stob_246X)
         if ((3 == (3 & h_253X))) {
           arg1K0 = h_253X;
           arg0K1 = frontier_252X;
-          goto L6864;}
+          goto L6871;}
         else {
-          if ((1074 == h_253X)) {
+          if ((1078 == h_253X)) {
             descriptor_254X = *((long *) (((char *) (-3 + stob_246X))));
             if ((3 == (3 & descriptor_254X))) {
               a_255X = ((char *) (-3 + descriptor_254X));
               if ((a_255X < (Sfrom_beginS))) {
-                goto L4194;}
+                goto L4201;}
               else {
                 if ((a_255X < (Sfrom_endS))) {
                   new_thing_256X = copy_weak_pointer(stob_246X, frontier_252X, &new_hp_257X);
                   arg1K0 = new_thing_256X;
                   arg0K1 = new_hp_257X;
-                  goto L6864;}
+                  goto L6871;}
                 else {
-                  goto L4194;}}}
+                  goto L4201;}}}
             else {
-              goto L4194;}}
+              goto L4201;}}
           else {
-            goto L4194;}}}
+            goto L4201;}}}
       else {
         return stob_246X;}}}
   else {
     return stob_246X;}}
- L6864: {
+ L6871: {
   new_thing_258X = arg1K0;
   new_hp_259X = arg0K1;
   s48_ShpS = new_hp_259X;
   return new_thing_258X;}
- L4194: {
+ L4201: {
   *((long *) frontier_252X) = h_253X;
   data_addr_260X = frontier_252X + 4;
   new_261X = 3 + (((long) data_addr_260X));
@@ -1878,7 +1878,7 @@ long s48_trace_value(long stob_246X)
   memcpy((void *)data_addr_260X, (void *)(((char *) (-3 + stob_246X))),((long)(((unsigned long)h_253X)>>8)));
   arg1K0 = new_261X;
   arg0K1 = (data_addr_260X + (-4 & (3 + ((long)(((unsigned long)h_253X)>>8)))));
-  goto L6864;}
+  goto L6871;}
 }
 long s48_write_image(long resume_proc_262X, FILE * port_263X)
 {
@@ -1888,8 +1888,8 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
   char * merged_arg0K0;
 
   int abort_collection_return_tag;
-  int Hproc972264_return_tag;
-  char Hproc9722640_return_value;
+  int Hproc976264_return_tag;
+  char Hproc9762640_return_value;
   char * start_265X;
   char * end_266X;
   long h_320X;
@@ -1969,95 +1969,95 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
   exported_bindings_272X = s48_trace_value(v_271X);
   resume_proc_273X = s48_trace_value(resume_proc_262X);
   arg0K0 = (Snewspace_beginS);
-  goto L6990;}
- L6990: {
+  goto L6997;}
+ L6997: {
   start_274X = arg0K0;
   end_275X = s48_ShpS;
   s48_trace_locationsB(start_274X, end_275X);
   if (((((((s48_SlimitS) - (s48_ShpS)))>>2)) < 0)) {
     ps_error("GC error: ran out of space in new heap", 0);
-    goto L6981;}
+    goto L6988;}
   else {
     if ((end_275X < (s48_ShpS))) {
       arg0K0 = end_275X;
-      goto L6990;}
+      goto L6997;}
     else {
-      goto L6981;}}}
- L6981: {
+      goto L6988;}}}
+ L6988: {
   clean_weak_pointers();
   s48_mark_traced_channels_closedB();
   symbols_276X = s48_copy_symbol_table();
-  Sfinding_typeS = 8;
+  Sfinding_typeS = 9;
   start_hp_277X = s48_ShpS;
   *((long *) (s48_ShpS)) = 0;
   s48_ShpS = ((s48_ShpS) + 4);
   merged_arg0K0 = (Snewspace_beginS);
   merged_arg0K1 = start_hp_277X;
-  Hproc972264_return_tag = 0;
-  goto Hproc972264;
- Hproc972264_return_0:
-  v_278X = Hproc9722640_return_value;
+  Hproc976264_return_tag = 0;
+  goto Hproc976264;
+ Hproc976264_return_0:
+  v_278X = Hproc9762640_return_value;
   if (v_278X) {
     if ((0 < (Simpure_area_countS))) {
       areas_279X = Simpure_areasS;
       sizes_280X = Simpure_sizesS;
       count_281X = Simpure_area_countS;
       arg1K0 = 0;
-      goto L5908;}
+      goto L5915;}
     else {
-      goto L5848;}}
+      goto L5855;}}
   else {
-    goto L5866;}}
- L5908: {
+    goto L5873;}}
+ L5915: {
   i_282X = arg1K0;
   if ((i_282X < count_281X)) {
     merged_arg0K0 = (*(areas_279X + i_282X));
     merged_arg0K1 = ((*(areas_279X + i_282X)) + (*(sizes_280X + i_282X)));
-    Hproc972264_return_tag = 1;
-    goto Hproc972264;
-   Hproc972264_return_1:
-    v_283X = Hproc9722640_return_value;
+    Hproc976264_return_tag = 1;
+    goto Hproc976264;
+   Hproc976264_return_1:
+    v_283X = Hproc9762640_return_value;
     if (v_283X) {
       arg1K0 = (1 + i_282X);
-      goto L5908;}
+      goto L5915;}
     else {
-      goto L5866;}}
+      goto L5873;}}
   else {
-    goto L5848;}}
- L5848: {
+    goto L5855;}}
+ L5855: {
   if ((0 < (Spure_area_countS))) {
     areas_284X = Spure_areasS;
     sizes_285X = Spure_sizesS;
     count_286X = Spure_area_countS;
     arg1K0 = 0;
-    goto L5929;}
+    goto L5936;}
   else {
-    goto L5855;}}
- L5866: {
+    goto L5862;}}
+ L5873: {
   s48_ShpS = start_hp_277X;
   arg1K0 = 1;
-  goto L7005;}
- L5929: {
+  goto L7012;}
+ L5936: {
   i_287X = arg1K0;
   if ((i_287X < count_286X)) {
     merged_arg0K0 = (*(areas_284X + i_287X));
     merged_arg0K1 = ((*(areas_284X + i_287X)) + (*(sizes_285X + i_287X)));
-    Hproc972264_return_tag = 2;
-    goto Hproc972264;
-   Hproc972264_return_2:
-    v_288X = Hproc9722640_return_value;
+    Hproc976264_return_tag = 2;
+    goto Hproc976264;
+   Hproc976264_return_2:
+    v_288X = Hproc9762640_return_value;
     if (v_288X) {
       arg1K0 = (1 + i_287X);
-      goto L5929;}
+      goto L5936;}
     else {
-      goto L5866;}}
+      goto L5873;}}
   else {
-    goto L5855;}}
- L5855: {
+    goto L5862;}}
+ L5862: {
   *((long *) start_hp_277X) = (10 + (((((s48_ShpS) - (start_hp_277X + 4)))<<8)));
   arg1K0 = (3 + (((long) (start_hp_277X + 4))));
-  goto L7005;}
- L7005: {
+  goto L7012;}
+ L7012: {
   resumer_records_289X = arg1K0;
   imported_bindings_290X = s48_cleaned_imported_bindings();
   if ((1 == resumer_records_289X)) {
@@ -2070,175 +2070,175 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
     if (((SstatusS) == NO_ERRORS)) {
       PS_WRITE_CHAR(10, port_263X, v_291X)
       SstatusS = v_291X;
-      goto L2020;}
+      goto L2027;}
     else {
-      goto L2020;}}}
- L2020: {
+      goto L2027;}}}
+ L2027: {
   if (((SstatusS) == NO_ERRORS)) {
     PS_WRITE_CHAR(12, port_263X, v_292X)
     SstatusS = v_292X;
-    goto L2029;}
+    goto L2036;}
   else {
-    goto L2029;}}
- L2029: {
+    goto L2036;}}
+ L2036: {
   if (((SstatusS) == NO_ERRORS)) {
     PS_WRITE_CHAR(10, port_263X, v_293X)
     SstatusS = v_293X;
-    goto L2038;}
-  else {
-    goto L2038;}}
- L2038: {
-  if (((SstatusS) == NO_ERRORS)) {
-    SstatusS = (ps_write_string("Vanilla 20", port_263X));
     goto L2045;}
   else {
     goto L2045;}}
  L2045: {
+  if (((SstatusS) == NO_ERRORS)) {
+    SstatusS = (ps_write_string("Vanilla 20", port_263X));
+    goto L2052;}
+  else {
+    goto L2052;}}
+ L2052: {
   if (((SstatusS) == NO_ERRORS)) {
     PS_WRITE_CHAR(10, port_263X, v_294X)
     SstatusS = v_294X;
-    goto L2054;}
+    goto L2061;}
   else {
-    goto L2054;}}
- L2054: {
+    goto L2061;}}
+ L2061: {
   if (((SstatusS) == NO_ERRORS)) {
     SstatusS = (ps_write_integer(4, port_263X));
-    goto L2124;}
+    goto L2131;}
   else {
-    goto L2124;}}
- L2124: {
+    goto L2131;}}
+ L2131: {
   if (((SstatusS) == NO_ERRORS)) {
     PS_WRITE_CHAR(10, port_263X, v_295X)
     SstatusS = v_295X;
-    goto L2056;}
+    goto L2063;}
   else {
-    goto L2056;}}
- L2056: {
+    goto L2063;}}
+ L2063: {
   v_296X = Snewspace_beginS;
   if (((SstatusS) == NO_ERRORS)) {
     SstatusS = (ps_write_integer(((((((long) v_296X)))>>2)), port_263X));
-    goto L2144;}
+    goto L2151;}
   else {
-    goto L2144;}}
- L2144: {
+    goto L2151;}}
+ L2151: {
   if (((SstatusS) == NO_ERRORS)) {
     PS_WRITE_CHAR(10, port_263X, v_297X)
     SstatusS = v_297X;
-    goto L2062;}
+    goto L2069;}
   else {
-    goto L2062;}}
- L2062: {
+    goto L2069;}}
+ L2069: {
   v_298X = s48_ShpS;
   if (((SstatusS) == NO_ERRORS)) {
     SstatusS = (ps_write_integer(((((((long) v_298X)))>>2)), port_263X));
-    goto L2164;}
+    goto L2171;}
   else {
-    goto L2164;}}
- L2164: {
+    goto L2171;}}
+ L2171: {
   if (((SstatusS) == NO_ERRORS)) {
     PS_WRITE_CHAR(10, port_263X, v_299X)
     SstatusS = v_299X;
-    goto L2068;}
+    goto L2075;}
   else {
-    goto L2068;}}
- L2068: {
+    goto L2075;}}
+ L2075: {
   if (((SstatusS) == NO_ERRORS)) {
     SstatusS = (ps_write_integer(symbols_276X, port_263X));
-    goto L2179;}
+    goto L2186;}
   else {
-    goto L2179;}}
- L2179: {
+    goto L2186;}}
+ L2186: {
   if (((SstatusS) == NO_ERRORS)) {
     PS_WRITE_CHAR(10, port_263X, v_300X)
     SstatusS = v_300X;
-    goto L2070;}
+    goto L2077;}
   else {
-    goto L2070;}}
- L2070: {
+    goto L2077;}}
+ L2077: {
   if (((SstatusS) == NO_ERRORS)) {
     SstatusS = (ps_write_integer(imported_bindings_290X, port_263X));
-    goto L2194;}
+    goto L2201;}
   else {
-    goto L2194;}}
- L2194: {
+    goto L2201;}}
+ L2201: {
   if (((SstatusS) == NO_ERRORS)) {
     PS_WRITE_CHAR(10, port_263X, v_301X)
     SstatusS = v_301X;
-    goto L2072;}
+    goto L2079;}
   else {
-    goto L2072;}}
- L2072: {
+    goto L2079;}}
+ L2079: {
   if (((SstatusS) == NO_ERRORS)) {
     SstatusS = (ps_write_integer(exported_bindings_272X, port_263X));
-    goto L2209;}
+    goto L2216;}
   else {
-    goto L2209;}}
- L2209: {
+    goto L2216;}}
+ L2216: {
   if (((SstatusS) == NO_ERRORS)) {
     PS_WRITE_CHAR(10, port_263X, v_302X)
     SstatusS = v_302X;
-    goto L2074;}
+    goto L2081;}
   else {
-    goto L2074;}}
- L2074: {
+    goto L2081;}}
+ L2081: {
   if (((SstatusS) == NO_ERRORS)) {
     SstatusS = (ps_write_integer(resumer_records_289X, port_263X));
-    goto L2224;}
+    goto L2231;}
   else {
-    goto L2224;}}
- L2224: {
+    goto L2231;}}
+ L2231: {
   if (((SstatusS) == NO_ERRORS)) {
     PS_WRITE_CHAR(10, port_263X, v_303X)
     SstatusS = v_303X;
-    goto L2076;}
+    goto L2083;}
   else {
-    goto L2076;}}
- L2076: {
+    goto L2083;}}
+ L2083: {
   if (((SstatusS) == NO_ERRORS)) {
     SstatusS = (ps_write_integer(resume_proc_273X, port_263X));
-    goto L2239;}
+    goto L2246;}
   else {
-    goto L2239;}}
- L2239: {
+    goto L2246;}}
+ L2246: {
   if (((SstatusS) == NO_ERRORS)) {
     PS_WRITE_CHAR(10, port_263X, v_304X)
     SstatusS = v_304X;
-    goto L2078;}
+    goto L2085;}
   else {
-    goto L2078;}}
- L2078: {
+    goto L2085;}}
+ L2085: {
   if (((SstatusS) == NO_ERRORS)) {
     PS_WRITE_CHAR(12, port_263X, v_305X)
     SstatusS = v_305X;
-    goto L2087;}
+    goto L2094;}
   else {
-    goto L2087;}}
- L2087: {
+    goto L2094;}}
+ L2094: {
   *((long *) (s48_ShpS)) = 1;
   if (((SstatusS) == NO_ERRORS)) {
     SstatusS = (ps_write_block(port_263X, ((char *) (s48_ShpS)), (((s48_ShpS) + 4) - (s48_ShpS))));
-    goto L2106;}
+    goto L2113;}
   else {
-    goto L2106;}}
- L2106: {
+    goto L2113;}}
+ L2113: {
   if (((SstatusS) == NO_ERRORS)) {
     SstatusS = (ps_write_block(port_263X, ((char *) (Snewspace_beginS)), ((s48_ShpS) - (Snewspace_beginS))));
-    goto L2119;}
+    goto L2126;}
   else {
-    goto L2119;}}
- L2119: {
+    goto L2126;}}
+ L2126: {
   status_306X = SstatusS;
   abort_collection_return_tag = 1;
   goto abort_collection;
  abort_collection_return_1:
   return status_306X;}
- Hproc972264: {
+ Hproc976264: {
   start_265X = merged_arg0K0;
   end_266X = merged_arg0K1;{
   type_307X = Sfinding_typeS;
   arg0K0 = start_265X;
-  goto L4853;}
- L4853: {
+  goto L4860;}
+ L4860: {
   addr_308X = arg0K0;
   if ((addr_308X < end_266X)) {
     d_309X = *((long *) addr_308X);
@@ -2248,40 +2248,40 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
         obj_311X = 3 + (((long) (addr_308X + 4)));
         type_312X = *((long *) (((char *) (-3 + obj_311X))));
         if ((3 == (3 & type_312X))) {
-          if ((8 == (31 & ((((*((long *) ((((char *) (-3 + type_312X))) + -4))))>>2))))) {
+          if ((9 == (31 & ((((*((long *) ((((char *) (-3 + type_312X))) + -4))))>>2))))) {
             if ((3 == (3 & (*((long *) ((((char *) (-3 + type_312X))) + 4)))))) {
               if ((((s48_ShpS) + 16) < (s48_SlimitS))) {
                 *((long *) (s48_ShpS)) = obj_311X;
                 s48_ShpS = ((s48_ShpS) + 4);
                 arg0K0 = next_310X;
-                goto L4853;}
+                goto L4860;}
               else {
-                Hproc9722640_return_value = 0;
-                goto Hproc972264_return;}}
+                Hproc9762640_return_value = 0;
+                goto Hproc976264_return;}}
             else {
               arg0K0 = next_310X;
-              goto L4853;}}
+              goto L4860;}}
           else {
             arg0K0 = next_310X;
-            goto L4853;}}
+            goto L4860;}}
         else {
           arg0K0 = next_310X;
-          goto L4853;}}
+          goto L4860;}}
       else {
         arg0K0 = next_310X;
-        goto L4853;}}
+        goto L4860;}}
     else {
       ps_write_string("heap is in an inconsistent state.", (stderr));
-      Hproc9722640_return_value = 0;
-      goto Hproc972264_return;}}
+      Hproc9762640_return_value = 0;
+      goto Hproc976264_return;}}
   else {
-    Hproc9722640_return_value = 1;
-    goto Hproc972264_return;}}
- Hproc972264_return:
-  switch (Hproc972264_return_tag) {
-  case 0: goto Hproc972264_return_0;
-  case 1: goto Hproc972264_return_1;
-  default: goto Hproc972264_return_2;
+    Hproc9762640_return_value = 1;
+    goto Hproc976264_return;}}
+ Hproc976264_return:
+  switch (Hproc976264_return_tag) {
+  case 0: goto Hproc976264_return_0;
+  case 1: goto Hproc976264_return_1;
+  default: goto Hproc976264_return_2;
   }}
 
  abort_collection: {
@@ -2298,25 +2298,25 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
   Snewspace_endS = (Soldspace_endS);
   Soldspace_endS = temp_316X;
   arg0K0 = (Snewspace_beginS);
-  goto L4086;}
- L4086: {
+  goto L4093;}
+ L4093: {
   addr_317X = arg0K0;
   if ((addr_317X < (s48_ShpS))) {
     d_318X = *((long *) addr_317X);
     if ((2 == (3 & d_318X))) {
       arg1K0 = d_318X;
-      goto L4107;}
+      goto L4114;}
     else {
       h_319X = *((long *) ((((char *) (-3 + d_318X))) + -4));
       *((long *) addr_317X) = h_319X;
       arg1K0 = h_319X;
-      goto L4107;}}
+      goto L4114;}}
   else {
     goto abort_collection_return;}}
- L4107: {
+ L4114: {
   h_320X = arg1K0;
   arg0K0 = (addr_317X + (4 + (-4 & (3 + ((long)(((unsigned long)h_320X)>>8))))));
-  goto L4086;}
+  goto L4093;}
  abort_collection_return:
   switch (abort_collection_return_tag) {
   case 0: goto abort_collection_return_0;
@@ -2355,5 +2355,5 @@ Sgc_countS = 0;
 SstatusS = NO_ERRORS;
 SeofPS = 0;
 SinitializingPS = 1;
-Hthe_record_type9310 = 1;
+Hthe_record_type9330 = 1;
 }
diff --git a/c/scheme48vm.c b/c/scheme48vm.c
index 049e8c1..c316307 100644
--- a/c/scheme48vm.c
+++ b/c/scheme48vm.c
@@ -7,14 +7,14 @@ static void enqueue_channelB(long, long);
 static long close_channelB(long);
 static void push_continuationB(char *, long);
 static long enter_string(char*, long);
-static char HcleanerB2170(long);
+static char HcleanerB2190(long);
 static void push_exception_continuationB(long, long);
 static long make_registered_channel(long, long, long, long, long*);
 static long channel_close_error(long, long, long);
-static void HtopD8911(void);
-static long Hlookup2112(long, long, long);
-static long Hlookup2093(long, long, long);
-static void HtopD8904(void);
+static void HtopD8931(void);
+static long Hlookup2132(long, long, long);
+static long Hlookup2113(long, long, long);
+static void HtopD8924(void);
 static long collect_saving_temps(long, long, long*);
 void s48_set_extension_valueB(long);
 void s48_note_event(void);
@@ -103,28 +103,28 @@ static char add_more_channels(long index_5X)
   y_7X = 8 + (Snumber_of_channelsS);
   if ((x_6X < y_7X)) {
     arg0K0 = y_7X;
-    goto L2378;}
+    goto L2385;}
   else {
     arg0K0 = x_6X;
-    goto L2378;}}
- L2378: {
+    goto L2385;}}
+ L2385: {
   new_count_8X = arg0K0;
   new_vm_channels_9X = (long*)malloc(sizeof(long) * new_count_8X);
   if ((NULL == new_vm_channels_9X)) {
     return 0;}
   else {
     arg0K0 = 0;
-    goto L2390;}}
- L2390: {
+    goto L2397;}}
+ L2397: {
   i_10X = arg0K0;
   if ((i_10X == (Snumber_of_channelsS))) {
     arg0K0 = (Snumber_of_channelsS);
-    goto L2405;}
+    goto L2412;}
   else {
     *(new_vm_channels_9X + i_10X) = (*((Svm_channelsS) + i_10X));
     arg0K0 = (1 + i_10X);
-    goto L2390;}}
- L2405: {
+    goto L2397;}}
+ L2412: {
   i_11X = arg0K0;
   if ((i_11X == new_count_8X)) {
     free((Svm_channelsS));
@@ -134,7 +134,7 @@ static char add_more_channels(long index_5X)
   else {
     *(new_vm_channels_9X + i_11X) = 1;
     arg0K0 = (1 + i_11X);
-    goto L2405;}}
+    goto L2412;}}
 }
 static void enqueue_channelB(long index_12X, long status_13X)
 {
@@ -179,25 +179,25 @@ static long close_channelB(long channel_19X)
   if ((5 == x_21X)) {
     v_22X = ps_abort_fd_op(os_index_20X);
     enqueue_channelB(os_index_20X, v_22X);
-    goto L8009;}
+    goto L8016;}
   else {
-    goto L8009;}}
- L8009: {
+    goto L8016;}}
+ L8016: {
   v_23X = *((long *) (((char *) (-3 + channel_19X))));
   if ((4 == v_23X)) {
-    goto L8024;}
+    goto L8031;}
   else {
     if ((12 == (*((long *) (((char *) (-3 + channel_19X))))))) {
-      goto L8024;}
+      goto L8031;}
     else {
       v_24X = ps_close_fd(os_index_20X);
       arg0K0 = v_24X;
-      goto L8031;}}}
- L8024: {
+      goto L8038;}}}
+ L8031: {
   v_25X = ps_close_fd(os_index_20X);
   arg0K0 = v_25X;
-  goto L8031;}
- L8031: {
+  goto L8038;}
+ L8038: {
   status_26X = arg0K0;
   *((Svm_channelsS) + os_index_20X) = 1;
   addr_27X = ((char *) (-3 + channel_19X));
@@ -213,7 +213,7 @@ static void push_continuationB(char * code_pointer_28X, long size_29X)
  {  pc_30X = (((code_pointer_28X - (((char *) (-3 + (*((long *) (((char *) (-3 + (StemplateS)))))))))))<<2);
   template_31X = StemplateS;
   SstackS = ((SstackS) + -20);
-  *((long *) ((SstackS) + 4)) = (128 | (4134 + (((size_29X)<<10))));
+  *((long *) ((SstackS) + 4)) = (128 | (4138 + (((size_29X)<<10))));
   cont_32X = 3 + (((long) ((SstackS) + 8)));
   *((long *) ((((char *) (-3 + cont_32X))) + 4)) = pc_30X;
   *((long *) ((((char *) (-3 + cont_32X))) + 8)) = template_31X;
@@ -232,22 +232,22 @@ static long enter_string(char *string_33X, long key_34X)
   long z_35X;
  {  z_35X = strlen((char *) string_33X);
   len_36X = 1 + z_35X;
-  addr_37X = ALLOCATE_SPACE(16, (4 + len_36X));
-  *((long *) addr_37X) = (66 + (((len_36X)<<8)));
+  addr_37X = ALLOCATE_SPACE(17, (4 + len_36X));
+  *((long *) addr_37X) = (70 + (((len_36X)<<8)));
   string_38X = 3 + (((long) (addr_37X + 4)));
   *((unsigned char *) ((((char *) (-3 + string_38X))) + z_35X)) = 0;
   arg0K0 = 0;
-  goto L9539;}
- L9539: {
+  goto L9546;}
+ L9546: {
   i_39X = arg0K0;
   if ((i_39X < z_35X)) {
     *((unsigned char *) ((((char *) (-3 + string_38X))) + i_39X)) = ((*(string_33X + i_39X)));
     arg0K0 = (1 + i_39X);
-    goto L9539;}
+    goto L9546;}
   else {
     return string_38X;}}
 }
-static char HcleanerB2170(long table_40X)
+static char HcleanerB2190(long table_40X)
 {
   long arg0K1;
   long arg0K0;
@@ -264,8 +264,8 @@ static char HcleanerB2170(long table_40X)
   long table_41X;
  {  table_41X = s48_trace_value(table_40X);
   arg0K0 = 0;
-  goto L9729;}
- L9729: {
+  goto L9736;}
+ L9736: {
   i_42X = arg0K0;
   temp_43X = 1024 == i_42X;
   if (temp_43X) {
@@ -274,8 +274,8 @@ static char HcleanerB2170(long table_40X)
     foo_44X = *((long *) ((((char *) (-3 + table_41X))) + (((i_42X)<<2))));
     arg0K0 = foo_44X;
     arg0K1 = 1;
-    goto L9749;}}
- L9749: {
+    goto L9756;}}
+ L9756: {
   foo_45X = arg0K0;
   okay_46X = arg0K1;
   if ((1 == foo_45X)) {
@@ -283,7 +283,7 @@ static char HcleanerB2170(long table_40X)
     S48_WRITE_BARRIER(table_41X, addr_47X, okay_46X);
     *((long *) addr_47X) = okay_46X;
     arg0K0 = (1 + i_42X);
-    goto L9729;}
+    goto L9736;}
   else {
     v_48X = s48_extantP(foo_45X);
     if (v_48X) {
@@ -292,15 +292,15 @@ static char HcleanerB2170(long table_40X)
       S48_WRITE_BARRIER(new_foo_49X, addr_50X, okay_46X);
       *((long *) addr_50X) = okay_46X;
       arg0K0 = new_foo_49X;
-      goto L9754;}
+      goto L9761;}
     else {
       arg0K0 = okay_46X;
-      goto L9754;}}}
- L9754: {
+      goto L9761;}}}
+ L9761: {
   v_51X = arg0K0;
   arg0K0 = (*((long *) ((((char *) (-3 + foo_45X))) + 4)));
   arg0K1 = v_51X;
-  goto L9749;}
+  goto L9756;}
 }
 static void push_exception_continuationB(long exception_52X, long instruction_size_53X)
 {
@@ -326,22 +326,22 @@ static void push_exception_continuationB(long exception_52X, long instruction_si
   Scode_pointerS = (((char *) (-3 + (*((long *) (((char *) (-3 + tem_55X))))))));
   arg1K0 = ((SstackS) + 4);
   arg0K1 = 0;
-  goto L9962;}
- L9962: {
+  goto L9969;}
+ L9969: {
   p_56X = arg1K0;
   i_57X = arg0K1;
   if ((2 == (3 & (*((long *) p_56X))))) {
-    if ((22 == (*((long *) p_56X)))) {
+    if ((26 == (*((long *) p_56X)))) {
       arg0K0 = (-1 + i_57X);
-      goto L9903;}
+      goto L9910;}
     else {
       arg0K0 = i_57X;
-      goto L9903;}}
+      goto L9910;}}
   else {
     arg1K0 = (p_56X + 4);
     arg0K1 = (1 + i_57X);
-    goto L9962;}}
- L9903: {
+    goto L9969;}}
+ L9910: {
   v_58X = arg0K0;
   push_continuationB((Scode_pointerS), v_58X);
   *((long *) (SstackS)) = (((opcode_54X)<<2));
@@ -358,18 +358,18 @@ static long make_registered_channel(long mode_59X, long id_60X, long os_index_61
   char temp_63X;
  {  temp_63X = os_index_61X < (Snumber_of_channelsS);
   if (temp_63X) {
-    goto L10830;}
+    goto L10837;}
   else {
     x_64X = add_more_channels(os_index_61X);
     if (x_64X) {
-      goto L10830;}
+      goto L10837;}
     else {
       *TT0 = 9;
       return 1;}}}
- L10830: {
+ L10837: {
   if ((1 == (*((Svm_channelsS) + os_index_61X)))) {
-    addr_65X = ALLOCATE_SPACE(5, 24);
-    *((long *) addr_65X) = 5142;
+    addr_65X = ALLOCATE_SPACE(6, 24);
+    *((long *) addr_65X) = 5146;
     x_66X = 3 + (((long) (addr_65X + 4)));
     *((long *) (((char *) (-3 + x_66X)))) = (((mode_59X)<<2));
     *((long *) ((((char *) (-3 + x_66X))) + 4)) = id_60X;
@@ -392,21 +392,21 @@ static long channel_close_error(long status_67X, long index_68X, long id_69X)
   PS_WRITE_CHAR(10, (stderr), ignoreXX) }
   ps_write_string(" while closing port ", (stderr));
   if ((3 == (3 & id_69X))) {
-    if ((16 == (31 & ((((*((long *) ((((char *) (-3 + id_69X))) + -4))))>>2))))) {
+    if ((17 == (31 & ((((*((long *) ((((char *) (-3 + id_69X))) + -4))))>>2))))) {
       ps_write_string((((char *)(((char *) (-3 + id_69X))))), (stderr));
-      goto L11476;}
+      goto L11483;}
     else {
-      goto L11470;}}
+      goto L11477;}}
   else {
-    goto L11470;}}
- L11476: {
+    goto L11477;}}
+ L11483: {
   PS_WRITE_CHAR(10, (stderr), v_70X)
   return v_70X;}
- L11470: {
+ L11477: {
   ps_write_integer((((index_68X)>>2)), (stderr));
-  goto L11476;}
+  goto L11483;}
 }
-static void HtopD8911(void)
+static void HtopD8931(void)
 {
   char * arg1K0;
   long arg0K1;
@@ -455,17 +455,17 @@ static void HtopD8911(void)
   long length_72X;
   char * frame_71X;
  {  arg1K0 = (Sexternal_root_stackS);
-  goto L6268;}
- L6268: {
+  goto L6275;}
+ L6275: {
   frame_71X = arg1K0;
   if ((frame_71X == NULL)) {
     arg1K0 = (Spermanent_external_rootsS);
-    goto L6294;}
+    goto L6301;}
   else {
     length_72X = *((long *) frame_71X);
     arg0K0 = 0;
-    goto L6276;}}
- L6294: {
+    goto L6283;}}
+ L6301: {
   frame_73X = arg1K0;
   if ((frame_73X == NULL)) {
     s48_initializing_gc_root();
@@ -499,25 +499,25 @@ static void HtopD8911(void)
     v_87X = s48_trace_value((Sos_signal_argumentS));
     Sos_signal_argumentS = v_87X;
     arg0K0 = (Sfinalizer_alistS);
-    goto L5302;}
+    goto L5309;}
   else {
     cell_88X = ((char *) (*((long *) (frame_73X + 4))));
     x2_89X = s48_trace_value((*((long *) cell_88X)));
     *((long *) cell_88X) = x2_89X;
     arg1K0 = (((char *) (*((long *) frame_73X))));
-    goto L6294;}}
- L6276: {
+    goto L6301;}}
+ L6283: {
   i_90X = arg0K0;
   if ((i_90X == length_72X)) {
     arg1K0 = (((char *) (*((long *) (frame_71X + 4)))));
-    goto L6268;}
+    goto L6275;}
   else {
     cell_91X = ((char *) (*((long *) (frame_71X + (8 + (((i_90X)<<2)))))));
     x2_92X = s48_trace_value((*((long *) cell_91X)));
     *((long *) cell_91X) = x2_92X;
     arg0K0 = (1 + i_90X);
-    goto L6276;}}
- L5302: {
+    goto L6283;}}
+ L5309: {
   alist_93X = arg0K0;
   if ((25 == alist_93X)) {
     env_94X = s48_trace_value((SenvS));
@@ -528,22 +528,22 @@ static void HtopD8911(void)
     Spending_channels_tailS = v_96X;
     if ((Sstack_warningPS)) {
       arg1K0 = (Sstack_beginS);
-      goto L5896;}
+      goto L5903;}
     else {
-      goto L5929;}}
+      goto L5936;}}
   else {
     pair_97X = *((long *) (((char *) (-3 + alist_93X))));
     x_98X = s48_extantP((*((long *) (((char *) (-3 + pair_97X))))));
     if (x_98X) {
-      goto L5327;}
+      goto L5334;}
     else {
       s48_trace_stob_contentsB((*((long *) (((char *) (-3 + pair_97X))))));
-      goto L5327;}}}
- L5896: {
+      goto L5334;}}}
+ L5903: {
   a_99X = arg1K0;
   if ((252645135 == (*((long *) a_99X)))) {
     arg1K0 = (a_99X + 4);
-    goto L5896;}
+    goto L5903;}
   else {
     unused_100X = (((a_99X - (Sstack_beginS)))>>2);
     if ((unused_100X < 30)) {
@@ -555,105 +555,105 @@ static void HtopD8911(void)
       { long ignoreXX;
       PS_WRITE_CHAR(10, (stderr), ignoreXX) }
       Sstack_warningPS = 0;
-      goto L5929;}
+      goto L5936;}
     else {
-      goto L5929;}}}
- L5929: {
+      goto L5936;}}}
+ L5936: {
   arg1K0 = ((SstackS) + 4);
   arg0K1 = 0;
-  goto L5994;}
- L5327: {
+  goto L6001;}
+ L5334: {
   val_101X = s48_trace_value((*((long *) ((((char *) (-3 + pair_97X))) + 4))));
   addr_102X = (((char *) (-3 + pair_97X))) + 4;
   S48_WRITE_BARRIER(pair_97X, addr_102X, val_101X);
   *((long *) addr_102X) = val_101X;
   arg0K0 = (*((long *) ((((char *) (-3 + alist_93X))) + 4)));
-  goto L5302;}
- L5994: {
+  goto L5309;}
+ L6001: {
   p_103X = arg1K0;
   i_104X = arg0K1;
   if ((2 == (3 & (*((long *) p_103X))))) {
-    if ((22 == (*((long *) p_103X)))) {
+    if ((26 == (*((long *) p_103X)))) {
       arg0K0 = (-1 + i_104X);
-      goto L5931;}
+      goto L5938;}
     else {
       arg0K0 = i_104X;
-      goto L5931;}}
+      goto L5938;}}
   else {
     arg1K0 = (p_103X + 4);
     arg0K1 = (1 + i_104X);
-    goto L5994;}}
- L5931: {
+    goto L6001;}}
+ L5938: {
   arg_count_105X = arg0K0;
   s48_trace_locationsB(((SstackS) + 4), ((SstackS) + (4 + (((arg_count_105X)<<2)))));
   p_106X = SenvS;
   if ((3 == (3 & p_106X))) {
     if ((p_106X < (((long) (Sstack_beginS))))) {
-      goto L5947;}
+      goto L5954;}
     else {
       if (((((long) (Sstack_endS))) < p_106X)) {
-        goto L5947;}
+        goto L5954;}
       else {
         env_107X = SenvS;
         arg0K0 = env_107X;
-        goto L6107;}}}
+        goto L6114;}}}
   else {
-    goto L5947;}}
- L5947: {
+    goto L5954;}}
+ L5954: {
   v_108X = s48_trace_value((SenvS));
   SenvS = v_108X;
-  goto L5952;}
- L6107: {
+  goto L5959;}
+ L6114: {
   env_109X = arg0K0;
   if ((3 == (3 & env_109X))) {
     if ((env_109X < (((long) (Sstack_beginS))))) {
-      goto L5952;}
+      goto L5959;}
     else {
       if (((((long) (Sstack_endS))) < env_109X)) {
-        goto L5952;}
+        goto L5959;}
       else {
         s48_trace_stob_contentsB(env_109X);
         arg0K0 = (*((long *) (((char *) (-3 + env_109X)))));
-        goto L6107;}}}
+        goto L6114;}}}
   else {
-    goto L5952;}}
- L5952: {
+    goto L5959;}}
+ L5959: {
   arg0K0 = (ScontS);
   arg0K1 = 0;
-  goto L5957;}
- L5957: {
+  goto L5964;}
+ L5964: {
   cont_110X = arg0K0;
   last_env_111X = arg0K1;
   env_112X = *((long *) ((((char *) (-3 + cont_110X))) + 12));
   s48_trace_stob_contentsB(cont_110X);
   if ((env_112X == last_env_111X)) {
-    goto L5975;}
+    goto L5982;}
   else {
     arg0K0 = env_112X;
-    goto L6062;}}
- L5975: {
+    goto L6069;}}
+ L5982: {
   if ((cont_110X == (Sbottom_of_stackS))) {
     return;}
   else {
     arg0K0 = (*((long *) (((char *) (-3 + cont_110X)))));
     arg0K1 = env_112X;
-    goto L5957;}}
- L6062: {
+    goto L5964;}}
+ L6069: {
   env_113X = arg0K0;
   if ((3 == (3 & env_113X))) {
     if ((env_113X < (((long) (Sstack_beginS))))) {
-      goto L5975;}
+      goto L5982;}
     else {
       if (((((long) (Sstack_endS))) < env_113X)) {
-        goto L5975;}
+        goto L5982;}
       else {
         s48_trace_stob_contentsB(env_113X);
         arg0K0 = (*((long *) (((char *) (-3 + env_113X)))));
-        goto L6062;}}}
+        goto L6069;}}}
   else {
-    goto L5975;}}
+    goto L5982;}}
 }
-static long Hlookup2112(long table_114X, long string_115X, long key_116X)
+static long Hlookup2132(long table_114X, long string_115X, long key_116X)
 {
   long arg0K1;
   long arg0K0;
@@ -671,24 +671,24 @@ static long Hlookup2112(long table_114X, long string_115X, long key_116X)
  {  n_117X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + string_115X))) + -4))))>>8));
   arg0K0 = 0;
   arg0K1 = 0;
-  goto L13097;}
- L13097: {
+  goto L13104;}
+ L13104: {
   i_118X = arg0K0;
   h_119X = arg0K1;
   if ((i_118X < n_117X)) {
     arg0K0 = (1 + i_118X);
     arg0K1 = (h_119X + (((*((unsigned char *) ((((char *) (-3 + string_115X))) + i_118X))))));
-    goto L13097;}
+    goto L13104;}
   else {
     index_120X = 1023 & h_119X;
     bucket_121X = *((long *) ((((char *) (-3 + table_114X))) + (((index_120X)<<2))));
     arg0K0 = bucket_121X;
-    goto L13065;}}
- L13065: {
+    goto L13072;}}
+ L13072: {
   foo_122X = arg0K0;
   if ((1 == foo_122X)) {
-    addr_123X = ALLOCATE_SPACE(13, 20);
-    *((long *) addr_123X) = 4150;
+    addr_123X = ALLOCATE_SPACE(14, 20);
+    *((long *) addr_123X) = 4154;
     x_124X = 3 + (((long) (addr_123X + 4)));
     *((long *) (((char *) (-3 + x_124X)))) = string_115X;
     *((long *) ((((char *) (-3 + x_124X))) + 4)) = 1;
@@ -705,14 +705,14 @@ static long Hlookup2112(long table_114X, long string_115X, long key_116X)
       if (((!memcmp((void *)(((char *) (-3 + s2_126X))), (void *)(((char *) (-3 + string_115X))),len_127X)))) {
         return foo_122X;}
       else {
-        goto L13081;}}
+        goto L13088;}}
     else {
-      goto L13081;}}}
- L13081: {
+      goto L13088;}}}
+ L13088: {
   arg0K0 = (*((long *) ((((char *) (-3 + foo_122X))) + 12)));
-  goto L13065;}
+  goto L13072;}
 }
-static long Hlookup2093(long table_128X, long string_129X, long key_130X)
+static long Hlookup2113(long table_128X, long string_129X, long key_130X)
 {
   long arg0K1;
   long arg0K0;
@@ -730,24 +730,24 @@ static long Hlookup2093(long table_128X, long string_129X, long key_130X)
  {  n_131X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + string_129X))) + -4))))>>8));
   arg0K0 = 0;
   arg0K1 = 0;
-  goto L13222;}
- L13222: {
+  goto L13229;}
+ L13229: {
   i_132X = arg0K0;
   h_133X = arg0K1;
   if ((i_132X < n_131X)) {
     arg0K0 = (1 + i_132X);
     arg0K1 = (h_133X + (((*((unsigned char *) ((((char *) (-3 + string_129X))) + i_132X))))));
-    goto L13222;}
+    goto L13229;}
   else {
     index_134X = 1023 & h_133X;
     bucket_135X = *((long *) ((((char *) (-3 + table_128X))) + (((index_134X)<<2))));
     arg0K0 = bucket_135X;
-    goto L13190;}}
- L13190: {
+    goto L13197;}}
+ L13197: {
   foo_136X = arg0K0;
   if ((1 == foo_136X)) {
-    addr_137X = ALLOCATE_SPACE(13, 20);
-    *((long *) addr_137X) = 4150;
+    addr_137X = ALLOCATE_SPACE(14, 20);
+    *((long *) addr_137X) = 4154;
     x_138X = 3 + (((long) (addr_137X + 4)));
     *((long *) (((char *) (-3 + x_138X)))) = string_129X;
     *((long *) ((((char *) (-3 + x_138X))) + 4)) = 5;
@@ -764,14 +764,14 @@ static long Hlookup2093(long table_128X, long string_129X, long key_130X)
       if (((!memcmp((void *)(((char *) (-3 + s2_140X))), (void *)(((char *) (-3 + string_129X))),len_141X)))) {
         return foo_136X;}
       else {
-        goto L13206;}}
+        goto L13213;}}
     else {
-      goto L13206;}}}
- L13206: {
+      goto L13213;}}}
+ L13213: {
   arg0K0 = (*((long *) ((((char *) (-3 + foo_136X))) + 12)));
-  goto L13190;}
+  goto L13197;}
 }
-static void HtopD8904(void)
+static void HtopD8924(void)
 {
   long arg0K2;
   long arg0K1;
@@ -804,7 +804,7 @@ static void HtopD8904(void)
   long tem_143X;
   long new_142X;
  {  new_142X = s48_trace_value((Sthe_symbol_tableS));
-  HcleanerB2170(new_142X);
+  HcleanerB2190(new_142X);
   Sthe_symbol_tableS = new_142X;
   tem_143X = StemplateS;
   pc_144X = Ssaved_pcS;
@@ -813,8 +813,8 @@ static void HtopD8904(void)
   arg0K0 = (Sfinalizer_alistS);
   arg0K1 = 25;
   arg0K2 = 25;
-  goto L7735;}
- L7735: {
+  goto L7742;}
+ L7742: {
   alist_145X = arg0K0;
   okay_146X = arg0K1;
   goners_147X = arg0K2;
@@ -823,10 +823,10 @@ static void HtopD8904(void)
     l2_148X = Sfinalize_theseS;
     if ((25 == goners_147X)) {
       arg0K0 = l2_148X;
-      goto L7743;}
+      goto L7750;}
     else {
       arg0K0 = goners_147X;
-      goto L7796;}}
+      goto L7803;}}
   else {
     alist_149X = s48_trace_value(alist_145X);
     pair_150X = s48_trace_value((*((long *) (((char *) (-3 + alist_149X))))));
@@ -847,7 +847,7 @@ static void HtopD8904(void)
       arg0K0 = next_152X;
       arg0K1 = alist_149X;
       arg0K2 = goners_147X;
-      goto L7735;}
+      goto L7742;}
     else {
       addr_158X = (((char *) (-3 + alist_149X))) + 4;
       S48_WRITE_BARRIER(alist_149X, addr_158X, goners_147X);
@@ -855,24 +855,24 @@ static void HtopD8904(void)
       arg0K0 = next_152X;
       arg0K1 = okay_146X;
       arg0K2 = alist_149X;
-      goto L7735;}}}
- L7743: {
+      goto L7742;}}}
+ L7750: {
   v_159X = arg0K0;
   Sfinalize_theseS = v_159X;
   arg0K0 = 0;
-  goto L12529;}
- L7796: {
+  goto L12536;}
+ L7803: {
   l_160X = arg0K0;
   if ((25 == (*((long *) ((((char *) (-3 + l_160X))) + 4))))) {
     addr_161X = (((char *) (-3 + l_160X))) + 4;
     S48_WRITE_BARRIER(l_160X, addr_161X, l2_148X);
     *((long *) addr_161X) = l2_148X;
     arg0K0 = goners_147X;
-    goto L7743;}
+    goto L7750;}
   else {
     arg0K0 = (*((long *) ((((char *) (-3 + l_160X))) + 4)));
-    goto L7796;}}
- L12529: {
+    goto L7803;}}
+ L12536: {
   i_162X = arg0K0;
   if ((i_162X == (Snumber_of_channelsS))) {
     Spending_interruptsS = (4 | (Spending_interruptsS));
@@ -889,58 +889,58 @@ static void HtopD8904(void)
   else {
     channel_163X = *((Svm_channelsS) + i_162X);
     if ((1 == channel_163X)) {
-      goto L12565;}
+      goto L12572;}
     else {
       header_164X = *((long *) ((((char *) (-3 + channel_163X))) + -4));
       if ((3 == (3 & header_164X))) {
         arg0K0 = header_164X;
-        goto L12558;}
+        goto L12565;}
       else {
         if ((0 == (*((long *) (((char *) (-3 + channel_163X))))))) {
           arg0K0 = 1;
-          goto L12558;}
+          goto L12565;}
         else {
           id_165X = *((long *) ((((char *) (-3 + channel_163X))) + 4));
           if ((0 == (3 & id_165X))) {
             arg0K0 = id_165X;
-            goto L12241;}
+            goto L12248;}
           else {
             if ((3 == (3 & (*((long *) ((((char *) (-3 + id_165X))) + -4)))))) {
               arg0K0 = (*((long *) ((((char *) (-3 + id_165X))) + -4)));
-              goto L12241;}
+              goto L12248;}
             else {
               arg0K0 = id_165X;
-              goto L12241;}}}}}}}
- L12565: {
+              goto L12248;}}}}}}}
+ L12572: {
   arg0K0 = (1 + i_162X);
-  goto L12529;}
- L12558: {
+  goto L12536;}
+ L12565: {
   new_166X = arg0K0;
   *((Svm_channelsS) + i_162X) = new_166X;
-  goto L12565;}
- L12241: {
+  goto L12572;}
+ L12248: {
   id_167X = arg0K0;
   status_168X = close_channelB(channel_163X);
   if ((status_168X == NO_ERRORS)) {
-    goto L12256;}
+    goto L12263;}
   else {
     channel_close_error(status_168X, (*((long *) ((((char *) (-3 + channel_163X))) + 8))), id_167X);
-    goto L12256;}}
- L12256: {
+    goto L12263;}}
+ L12263: {
   ps_write_string("Channel closed: ", (stderr));
   if ((0 == (3 & id_167X))) {
     ps_write_integer((((id_167X)>>2)), (stderr));
-    goto L12274;}
+    goto L12281;}
   else {
     ps_write_string((((char *)(((char *) (-3 + id_167X))))), (stderr));
-    goto L12274;}}
- L12274: {
+    goto L12281;}}
+ L12281: {
   ps_write_string(" ", (stderr));
   ps_write_integer(((((*((long *) ((((char *) (-3 + channel_163X))) + 8))))>>2)), (stderr));
   { long ignoreXX;
   PS_WRITE_CHAR(10, (stderr), ignoreXX) }
   arg0K0 = 1;
-  goto L12558;}
+  goto L12565;}
 }
 static long collect_saving_temps(long value0_169X, long value1_170X, long *TT0)
 {
@@ -1018,10 +1018,10 @@ void s48_register_gc_rootB(char * loc_addr_182X)
  {  frame_183X = (char *)malloc(8);
   if ((frame_183X == NULL)) {
     ps_error("out of memory registering a global root", 0);
-    goto L3188;}
+    goto L3195;}
   else {
-    goto L3188;}}
- L3188: {
+    goto L3195;}}
+ L3195: {
   *((long *) frame_183X) = (((long) (Spermanent_external_rootsS)));
   *((long *) (frame_183X + 4)) = (((long) loc_addr_182X));
   Spermanent_external_rootsS = frame_183X;
@@ -1089,15 +1089,15 @@ void s48_mark_traced_channels_closedB(void)
   long channel_193X;
   long i_192X;
  {  arg0K0 = 0;
-  goto L6345;}
- L6345: {
+  goto L6352;}
+ L6352: {
   i_192X = arg0K0;
   if ((i_192X == (Snumber_of_channelsS))) {
     return;}
   else {
     channel_193X = *((Svm_channelsS) + i_192X);
     if ((1 == channel_193X)) {
-      goto L6405;}
+      goto L6412;}
     else {
       header_194X = *((long *) ((((char *) (-3 + channel_193X))) + -4));
       if ((3 == (3 & header_194X))) {
@@ -1105,16 +1105,16 @@ void s48_mark_traced_channels_closedB(void)
         descriptor_195X = *((long *) ((((char *) (-3 + channel_193X))) + 4));
         if ((0 == (3 & descriptor_195X))) {
           ps_write_integer(((((*((long *) ((((char *) (-3 + channel_193X))) + 4))))>>2)), (stderr));
-          goto L6391;}
+          goto L6398;}
         else {
           ps_write_string((((char *)(((char *) (-3 + (*((long *) ((((char *) (-3 + channel_193X))) + 4)))))))), (stderr));
-          goto L6391;}}
+          goto L6398;}}
       else {
-        goto L6405;}}}}
- L6405: {
+        goto L6412;}}}}
+ L6412: {
   arg0K0 = (1 + i_192X);
-  goto L6345;}
- L6391: {
+  goto L6352;}
+ L6398: {
   { long ignoreXX;
   PS_WRITE_CHAR(10, (stderr), ignoreXX) }
   addr_196X = ((char *) (-3 + header_194X));
@@ -1123,7 +1123,7 @@ void s48_mark_traced_channels_closedB(void)
   addr_197X = (((char *) (-3 + header_194X))) + 8;
   S48_WRITE_BARRIER(header_194X, addr_197X, -4);
   *((long *) addr_197X) = -4;
-  goto L6405;}
+  goto L6412;}
 }
 long s48_set_channel_os_index(long channel_198X, long os_index_199X)
 {
@@ -1136,26 +1136,26 @@ long s48_set_channel_os_index(long channel_198X, long os_index_199X)
   char temp_200X;
  {  temp_200X = os_index_199X < (Snumber_of_channelsS);
   if (temp_200X) {
-    goto L7914;}
+    goto L7921;}
   else {
     x_201X = add_more_channels(os_index_199X);
     if (x_201X) {
-      goto L7914;}
+      goto L7921;}
     else {
       return 36;}}}
- L7914: {
+ L7921: {
   if ((1 == (*((Svm_channelsS) + os_index_199X)))) {
     old_index_202X = (((*((long *) ((((char *) (-3 + channel_198X))) + 8))))>>2);
     x_203X = *((long *) ((((char *) (-3 + channel_198X))) + 16));
     if ((5 == x_203X)) {
       v_204X = ps_abort_fd_op(old_index_202X);
       enqueue_channelB(old_index_202X, v_204X);
-      goto L7900;}
+      goto L7907;}
     else {
-      goto L7900;}}
+      goto L7907;}}
   else {
     return 44;}}
- L7900: {
+ L7907: {
   *((Svm_channelsS) + old_index_202X) = 1;
   *((Svm_channelsS) + os_index_199X) = channel_198X;
   val_205X = ((os_index_199X)<<2);
@@ -1185,25 +1185,25 @@ long s48_cleaned_imported_bindings(void)
  {  table_207X = s48_trace_value((Simported_bindingsS));
   table_208X = s48_trace_value(table_207X);
   arg0K0 = 0;
-  goto L8591;}
- L8591: {
+  goto L8598;}
+ L8598: {
   i_209X = arg0K0;
   if ((1024 == i_209X)) {
     arg0K0 = 0;
-    goto L9680;}
+    goto L9687;}
   else {
     foo_210X = *((long *) ((((char *) (-3 + table_208X))) + (((i_209X)<<2))));
     arg0K0 = foo_210X;
     arg0K1 = 1;
-    goto L8611;}}
- L9680: {
+    goto L8618;}}
+ L9687: {
   i_211X = arg0K0;
   if ((1024 == i_211X)) {
     return table_207X;}
   else {
     arg0K0 = (*((long *) ((((char *) (-3 + table_207X))) + (((i_211X)<<2)))));
-    goto L9688;}}
- L8611: {
+    goto L9695;}}
+ L8618: {
   foo_212X = arg0K0;
   okay_213X = arg0K1;
   if ((1 == foo_212X)) {
@@ -1211,7 +1211,7 @@ long s48_cleaned_imported_bindings(void)
     S48_WRITE_BARRIER(table_208X, addr_214X, okay_213X);
     *((long *) addr_214X) = okay_213X;
     arg0K0 = (1 + i_209X);
-    goto L8591;}
+    goto L8598;}
   else {
     v_215X = s48_extantP(foo_212X);
     if (v_215X) {
@@ -1220,32 +1220,32 @@ long s48_cleaned_imported_bindings(void)
       S48_WRITE_BARRIER(new_foo_216X, addr_217X, okay_213X);
       *((long *) addr_217X) = okay_213X;
       arg0K0 = new_foo_216X;
-      goto L8616;}
+      goto L8623;}
     else {
       arg0K0 = okay_213X;
-      goto L8616;}}}
- L9688: {
+      goto L8623;}}}
+ L9695: {
   entry_218X = arg0K0;
   if ((1 == entry_218X)) {
     arg0K0 = (1 + i_211X);
-    goto L9680;}
+    goto L9687;}
   else {
     addr_219X = (((char *) (-3 + entry_218X))) + 8;
     S48_WRITE_BARRIER(entry_218X, addr_219X, 529);
     *((long *) addr_219X) = 529;
     arg0K0 = (*((long *) ((((char *) (-3 + entry_218X))) + 12)));
-    goto L9688;}}
- L8616: {
+    goto L9695;}}
+ L8623: {
   v_220X = arg0K0;
   arg0K0 = (*((long *) ((((char *) (-3 + foo_212X))) + 12)));
   arg0K1 = v_220X;
-  goto L8611;}
+  goto L8618;}
 }
 long s48_copy_symbol_table(void)
 {
   long new_221X;
  {  new_221X = s48_trace_value((Sthe_symbol_tableS));
-  HcleanerB2170(new_221X);
+  HcleanerB2190(new_221X);
   return new_221X;}
 }
 void s48_setup_external_exception(long why_222X, long nargs_223X)
@@ -1254,10 +1254,10 @@ void s48_setup_external_exception(long why_222X, long nargs_223X)
  {  push_exception_continuationB(why_222X, 1);
   if ((10 < nargs_223X)) {
     ps_error("too many arguments from external exception", 0);
-    goto L11032;}
+    goto L11039;}
   else {
-    goto L11032;}}
- L11032: {
+    goto L11039;}}
+ L11039: {
   Sexternal_exception_nargsS = nargs_223X;
   Sexternal_exceptionPS = 1;
   return;}
@@ -1271,7 +1271,7 @@ void s48_close_channel(long os_index_224X)
     if ((os_index_224X < (Snumber_of_channelsS))) {
       obj_225X = *((Svm_channelsS) + os_index_224X);
       if ((3 == (3 & obj_225X))) {
-        if ((5 == (31 & ((((*((long *) ((((char *) (-3 + obj_225X))) + -4))))>>2))))) {
+        if ((6 == (31 & ((((*((long *) ((((char *) (-3 + obj_225X))) + -4))))>>2))))) {
           close_channelB((*((Svm_channelsS) + os_index_224X)));
           return;}
         else {
@@ -1293,44 +1293,44 @@ char s48_warn_about_undefined_imported_bindings(void)
  {  out_226X = stderr;
   table_227X = Simported_bindingsS;
   arg0K0 = 0;
-  goto L11572;}
- L11572: {
+  goto L11579;}
+ L11579: {
   i_228X = arg0K0;
   temp_229X = 1024 == i_228X;
   if (temp_229X) {
     return temp_229X;}
   else {
     arg0K0 = (*((long *) ((((char *) (-3 + table_227X))) + (((i_228X)<<2)))));
-    goto L11580;}}
- L11580: {
+    goto L11587;}}
+ L11587: {
   entry_230X = arg0K0;
   if ((1 == entry_230X)) {
     arg0K0 = (1 + i_228X);
-    goto L11572;}
+    goto L11579;}
   else {
     if ((17 == (255 & (*((long *) ((((char *) (-3 + entry_230X))) + 8)))))) {
       name_231X = *((long *) (((char *) (-3 + entry_230X))));
       ps_write_string("undefined imported name ", out_226X);
       if ((3 == (3 & name_231X))) {
-        if ((16 == (31 & ((((*((long *) ((((char *) (-3 + name_231X))) + -4))))>>2))))) {
+        if ((17 == (31 & ((((*((long *) ((((char *) (-3 + name_231X))) + -4))))>>2))))) {
           ps_write_string((((char *)(((char *) (-3 + name_231X))))), out_226X);
-          goto L11560;}
+          goto L11567;}
         else {
-          goto L11558;}}
+          goto L11565;}}
       else {
-        goto L11558;}}
+        goto L11565;}}
     else {
-      goto L11583;}}}
- L11560: {
+      goto L11590;}}}
+ L11567: {
   { long ignoreXX;
   PS_WRITE_CHAR(10, out_226X, ignoreXX) }
-  goto L11583;}
- L11558: {
+  goto L11590;}
+ L11565: {
   ps_write_string("<invalid name>", out_226X);
-  goto L11560;}
- L11583: {
+  goto L11567;}
+ L11590: {
   arg0K0 = (*((long *) ((((char *) (-3 + entry_230X))) + 12)));
-  goto L11580;}
+  goto L11587;}
 }
 void s48_define_exported_binding(char *name_232X, long value_233X)
 {
@@ -1357,7 +1357,7 @@ void s48_define_exported_binding(char *name_232X, long value_233X)
     arg2K0 = 1;
     arg0K1 = 0;
     arg0K2 = value_233X;
-    goto L14352;}
+    goto L14359;}
   else {
     temp0_236X = collect_saving_temps(value_233X, 1, &temp1_237X);
     v_238X = AVAILABLEp(space_234X);
@@ -1365,30 +1365,30 @@ void s48_define_exported_binding(char *name_232X, long value_233X)
       arg2K0 = 1;
       arg0K1 = 0;
       arg0K2 = temp0_236X;
-      goto L14352;}
+      goto L14359;}
     else {
       arg2K0 = 0;
       arg0K1 = 0;
       arg0K2 = temp0_236X;
-      goto L14352;}}}
- L14352: {
+      goto L14359;}}}
+ L14359: {
   okayP_239X = arg2K0;
   key_240X = arg0K1;
   temp_241X = arg0K2;
   if (okayP_239X) {
     arg0K0 = key_240X;
     arg0K1 = temp_241X;
-    goto L14333;}
+    goto L14340;}
   else {
     ps_error("Scheme48 heap overflow", 0);
     arg0K0 = key_240X;
     arg0K1 = temp_241X;
-    goto L14333;}}
- L14333: {
+    goto L14340;}}
+ L14340: {
   key_242X = arg0K0;
   value_243X = arg0K1;
   name_244X = enter_string(name_232X, key_242X);
-  x_245X = Hlookup2093((Simported_bindingsS), name_244X, key_242X);
+  x_245X = Hlookup2113((Simported_bindingsS), name_244X, key_242X);
   addr_246X = (((char *) (-3 + x_245X))) + 8;
   S48_WRITE_BARRIER(x_245X, addr_246X, value_243X);
   *((long *) addr_246X) = value_243X;
@@ -1411,39 +1411,39 @@ long s48_add_channel(long mode_247X, long id_248X, long os_index_249X)
   if (v_250X) {
     arg2K0 = 1;
     arg0K1 = 0;
-    goto L14741;}
+    goto L14748;}
   else {
     collect_saving_temps(1, 1, &temp1_251X);
     v_252X = AVAILABLEp(6);
     if (v_252X) {
       arg2K0 = 1;
       arg0K1 = 0;
-      goto L14741;}
+      goto L14748;}
     else {
       arg2K0 = 0;
       arg0K1 = 0;
-      goto L14741;}}}
- L14741: {
+      goto L14748;}}}
+ L14748: {
   okayP_253X = arg2K0;
   key_254X = arg0K1;
   if (okayP_253X) {
     arg0K0 = key_254X;
-    goto L14724;}
+    goto L14731;}
   else {
     ps_error("Scheme48 heap overflow", 0);
     arg0K0 = key_254X;
-    goto L14724;}}
- L14724: {
+    goto L14731;}}
+ L14731: {
   v_255X = arg0K0;
   channel_256X = make_registered_channel((((mode_247X)>>2)), id_248X, os_index_249X, v_255X, &status_257X);
   if ((3 == (3 & channel_256X))) {
-    if ((5 == (31 & ((((*((long *) ((((char *) (-3 + channel_256X))) + -4))))>>2))))) {
+    if ((6 == (31 & ((((*((long *) ((((char *) (-3 + channel_256X))) + -4))))>>2))))) {
       return channel_256X;}
     else {
-      goto L14735;}}
+      goto L14742;}}
   else {
-    goto L14735;}}
- L14735: {
+    goto L14742;}}
+ L14742: {
   return (((status_257X)<<2));}
 }
 long s48_get_imported_binding(char *name_258X)
@@ -1464,32 +1464,32 @@ long s48_get_imported_binding(char *name_258X)
   if (v_260X) {
     arg2K0 = 1;
     arg0K1 = 0;
-    goto L15430;}
+    goto L15437;}
   else {
     collect_saving_temps(1, 1, &temp1_261X);
     v_262X = AVAILABLEp(space_259X);
     if (v_262X) {
       arg2K0 = 1;
       arg0K1 = 0;
-      goto L15430;}
+      goto L15437;}
     else {
       arg2K0 = 0;
       arg0K1 = 0;
-      goto L15430;}}}
- L15430: {
+      goto L15437;}}}
+ L15437: {
   okayP_263X = arg2K0;
   key_264X = arg0K1;
   if (okayP_263X) {
     arg0K0 = key_264X;
-    goto L15417;}
+    goto L15424;}
   else {
     ps_error("Scheme48 heap overflow", 0);
     arg0K0 = key_264X;
-    goto L15417;}}
- L15417: {
+    goto L15424;}}
+ L15424: {
   key_265X = arg0K0;
   name_266X = enter_string(name_258X, key_265X);
-  return Hlookup2112((Sexported_bindingsS), name_266X, key_265X);}
+  return Hlookup2132((Sexported_bindingsS), name_266X, key_265X);}
 }
 long s48_allocate_stob(long type_267X, long size_268X)
 {
@@ -1499,16 +1499,16 @@ long s48_allocate_stob(long type_267X, long size_268X)
   char v_269X;
  {  v_269X = AVAILABLEp(size_268X);
   if (v_269X) {
-    goto L15725;}
+    goto L15732;}
   else {
     collect_saving_temps(1, 1, &temp1_270X);
     v_271X = AVAILABLEp(size_268X);
     if (v_271X) {
-      goto L15725;}
+      goto L15732;}
     else {
       ps_error("Scheme48 heap overflow", 0);
-      goto L15725;}}}
- L15725: {
+      goto L15732;}}}
+ L15732: {
   addr_272X = ALLOCATE_SPACE(type_267X, (4 + size_268X));
   *((long *) addr_272X) = (2 + (((((((size_268X)<<6)) + type_267X))<<2)));
   return (3 + (((long) (addr_272X + 4))));}
@@ -1595,25 +1595,25 @@ void s48_initialize_vm(char * stack_begin_273X, long stack_size_274X)
   if ((symbol_table_275X == 1)) {
     v_276X = AVAILABLEp(1025);
     if (v_276X) {
-      goto L15456;}
+      goto L15463;}
     else {
       collect_saving_temps(1, 1, &temp1_277X);
       v_278X = AVAILABLEp(1025);
       if (v_278X) {
-        goto L15456;}
+        goto L15463;}
       else {
         ps_error("Scheme48 heap overflow", 0);
-        goto L15456;}}}
+        goto L15463;}}}
   else {
     Sthe_symbol_tableS = symbol_table_275X;
-    goto L15848;}}
- L15456: {
+    goto L15855;}}
+ L15463: {
   addr_279X = ALLOCATE_SPACE(2, 4100);
   *((long *) addr_279X) = 1048586;
   table_280X = 3 + (((long) (addr_279X + 4)));
   arg0K0 = 0;
-  goto L15531;}
- L15848: {
+  goto L15538;}
+ L15855: {
   exported_bindings_281X = s48_initial_exported_bindings();
   imported_bindings_282X = s48_initial_imported_bindings();
   v_283X = AVAILABLEp(2050);
@@ -1621,7 +1621,7 @@ void s48_initialize_vm(char * stack_begin_273X, long stack_size_274X)
     arg2K0 = 1;
     arg0K1 = imported_bindings_282X;
     arg0K2 = exported_bindings_281X;
-    goto L14434;}
+    goto L14441;}
   else {
     temp0_284X = collect_saving_temps(imported_bindings_282X, exported_bindings_281X, &temp1_285X);
     v_286X = AVAILABLEp(2050);
@@ -1629,13 +1629,13 @@ void s48_initialize_vm(char * stack_begin_273X, long stack_size_274X)
       arg2K0 = 1;
       arg0K1 = temp0_284X;
       arg0K2 = temp1_285X;
-      goto L14434;}
+      goto L14441;}
     else {
       arg2K0 = 0;
       arg0K1 = temp0_284X;
       arg0K2 = temp1_285X;
-      goto L14434;}}}
- L15531: {
+      goto L14441;}}}
+ L15538: {
   i_287X = arg0K0;
   if ((1024 == i_287X)) {
     Sthe_symbol_tableS = table_280X;
@@ -1646,38 +1646,38 @@ void s48_initialize_vm(char * stack_begin_273X, long stack_size_274X)
       if ((maybe_290X == 1)) {
         ps_error("insufficient heap space to build symbol table", 0);
         arg0K0 = maybe_290X;
-        goto L15485;}
+        goto L15492;}
       else {
         arg0K0 = maybe_290X;
-        goto L15485;}}
+        goto L15492;}}
     else {
       arg0K0 = maybe_288X;
-      goto L15485;}}
+      goto L15492;}}
   else {
     addr_291X = (((char *) (-3 + table_280X))) + (((i_287X)<<2));
     S48_WRITE_BARRIER(table_280X, addr_291X, 1);
     *((long *) addr_291X) = 1;
     arg0K0 = (1 + i_287X);
-    goto L15531;}}
- L14434: {
+    goto L15538;}}
+ L14441: {
   okayP_292X = arg2K0;
   temp0_293X = arg0K1;
   temp1_294X = arg0K2;
   if (okayP_292X) {
     arg0K0 = temp0_293X;
     arg0K1 = temp1_294X;
-    goto L14395;}
+    goto L14402;}
   else {
     ps_error("Scheme48 heap overflow", 0);
     arg0K0 = temp0_293X;
     arg0K1 = temp1_294X;
-    goto L14395;}}
- L15485: {
+    goto L14402;}}
+ L15492: {
   symbols_295X = arg0K0;
   n_296X = (((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + symbols_295X))) + -4))))>>8))))>>2);
   arg0K0 = 0;
-  goto L15552;}
- L14395: {
+  goto L15559;}
+ L14402: {
   imported_bindings_297X = arg0K0;
   exported_bindings_298X = arg0K1;
   if ((1 == imported_bindings_297X)) {
@@ -1685,14 +1685,14 @@ void s48_initialize_vm(char * stack_begin_273X, long stack_size_274X)
     *((long *) addr_299X) = 1048586;
     table_300X = 3 + (((long) (addr_299X + 4)));
     arg0K0 = 0;
-    goto L14496;}
+    goto L14503;}
   else {
     arg0K0 = imported_bindings_297X;
-    goto L14410;}}
- L15552: {
+    goto L14417;}}
+ L15559: {
   i_301X = arg0K0;
   if ((i_301X == n_296X)) {
-    goto L15848;}
+    goto L15855;}
   else {
     table_302X = Sthe_symbol_tableS;
     foo_303X = *((long *) ((((char *) (-3 + symbols_295X))) + (((i_301X)<<2))));
@@ -1700,19 +1700,19 @@ void s48_initialize_vm(char * stack_begin_273X, long stack_size_274X)
     n_305X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + string_304X))) + -4))))>>8));
     arg0K0 = 0;
     arg0K1 = 0;
-    goto L13019;}}
- L14496: {
+    goto L13026;}}
+ L14503: {
   i_306X = arg0K0;
   if ((1024 == i_306X)) {
     arg0K0 = table_300X;
-    goto L14410;}
+    goto L14417;}
   else {
     addr_307X = (((char *) (-3 + table_300X))) + (((i_306X)<<2));
     S48_WRITE_BARRIER(table_300X, addr_307X, 1);
     *((long *) addr_307X) = 1;
     arg0K0 = (1 + i_306X);
-    goto L14496;}}
- L14410: {
+    goto L14503;}}
+ L14417: {
   v_308X = arg0K0;
   Simported_bindingsS = v_308X;
   if ((1 == exported_bindings_298X)) {
@@ -1720,17 +1720,17 @@ void s48_initialize_vm(char * stack_begin_273X, long stack_size_274X)
     *((long *) addr_309X) = 1048586;
     table_310X = 3 + (((long) (addr_309X + 4)));
     arg0K0 = 0;
-    goto L14473;}
+    goto L14480;}
   else {
     arg0K0 = exported_bindings_298X;
-    goto L14423;}}
- L13019: {
+    goto L14430;}}
+ L13026: {
   i_311X = arg0K0;
   h_312X = arg0K1;
   if ((i_311X < n_305X)) {
     arg0K0 = (1 + i_311X);
     arg0K1 = (h_312X + (((*((unsigned char *) ((((char *) (-3 + string_304X))) + i_311X))))));
-    goto L13019;}
+    goto L13026;}
   else {
     index_313X = 1023 & h_312X;
     val_314X = *((long *) ((((char *) (-3 + table_302X))) + (((index_313X)<<2))));
@@ -1741,19 +1741,19 @@ void s48_initialize_vm(char * stack_begin_273X, long stack_size_274X)
     S48_WRITE_BARRIER(table_302X, addr_316X, foo_303X);
     *((long *) addr_316X) = foo_303X;
     arg0K0 = (1 + i_301X);
-    goto L15552;}}
- L14473: {
+    goto L15559;}}
+ L14480: {
   i_317X = arg0K0;
   if ((1024 == i_317X)) {
     arg0K0 = table_310X;
-    goto L14423;}
+    goto L14430;}
   else {
     addr_318X = (((char *) (-3 + table_310X))) + (((i_317X)<<2));
     S48_WRITE_BARRIER(table_310X, addr_318X, 1);
     *((long *) addr_318X) = 1;
     arg0K0 = (1 + i_317X);
-    goto L14473;}}
- L14423: {
+    goto L14480;}}
+ L14430: {
   v_319X = arg0K0;
   Sexported_bindingsS = v_319X;
   if ((stack_size_274X < 8131)) {
@@ -1762,16 +1762,16 @@ void s48_initialize_vm(char * stack_begin_273X, long stack_size_274X)
       ps_error("out of memory, unable to continue", 0);
       arg1K0 = stack_320X;
       arg0K1 = 8131;
-      goto L14942;}
+      goto L14949;}
     else {
       arg1K0 = stack_320X;
       arg0K1 = 8131;
-      goto L14942;}}
+      goto L14949;}}
   else {
     arg1K0 = stack_begin_273X;
     arg0K1 = stack_size_274X;
-    goto L14942;}}
- L14942: {
+    goto L14949;}}
+ L14949: {
   start_321X = arg1K0;
   size_322X = arg0K1;
   Sstack_beginS = start_321X;
@@ -1781,30 +1781,30 @@ void s48_initialize_vm(char * stack_begin_273X, long stack_size_274X)
   ScontS = 1;
   SenvS = 17;
   arg1K0 = start_321X;
-  goto L14974;}
- L14974: {
+  goto L14981;}
+ L14981: {
   a_323X = arg1K0;
   if ((a_323X == (Sstack_endS))) {
     v_324X = AVAILABLEp(5);
     if (v_324X) {
-      goto L14991;}
+      goto L14998;}
     else {
       collect_saving_temps(1, 1, &temp1_325X);
       v_326X = AVAILABLEp(5);
       if (v_326X) {
-        goto L14991;}
+        goto L14998;}
       else {
         ps_error("Scheme48 heap overflow", 0);
-        goto L14991;}}}
+        goto L14998;}}}
   else {
     *((long *) a_323X) = 252645135;
     arg1K0 = (a_323X + 4);
-    goto L14974;}}
- L14991: {
-  addr_327X = ALLOCATE_SPACE(17, 6);
-  *((long *) addr_327X) = 582;
-  addr_328X = ALLOCATE_SPACE(11, 12);
-  *((long *) addr_328X) = 2094;
+    goto L14981;}}
+ L14998: {
+  addr_327X = ALLOCATE_SPACE(18, 6);
+  *((long *) addr_327X) = 586;
+  addr_328X = ALLOCATE_SPACE(12, 12);
+  *((long *) addr_328X) = 2098;
   temp_329X = 3 + (((long) (addr_328X + 4)));
   code_330X = 3 + (((long) (addr_327X + 4)));
   addr_331X = ((char *) (-3 + temp_329X));
@@ -1813,7 +1813,7 @@ void s48_initialize_vm(char * stack_begin_273X, long stack_size_274X)
   *((unsigned char *) (((char *) (-3 + code_330X)))) = 23;
   *((unsigned char *) ((((char *) (-3 + code_330X))) + 1)) = 31;
   SstackS = ((SstackS) + -20);
-  *((long *) ((SstackS) + 4)) = 4262;
+  *((long *) ((SstackS) + 4)) = 4266;
   cont_332X = 3 + (((long) ((SstackS) + 8)));
   *((long *) ((((char *) (-3 + cont_332X))) + 4)) = 0;
   *((long *) ((((char *) (-3 + cont_332X))) + 8)) = temp_329X;
@@ -1823,20 +1823,20 @@ void s48_initialize_vm(char * stack_begin_273X, long stack_size_274X)
   Sbottom_of_stackS = (ScontS);
   v_333X = AVAILABLEp(5);
   if (v_333X) {
-    goto L15170;}
+    goto L15177;}
   else {
     collect_saving_temps(1, 1, &temp1_334X);
     v_335X = AVAILABLEp(5);
     if (v_335X) {
-      goto L15170;}
+      goto L15177;}
     else {
       ps_error("Scheme48 heap overflow", 0);
-      goto L15170;}}}
- L15170: {
-  addr_336X = ALLOCATE_SPACE(17, 6);
-  *((long *) addr_336X) = 582;
-  addr_337X = ALLOCATE_SPACE(11, 12);
-  *((long *) addr_337X) = 2094;
+      goto L15177;}}}
+ L15177: {
+  addr_336X = ALLOCATE_SPACE(18, 6);
+  *((long *) addr_336X) = 586;
+  addr_337X = ALLOCATE_SPACE(12, 12);
+  *((long *) addr_337X) = 2098;
   temp_338X = 3 + (((long) (addr_337X + 4)));
   code_339X = 3 + (((long) (addr_336X + 4)));
   addr_340X = ((char *) (-3 + temp_338X));
@@ -1845,10 +1845,10 @@ void s48_initialize_vm(char * stack_begin_273X, long stack_size_274X)
   *((unsigned char *) (((char *) (-3 + code_339X)))) = 34;
   *((unsigned char *) ((((char *) (-3 + code_339X))) + 1)) = 141;
   Sinterrupt_templateS = temp_338X;
-  addr_341X = ALLOCATE_SPACE(17, 6);
-  *((long *) addr_341X) = 582;
-  addr_342X = ALLOCATE_SPACE(11, 12);
-  *((long *) addr_342X) = 2094;
+  addr_341X = ALLOCATE_SPACE(18, 6);
+  *((long *) addr_341X) = 586;
+  addr_342X = ALLOCATE_SPACE(12, 12);
+  *((long *) addr_342X) = 2098;
   temp_343X = 3 + (((long) (addr_342X + 4)));
   code_344X = 3 + (((long) (addr_341X + 4)));
   addr_345X = ((char *) (-3 + temp_343X));
@@ -2859,47 +2859,47 @@ long s48_restart(long proc_346X, long nargs_347X)
   if (v_371X) {
     arg2K0 = 1;
     arg0K1 = proc_346X;
-    goto L19389;}
+    goto L19396;}
   else {
     temp0_372X = collect_saving_temps(proc_346X, 1, &temp1_373X);
     v_374X = AVAILABLEp(2);
     if (v_374X) {
       arg2K0 = 1;
       arg0K1 = temp0_372X;
-      goto L19389;}
+      goto L19396;}
     else {
       arg2K0 = 0;
       arg0K1 = temp0_372X;
-      goto L19389;}}}
- L19389: {
+      goto L19396;}}}
+ L19396: {
   okayP_375X = arg2K0;
   temp_376X = arg0K1;
   if (okayP_375X) {
     arg0K0 = temp_376X;
-    goto L19360;}
+    goto L19367;}
   else {
     ps_error("Scheme48 heap overflow", 0);
     arg0K0 = temp_376X;
-    goto L19360;}}
- L19360: {
+    goto L19367;}}
+ L19367: {
   proc_377X = arg0K0;
-  addr_378X = ALLOCATE_SPACE(17, 6);
-  *((long *) addr_378X) = 582;
+  addr_378X = ALLOCATE_SPACE(18, 6);
+  *((long *) addr_378X) = 586;
   code_379X = 3 + (((long) (addr_378X + 4)));
   *((unsigned char *) (((char *) (-3 + code_379X)))) = 24;
   *((unsigned char *) ((((char *) (-3 + code_379X))) + 1)) = nargs_347X;
   Scode_pointerS = (((char *) (-3 + code_379X)));
   SvalS = proc_377X;
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L18452: {
+  goto L18459;}
+ L18459: {
   code_pointer_380X = arg1K0;
   switch ((*((unsigned char *) code_pointer_380X))) {
     case 0 : 
     case 146 : {
       push_exception_continuationB(15, 1);
       arg0K0 = 0;
-      goto L16679;}
+      goto L16686;}
       break;
     case 1 : {
       count_381X = ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)));
@@ -2910,73 +2910,73 @@ long s48_restart(long proc_346X, long nargs_347X)
       SenvS = (3 + (((long) ((SstackS) + 8))));
       Scode_pointerS = ((Scode_pointerS) + 3);
       arg1K0 = (Scode_pointerS);
-      goto L18452;}
+      goto L18459;}
       break;
     case 2 : {
       SvalS = (*((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2)))));
       Scode_pointerS = ((Scode_pointerS) + 3);
       arg1K0 = (Scode_pointerS);
-      goto L18452;}
+      goto L18459;}
       break;
     case 3 : {
       SvalS = (*((long *) ((((char *) (-3 + (StemplateS)))) + ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<2)))));
       Scode_pointerS = ((Scode_pointerS) + 3);
       arg1K0 = (Scode_pointerS);
-      goto L18452;}
+      goto L18459;}
       break;
     case 4 : {
       back_382X = *((unsigned char *) ((Scode_pointerS) + 1));
       env_383X = SenvS;
       arg0K0 = env_383X;
       arg0K1 = back_382X;
-      goto L23846;}
+      goto L23853;}
       break;
     case 5 : {
       SvalS = (*((long *) ((((char *) (-3 + (SenvS)))) + ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<2)))));
       if ((529 == (SvalS))) {
         push_exception_continuationB(0, 2);
         arg0K0 = 0;
-        goto L16679;}
+        goto L16686;}
       else {
         Scode_pointerS = ((Scode_pointerS) + 2);
         arg1K0 = (Scode_pointerS);
-        goto L18452;}}
+        goto L18459;}}
       break;
     case 6 : {
       SvalS = (*((long *) ((((char *) (-3 + (*((long *) (((char *) (-3 + (SenvS))))))))) + ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<2)))));
       if ((529 == (SvalS))) {
         push_exception_continuationB(0, 2);
         arg0K0 = 0;
-        goto L16679;}
+        goto L16686;}
       else {
         Scode_pointerS = ((Scode_pointerS) + 2);
         arg1K0 = (Scode_pointerS);
-        goto L18452;}}
+        goto L18459;}}
       break;
     case 7 : {
       SvalS = (*((long *) ((((char *) (-3 + (*((long *) (((char *) (-3 + (*((long *) (((char *) (-3 + (SenvS)))))))))))))) + ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<2)))));
       if ((529 == (SvalS))) {
         push_exception_continuationB(0, 2);
         arg0K0 = 0;
-        goto L16679;}
+        goto L16686;}
       else {
         Scode_pointerS = ((Scode_pointerS) + 2);
         arg1K0 = (Scode_pointerS);
-        goto L18452;}}
+        goto L18459;}}
       break;
     case 8 : {
       back_384X = ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)));
       env_385X = SenvS;
       arg0K0 = env_385X;
       arg0K1 = back_384X;
-      goto L20261;}
+      goto L20268;}
       break;
     case 9 : {
       back_386X = ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)));
       env_387X = SenvS;
       arg0K0 = env_387X;
       arg0K1 = back_386X;
-      goto L20199;}
+      goto L20206;}
       break;
     case 10 : {
       location_388X = *((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2))));
@@ -2986,11 +2986,11 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = location_388X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 1;
-        goto L16679;}
+        goto L16686;}
       else {
         Scode_pointerS = ((Scode_pointerS) + 3);
         arg1K0 = (Scode_pointerS);
-        goto L18452;}}
+        goto L18459;}}
       break;
     case 11 : {
       location_389X = *((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2))));
@@ -3001,7 +3001,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = (SvalS);
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16679;}
+        goto L16686;}
       else {
         val_390X = SvalS;
         addr_391X = (((char *) (-3 + location_389X))) + 4;
@@ -3010,7 +3010,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         SvalS = 13;
         Scode_pointerS = ((Scode_pointerS) + 3);
         arg1K0 = (Scode_pointerS);
-        goto L18452;}}
+        goto L18459;}}
       break;
     case 12 : {
       v_392X = *((unsigned char *) ((Scode_pointerS) + 3));
@@ -3019,55 +3019,55 @@ long s48_restart(long proc_346X, long nargs_347X)
         if ((3 == (3 & p_393X))) {
           if ((p_393X < (((long) (Sstack_beginS))))) {
             arg0K0 = 0;
-            goto L20978;}
+            goto L20985;}
           else {
             if (((((long) (Sstack_endS))) < p_393X)) {
               arg0K0 = 0;
-              goto L20978;}
+              goto L20985;}
             else {
               arg0K0 = ((Sstack_endS) - (Sstack_beginS));
-              goto L20978;}}}
+              goto L20985;}}}
         else {
           arg0K0 = 0;
-          goto L20978;}}
+          goto L20985;}}
       else {
         arg0K0 = (SvalS);
-        goto L20985;}}
+        goto L20992;}}
       break;
     case 13 : {
       total_count_394X = *((unsigned char *) ((Scode_pointerS) + 2));
       space_395X = 1 + total_count_394X;
       v_396X = AVAILABLEp(space_395X);
       if (v_396X) {
-        goto L20780;}
+        goto L20787;}
       else {
         collect_saving_temps(1, 1, &temp1_397X);
         v_398X = AVAILABLEp(space_395X);
         if (v_398X) {
-          goto L20780;}
+          goto L20787;}
         else {
           ps_error("Scheme48 heap overflow", 0);
-          goto L20780;}}}
+          goto L20787;}}}
       break;
     case 14 : {
       *((long *) (SstackS)) = (SvalS);
       SstackS = ((SstackS) + -4);
       Scode_pointerS = ((Scode_pointerS) + 1);
       arg1K0 = (Scode_pointerS);
-      goto L18452;}
+      goto L18459;}
       break;
     case 15 : {
       SvalS = (*((long *) ((((char *) (-3 + (SenvS)))) + ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<2)))));
       if ((529 == (SvalS))) {
         push_exception_continuationB(0, 3);
         arg0K0 = 0;
-        goto L16679;}
+        goto L16686;}
       else {
         *((long *) (SstackS)) = (SvalS);
         SstackS = ((SstackS) + -4);
         Scode_pointerS = ((Scode_pointerS) + 3);
         arg1K0 = (Scode_pointerS);
-        goto L18452;}}
+        goto L18459;}}
       break;
     case 16 : {
       *((long *) (SstackS)) = (SvalS);
@@ -3076,42 +3076,42 @@ long s48_restart(long proc_346X, long nargs_347X)
       if ((529 == (SvalS))) {
         push_exception_continuationB(0, 3);
         arg0K0 = 0;
-        goto L16679;}
+        goto L16686;}
       else {
         Scode_pointerS = ((Scode_pointerS) + 3);
         arg1K0 = (Scode_pointerS);
-        goto L18452;}}
+        goto L18459;}}
       break;
     case 17 : {
       SstackS = ((SstackS) + 4);
       SvalS = (*((long *) (SstackS)));
       Scode_pointerS = ((Scode_pointerS) + 1);
       arg1K0 = (Scode_pointerS);
-      goto L18452;}
+      goto L18459;}
       break;
     case 18 : {
       SvalS = (*((long *) ((SstackS) + (4 + ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<2))))));
       Scode_pointerS = ((Scode_pointerS) + 2);
       arg1K0 = (Scode_pointerS);
-      goto L18452;}
+      goto L18459;}
       break;
     case 19 : {
       *((long *) ((SstackS) + (4 + ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<2))))) = (SvalS);
       Scode_pointerS = ((Scode_pointerS) + 2);
       arg1K0 = (Scode_pointerS);
-      goto L18452;}
+      goto L18459;}
       break;
     case 20 : {
       push_continuationB(((Scode_pointerS) + (((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2))))), (*((unsigned char *) ((Scode_pointerS) + 3))));
       Scode_pointerS = ((Scode_pointerS) + 4);
       arg1K0 = (Scode_pointerS);
-      goto L18452;}
+      goto L18459;}
       break;
     case 21 : {
       push_continuationB(((Scode_pointerS) + (((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2))))), (((((*((unsigned char *) ((Scode_pointerS) + 3))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 4)))));
       Scode_pointerS = ((Scode_pointerS) + 5);
       arg1K0 = (Scode_pointerS);
-      goto L18452;}
+      goto L18459;}
       break;
     case 22 : {
       space_399X = 1 + (((((Sstack_endS) - (SstackS)))>>2));
@@ -3119,38 +3119,38 @@ long s48_restart(long proc_346X, long nargs_347X)
       if (v_400X) {
         arg2K0 = 1;
         arg0K1 = 0;
-        goto L20706;}
+        goto L20713;}
       else {
         collect_saving_temps(1, 1, &temp1_401X);
         v_402X = AVAILABLEp(space_399X);
         if (v_402X) {
           arg2K0 = 1;
           arg0K1 = 0;
-          goto L20706;}
+          goto L20713;}
         else {
           arg2K0 = 0;
           arg0K1 = 0;
-          goto L20706;}}}
+          goto L20713;}}}
       break;
     case 23 : {
       cont_403X = *((long *) (((char *) (-3 + (Sbottom_of_stackS)))));
       if ((3 == (3 & cont_403X))) {
-        if ((9 == (31 & ((((*((long *) ((((char *) (-3 + cont_403X))) + -4))))>>2))))) {
+        if ((10 == (31 & ((((*((long *) ((((char *) (-3 + cont_403X))) + -4))))>>2))))) {
           if ((3 == (3 & cont_403X))) {
-            if ((9 == (31 & ((((*((long *) ((((char *) (-3 + cont_403X))) + -4))))>>2))))) {
+            if ((10 == (31 & ((((*((long *) ((((char *) (-3 + cont_403X))) + -4))))>>2))))) {
               merged_arg0K0 = cont_403X;
               copy_continuation_from_heapB_return_tag = 0;
               goto copy_continuation_from_heapB;
              copy_continuation_from_heapB_return_0:
-              goto L19861;}
+              goto L19868;}
             else {
-              goto L19896;}}
+              goto L19903;}}
           else {
-            goto L19896;}}
+            goto L19903;}}
         else {
-          goto L19862;}}
+          goto L19869;}}
       else {
-        goto L19862;}}
+        goto L19869;}}
       break;
     case 24 : {
       stack_arg_count_404X = *((unsigned char *) ((Scode_pointerS) + 1));
@@ -3169,35 +3169,35 @@ long s48_restart(long proc_346X, long nargs_347X)
               if (v_409X) {
                 arg2K0 = 1;
                 arg0K1 = 0;
-                goto L19222;}
+                goto L19229;}
               else {
                 collect_saving_temps(1, 1, &temp1_410X);
                 v_411X = AVAILABLEp(space_408X);
                 if (v_411X) {
                   arg2K0 = 1;
                   arg0K1 = 0;
-                  goto L19222;}
+                  goto L19229;}
                 else {
                   arg2K0 = 0;
                   arg0K1 = 0;
-                  goto L19222;}}}
+                  goto L19229;}}}
             else {
-              goto L19134;}}
+              goto L19141;}}
           else {
             arg0K0 = stack_arg_count_404X;
-            goto L16080;}}
+            goto L16087;}}
         else {
           arg0K0 = 3;
           arg0K1 = stack_arg_count_404X;
           arg0K2 = 25;
           arg0K3 = 0;
-          goto L17175;}}
+          goto L17182;}}
       else {
         arg0K0 = 3;
         arg0K1 = stack_arg_count_404X;
         arg0K2 = 25;
         arg0K3 = 0;
-        goto L17175;}}
+        goto L17182;}}
       break;
     case 25 : {
       stack_arg_count_412X = ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)));
@@ -3205,19 +3205,19 @@ long s48_restart(long proc_346X, long nargs_347X)
       if ((3 == (3 & obj_413X))) {
         if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_413X))) + -4))))>>2))))) {
           arg0K0 = stack_arg_count_412X;
-          goto L16080;}
+          goto L16087;}
         else {
           arg0K0 = 3;
           arg0K1 = stack_arg_count_412X;
           arg0K2 = 25;
           arg0K3 = 0;
-          goto L17175;}}
+          goto L17182;}}
       else {
         arg0K0 = 3;
         arg0K1 = stack_arg_count_412X;
         arg0K2 = 25;
         arg0K3 = 0;
-        goto L17175;}}
+        goto L17182;}}
       break;
     case 26 : {
       nargs_414X = *((unsigned char *) ((Scode_pointerS) + 1));
@@ -3225,7 +3225,7 @@ long s48_restart(long proc_346X, long nargs_347X)
       stob_416X = ScontS;
       arg1K0 = ((((char *) (-3 + stob_416X))) + -8);
       arg1K1 = (top_of_args_415X + (((nargs_414X)<<2)));
-      goto L17642;}
+      goto L17649;}
       break;
     case 27 : {
       SstackS = ((SstackS) + 4);
@@ -3240,7 +3240,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         arg0K0 = (((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2))));
         arg0K1 = list_args_417X;
         arg0K2 = length_419X;
-        goto L17680;}
+        goto L17687;}
       else {
         *((long *) (SstackS)) = list_args_417X;
         SstackS = ((SstackS) + -4);
@@ -3256,7 +3256,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = args_420X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 28 : {
       SstackS = ((SstackS) + 4);
@@ -3270,31 +3270,31 @@ long s48_restart(long proc_346X, long nargs_347X)
         SstackS = ((SstackS) + 4);
         arg0K0 = (*((long *) (SstackS)));
         arg0K1 = (-2 + stack_nargs_421X);
-        goto L11287;}
+        goto L11294;}
       else {
         if ((25 == (*((long *) ((((char *) (-3 + rest_list_423X))) + 4))))) {
           arg0K0 = (*((long *) (((char *) (-3 + rest_list_423X)))));
           arg0K1 = (-1 + stack_nargs_421X);
-          goto L11287;}
+          goto L11294;}
         else {
           arg0K0 = (*((long *) ((((char *) (-3 + (*((long *) ((((char *) (-3 + rest_list_423X))) + 4)))))) + 4)));
           arg0K1 = rest_list_423X;
-          goto L11328;}}}
+          goto L11335;}}}
       break;
     case 29 : {
       SstackS = ((SstackS) + 4);
       cont_424X = *((long *) (SstackS));
       if ((3 == (3 & cont_424X))) {
-        if ((9 == (31 & ((((*((long *) ((((char *) (-3 + cont_424X))) + -4))))>>2))))) {
+        if ((10 == (31 & ((((*((long *) ((((char *) (-3 + cont_424X))) + -4))))>>2))))) {
           merged_arg0K0 = cont_424X;
           copy_continuation_from_heapB_return_tag = 1;
           goto copy_continuation_from_heapB;
          copy_continuation_from_heapB_return_1:
-          goto L17585;}
+          goto L17592;}
         else {
-          goto L17592;}}
+          goto L17599;}}
       else {
-        goto L17592;}}
+        goto L17599;}}
       break;
     case 30 : {
       SstackS = ((SstackS) + 4);
@@ -3306,32 +3306,32 @@ long s48_restart(long proc_346X, long nargs_347X)
       if ((3 == (3 & obj_426X))) {
         if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_426X))) + -4))))>>2))))) {
           arg0K0 = 1;
-          goto L16080;}
+          goto L16087;}
         else {
           arg0K0 = 3;
           arg0K1 = 1;
           arg0K2 = 25;
           arg0K3 = 0;
-          goto L17175;}}
+          goto L17182;}}
       else {
         arg0K0 = 3;
         arg0K1 = 1;
         arg0K2 = 25;
         arg0K3 = 0;
-        goto L17175;}}
+        goto L17182;}}
       break;
     case 31 : {
       pop_continuationB_return_tag = 0;
       goto pop_continuationB;
      pop_continuationB_return_0:
       arg1K0 = (Scode_pointerS);
-      goto L18452;}
+      goto L18459;}
       break;
     case 32 : {
       arg0K0 = (((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2))));
       arg0K1 = 25;
       arg0K2 = 0;
-      goto L20441;}
+      goto L20448;}
       break;
     case 33 : {
       SstackS = ((SstackS) + 4);
@@ -3342,19 +3342,19 @@ long s48_restart(long proc_346X, long nargs_347X)
       arg0K0 = stack_nargs_428X;
       arg0K1 = (*((long *) (SstackS)));
       arg0K2 = ((((p_427X)>>2)) - stack_nargs_428X);
-      goto L20441;}
+      goto L20448;}
       break;
     case 34 : {
       Scode_pointerS = ((Scode_pointerS) + 1);
       arg1K0 = (Scode_pointerS);
-      goto L18452;}
+      goto L18459;}
       break;
     case 35 : {
       tem_429X = *((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2))));
       StemplateS = tem_429X;
       Scode_pointerS = (((char *) (-3 + (*((long *) (((char *) (-3 + tem_429X))))))));
       arg1K0 = (Scode_pointerS);
-      goto L18452;}
+      goto L18459;}
       break;
     case 36 : {
       code_430X = *((long *) (((char *) (-3 + (*((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2)))))))));
@@ -3365,20 +3365,20 @@ long s48_restart(long proc_346X, long nargs_347X)
           if (v_432X) {
             arg2K0 = 1;
             arg0K1 = 0;
-            goto L18958;}
+            goto L18965;}
           else {
             collect_saving_temps(1, 1, &temp1_433X);
             v_434X = AVAILABLEp(space_431X);
             if (v_434X) {
               arg2K0 = 1;
               arg0K1 = 0;
-              goto L18958;}
+              goto L18965;}
             else {
               arg2K0 = 0;
               arg0K1 = 0;
-              goto L18958;}}}
+              goto L18965;}}}
         else {
-          goto L18831;}}
+          goto L18838;}}
       else {
         v_435X = *((unsigned char *) ((((char *) (-3 + code_430X))) + 1));
         if ((66 == v_435X)) {
@@ -3386,44 +3386,44 @@ long s48_restart(long proc_346X, long nargs_347X)
             index_436X = -2 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + code_430X))) + -4))))>>8));
             space_437X = ((((*((unsigned char *) ((((char *) (-3 + code_430X))) + index_436X))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_430X))) + (1 + index_436X))));
             if ((space_437X < (64 + (((((SstackS) - (Sstack_limitS)))>>2))))) {
-              goto L18831;}
+              goto L18838;}
             else {
               space_438X = 1 + (((((Sstack_endS) - (SstackS)))>>2));
               v_439X = AVAILABLEp(space_438X);
               if (v_439X) {
                 arg2K0 = 1;
                 arg0K1 = 0;
-                goto L19014;}
+                goto L19021;}
               else {
                 collect_saving_temps(1, 1, &temp1_440X);
                 v_441X = AVAILABLEp(space_438X);
                 if (v_441X) {
                   arg2K0 = 1;
                   arg0K1 = 0;
-                  goto L19014;}
+                  goto L19021;}
                 else {
                   arg2K0 = 0;
                   arg0K1 = 0;
-                  goto L19014;}}}}
+                  goto L19021;}}}}
           else {
-            goto L18876;}}
+            goto L18883;}}
         else {
-          goto L18876;}}}
+          goto L18883;}}}
       break;
     case 37 : {
       if ((1 == (SvalS))) {
         Scode_pointerS = ((Scode_pointerS) + (((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))));
         arg1K0 = (Scode_pointerS);
-        goto L18452;}
+        goto L18459;}
       else {
         Scode_pointerS = ((Scode_pointerS) + 3);
         arg1K0 = (Scode_pointerS);
-        goto L18452;}}
+        goto L18459;}}
       break;
     case 38 : {
       Scode_pointerS = ((Scode_pointerS) + (((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))));
       arg1K0 = (Scode_pointerS);
-      goto L18452;}
+      goto L18459;}
       break;
     case 39 : {
       if ((0 == (3 & (SvalS)))) {
@@ -3431,20 +3431,20 @@ long s48_restart(long proc_346X, long nargs_347X)
         max_443X = *((unsigned char *) ((Scode_pointerS) + 1));
         val_444X = ((p_442X)>>2);
         if ((val_444X < 0)) {
-          goto L18732;}
+          goto L18739;}
         else {
           if ((val_444X < max_443X)) {
             index_445X = 1 + (((val_444X)<<1));
             arg0K0 = (((((*((unsigned char *) ((Scode_pointerS) + (1 + index_445X)))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + (2 + index_445X)))));
-            goto L18734;}
+            goto L18741;}
           else {
-            goto L18732;}}}
+            goto L18739;}}}
       else {
         push_exception_continuationB(5, 0);
         *((long *) (SstackS)) = (SvalS);
         SstackS = ((SstackS) + -4);
         arg0K0 = 1;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 40 : {
       stack_nargs_446X = (((*((long *) ((SstackS) + 4))))>>2);
@@ -3454,7 +3454,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = arg0_447X;
         SstackS = ((SstackS) + -4);
         SvalS = (*((long *) (((char *) (-3 + rest_list_448X)))));
-        goto L19764;}
+        goto L19771;}
       else {
         arg1_449X = *((long *) ((SstackS) + (4 + (((stack_nargs_446X)<<2)))));
         arg0_450X = *((long *) ((SstackS) + (8 + (((stack_nargs_446X)<<2)))));
@@ -3463,7 +3463,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = arg0_450X;
         SstackS = ((SstackS) + -4);
         SvalS = arg1_449X;
-        goto L19764;}}
+        goto L19771;}}
       break;
     case 41 : {
       stack_nargs_451X = (((*((long *) ((SstackS) + 4))))>>2);
@@ -3471,56 +3471,56 @@ long s48_restart(long proc_346X, long nargs_347X)
         rest_list_452X = *((long *) ((SstackS) + 8));
         if ((25 == (*((long *) ((((char *) (-3 + rest_list_452X))) + 4))))) {
           arg0K0 = 1;
-          goto L18630;}
+          goto L18637;}
         else {
           *((long *) ((SstackS) + 8)) = (*((long *) ((((char *) (-3 + rest_list_452X))) + 4)));
           *((long *) ((SstackS) + 12)) = (SvalS);
           arg0K0 = -2;
-          goto L18630;}}
+          goto L18637;}}
       else {
         if ((stack_nargs_451X == 1)) {
           if ((25 == (*((long *) ((SstackS) + 8))))) {
             arg0K0 = 1;
-            goto L18630;}
+            goto L18637;}
           else {
             *((long *) ((SstackS) + 4)) = 0;
             *((long *) ((SstackS) + 12)) = (SvalS);
             arg0K0 = -2;
-            goto L18630;}}
+            goto L18637;}}
         else {
           *((long *) ((SstackS) + (8 + (((stack_nargs_451X)<<2))))) = (SvalS);
           arg0K0 = -2;
-          goto L18630;}}}
+          goto L18637;}}}
       break;
     case 42 : {
       if ((1 == (SvalS))) {
         Scode_pointerS = ((Scode_pointerS) + 1);
         arg1K0 = (Scode_pointerS);
-        goto L18452;}
+        goto L18459;}
       else {
         x_453X = (((*((long *) ((SstackS) + 4))))>>2);
         if ((x_453X == 0)) {
           rest_list_454X = *((long *) ((SstackS) + 8));
           if ((25 == (*((long *) ((((char *) (-3 + rest_list_454X))) + 4))))) {
             arg0K0 = 1;
-            goto L19655;}
+            goto L19662;}
           else {
             *((long *) ((SstackS) + 8)) = (*((long *) ((((char *) (-3 + rest_list_454X))) + 4)));
             *((long *) ((SstackS) + 12)) = (*((long *) (((char *) (-3 + rest_list_454X)))));
             arg0K0 = -2;
-            goto L19655;}}
+            goto L19662;}}
         else {
           if ((x_453X == 1)) {
             if ((25 == (*((long *) ((SstackS) + 8))))) {
               arg0K0 = 1;
-              goto L19655;}
+              goto L19662;}
             else {
               *((long *) ((SstackS) + 4)) = 0;
               arg0K0 = -2;
-              goto L19655;}}
+              goto L19662;}}
           else {
             arg0K0 = -2;
-            goto L19655;}}}}
+            goto L19662;}}}}
       break;
     case 43 : {
       SstackS = ((SstackS) + 4);
@@ -3528,77 +3528,77 @@ long s48_restart(long proc_346X, long nargs_347X)
       x_456X = SvalS;
       if ((arg2_455X == x_456X)) {
         arg0K0 = 5;
-        goto L38237;}
+        goto L38244;}
       else {
         arg0K0 = 1;
-        goto L38237;}}
+        goto L38244;}}
       break;
     case 44 : {
       x_457X = SvalS;
       if ((0 == (3 & x_457X))) {
         arg0K0 = 5;
-        goto L38249;}
+        goto L38256;}
       else {
         if ((3 == (3 & x_457X))) {
-          if ((19 == (31 & ((((*((long *) ((((char *) (-3 + x_457X))) + -4))))>>2))))) {
+          if ((20 == (31 & ((((*((long *) ((((char *) (-3 + x_457X))) + -4))))>>2))))) {
             arg0K0 = 5;
-            goto L38249;}
+            goto L38256;}
           else {
-            goto L10635;}}
+            goto L10642;}}
         else {
-          goto L10635;}}}
+          goto L10642;}}}
       break;
     case 45 : {
       n_458X = SvalS;
       if ((0 == (3 & n_458X))) {
-        goto L28413;}
+        goto L28420;}
       else {
         if ((3 == (3 & n_458X))) {
-          if ((19 == (31 & ((((*((long *) ((((char *) (-3 + n_458X))) + -4))))>>2))))) {
-            goto L28413;}
+          if ((20 == (31 & ((((*((long *) ((((char *) (-3 + n_458X))) + -4))))>>2))))) {
+            goto L28420;}
           else {
-            goto L28414;}}
+            goto L28421;}}
         else {
-          goto L28414;}}}
+          goto L28421;}}}
       break;
     case 46 : {
       n_459X = SvalS;
       if ((0 == (3 & n_459X))) {
-        goto L28570;}
+        goto L28577;}
       else {
         if ((3 == (3 & n_459X))) {
-          if ((19 == (31 & ((((*((long *) ((((char *) (-3 + n_459X))) + -4))))>>2))))) {
-            goto L28570;}
+          if ((20 == (31 & ((((*((long *) ((((char *) (-3 + n_459X))) + -4))))>>2))))) {
+            goto L28577;}
           else {
-            goto L28545;}}
+            goto L28552;}}
         else {
-          goto L28545;}}}
+          goto L28552;}}}
       break;
     case 47 : {
       n_460X = SvalS;
       if ((0 == (3 & n_460X))) {
-        goto L28769;}
+        goto L28776;}
       else {
         if ((3 == (3 & n_460X))) {
-          if ((19 == (31 & ((((*((long *) ((((char *) (-3 + n_460X))) + -4))))>>2))))) {
-            goto L28769;}
+          if ((20 == (31 & ((((*((long *) ((((char *) (-3 + n_460X))) + -4))))>>2))))) {
+            goto L28776;}
           else {
-            goto L28744;}}
+            goto L28751;}}
         else {
-          goto L28744;}}}
+          goto L28751;}}}
       break;
     case 48 : {
       n_461X = SvalS;
       if ((0 == (3 & n_461X))) {
-        goto L28968;}
+        goto L28975;}
       else {
         if ((3 == (3 & n_461X))) {
-          if ((19 == (31 & ((((*((long *) ((((char *) (-3 + n_461X))) + -4))))>>2))))) {
-            goto L28968;}
+          if ((20 == (31 & ((((*((long *) ((((char *) (-3 + n_461X))) + -4))))>>2))))) {
+            goto L28975;}
           else {
-            goto L28943;}}
+            goto L28950;}}
         else {
-          goto L28943;}}}
+          goto L28950;}}}
       break;
     case 49 : {
       x_462X = SvalS;
@@ -3606,13 +3606,13 @@ long s48_restart(long proc_346X, long nargs_347X)
         SvalS = 5;
         Scode_pointerS = ((Scode_pointerS) + 1);
         arg1K0 = (Scode_pointerS);
-        goto L18452;}
+        goto L18459;}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = x_462X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 1;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 50 : {
       x_463X = SvalS;
@@ -3620,7 +3620,7 @@ long s48_restart(long proc_346X, long nargs_347X)
       *((long *) (SstackS)) = x_463X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 1;
-      goto L16679;}
+      goto L16686;}
       break;
     case 51 : {
       x_464X = SvalS;
@@ -3628,7 +3628,7 @@ long s48_restart(long proc_346X, long nargs_347X)
       *((long *) (SstackS)) = x_464X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 1;
-      goto L16679;}
+      goto L16686;}
       break;
     case 52 : {
       SstackS = ((SstackS) + 4);
@@ -3643,7 +3643,7 @@ long s48_restart(long proc_346X, long nargs_347X)
           *((long *) (SstackS)) = y_466X;
           SstackS = ((SstackS) + -4);
           arg0K0 = 2;
-          goto L16679;}
+          goto L16686;}
         else {
           if ((z_467X < -536870912)) {
             push_exception_continuationB(5, 1);
@@ -3652,12 +3652,12 @@ long s48_restart(long proc_346X, long nargs_347X)
             *((long *) (SstackS)) = y_466X;
             SstackS = ((SstackS) + -4);
             arg0K0 = 2;
-            goto L16679;}
+            goto L16686;}
           else {
             SvalS = (((z_467X)<<2));
             Scode_pointerS = ((Scode_pointerS) + 1);
             arg1K0 = (Scode_pointerS);
-            goto L18452;}}}
+            goto L18459;}}}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = x_465X;
@@ -3665,7 +3665,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = y_466X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 53 : {
       SstackS = ((SstackS) + 4);
@@ -3676,10 +3676,10 @@ long s48_restart(long proc_346X, long nargs_347X)
         b_471X = ((x_469X)>>2);
         if ((a_470X < 0)) {
           arg0K0 = (0 - a_470X);
-          goto L6788;}
+          goto L6795;}
         else {
           arg0K0 = a_470X;
-          goto L6788;}}
+          goto L6795;}}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = arg2_468X;
@@ -3687,7 +3687,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = x_469X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 54 : {
       SstackS = ((SstackS) + 4);
@@ -3702,7 +3702,7 @@ long s48_restart(long proc_346X, long nargs_347X)
           *((long *) (SstackS)) = y_473X;
           SstackS = ((SstackS) + -4);
           arg0K0 = 2;
-          goto L16679;}
+          goto L16686;}
         else {
           if ((z_474X < -536870912)) {
             push_exception_continuationB(5, 1);
@@ -3711,12 +3711,12 @@ long s48_restart(long proc_346X, long nargs_347X)
             *((long *) (SstackS)) = y_473X;
             SstackS = ((SstackS) + -4);
             arg0K0 = 2;
-            goto L16679;}
+            goto L16686;}
           else {
             SvalS = (((z_474X)<<2));
             Scode_pointerS = ((Scode_pointerS) + 1);
             arg1K0 = (Scode_pointerS);
-            goto L18452;}}}
+            goto L18459;}}}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = x_472X;
@@ -3724,7 +3724,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = y_473X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 55 : {
       SstackS = ((SstackS) + 4);
@@ -3738,16 +3738,16 @@ long s48_restart(long proc_346X, long nargs_347X)
           *((long *) (SstackS)) = x_476X;
           SstackS = ((SstackS) + -4);
           arg0K0 = 2;
-          goto L16679;}
+          goto L16686;}
         else {
           a_477X = ((arg2_475X)>>2);
           b_478X = ((x_476X)>>2);
           if ((a_477X < 0)) {
             arg0K0 = (0 - a_477X);
-            goto L7069;}
+            goto L7076;}
           else {
             arg0K0 = a_477X;
-            goto L7069;}}}
+            goto L7076;}}}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = arg2_475X;
@@ -3755,7 +3755,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = x_476X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 56 : {
       SstackS = ((SstackS) + 4);
@@ -3764,10 +3764,10 @@ long s48_restart(long proc_346X, long nargs_347X)
       if ((0 == (3 & (arg2_479X | x_480X)))) {
         if ((arg2_479X == x_480X)) {
           arg0K0 = 5;
-          goto L31878;}
+          goto L31885;}
         else {
           arg0K0 = 1;
-          goto L31878;}}
+          goto L31885;}}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = arg2_479X;
@@ -3775,7 +3775,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = x_480X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 57 : {
       SstackS = ((SstackS) + 4);
@@ -3784,10 +3784,10 @@ long s48_restart(long proc_346X, long nargs_347X)
       if ((0 == (3 & (arg2_481X | x_482X)))) {
         if ((arg2_481X < x_482X)) {
           arg0K0 = 5;
-          goto L31956;}
+          goto L31963;}
         else {
           arg0K0 = 1;
-          goto L31956;}}
+          goto L31963;}}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = arg2_481X;
@@ -3795,7 +3795,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = x_482X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 58 : {
       SstackS = ((SstackS) + 4);
@@ -3804,10 +3804,10 @@ long s48_restart(long proc_346X, long nargs_347X)
       if ((0 == (3 & (arg2_483X | x_484X)))) {
         if ((x_484X < arg2_483X)) {
           arg0K0 = 5;
-          goto L32034;}
+          goto L32041;}
         else {
           arg0K0 = 1;
-          goto L32034;}}
+          goto L32041;}}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = arg2_483X;
@@ -3815,7 +3815,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = x_484X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 59 : {
       SstackS = ((SstackS) + 4);
@@ -3824,10 +3824,10 @@ long s48_restart(long proc_346X, long nargs_347X)
       if ((0 == (3 & (arg2_485X | x_486X)))) {
         if ((x_486X < arg2_485X)) {
           arg0K0 = 1;
-          goto L32112;}
+          goto L32119;}
         else {
           arg0K0 = 5;
-          goto L32112;}}
+          goto L32119;}}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = arg2_485X;
@@ -3835,7 +3835,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = x_486X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 60 : {
       SstackS = ((SstackS) + 4);
@@ -3844,10 +3844,10 @@ long s48_restart(long proc_346X, long nargs_347X)
       if ((0 == (3 & (arg2_487X | x_488X)))) {
         if ((arg2_487X < x_488X)) {
           arg0K0 = 1;
-          goto L32190;}
+          goto L32197;}
         else {
           arg0K0 = 5;
-          goto L32190;}}
+          goto L32197;}}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = arg2_487X;
@@ -3855,7 +3855,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = x_488X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 61 : {
       SstackS = ((SstackS) + 4);
@@ -3869,16 +3869,16 @@ long s48_restart(long proc_346X, long nargs_347X)
           *((long *) (SstackS)) = x_490X;
           SstackS = ((SstackS) + -4);
           arg0K0 = 2;
-          goto L16679;}
+          goto L16686;}
         else {
           a_491X = ((arg2_489X)>>2);
           b_492X = ((x_490X)>>2);
           if ((a_491X < 0)) {
             arg0K0 = (0 - a_491X);
-            goto L7246;}
+            goto L7253;}
           else {
             arg0K0 = a_491X;
-            goto L7246;}}}
+            goto L7253;}}}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = arg2_489X;
@@ -3886,7 +3886,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = x_490X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 62 : {
       SstackS = ((SstackS) + 4);
@@ -3900,15 +3900,15 @@ long s48_restart(long proc_346X, long nargs_347X)
           *((long *) (SstackS)) = y_494X;
           SstackS = ((SstackS) + -4);
           arg0K0 = 2;
-          goto L16679;}
+          goto L16686;}
         else {
           a_495X = ((x_493X)>>2);
           if ((a_495X < 0)) {
             arg0K0 = (0 - a_495X);
-            goto L25360;}
+            goto L25367;}
           else {
             arg0K0 = a_495X;
-            goto L25360;}}}
+            goto L25367;}}}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = x_493X;
@@ -3916,7 +3916,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = y_494X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 63 : {
       x_496X = SvalS;
@@ -3924,13 +3924,13 @@ long s48_restart(long proc_346X, long nargs_347X)
         SvalS = x_496X;
         Scode_pointerS = ((Scode_pointerS) + 1);
         arg1K0 = (Scode_pointerS);
-        goto L18452;}
+        goto L18459;}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = x_496X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 1;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 64 : {
       x_497X = SvalS;
@@ -3938,13 +3938,13 @@ long s48_restart(long proc_346X, long nargs_347X)
         SvalS = x_497X;
         Scode_pointerS = ((Scode_pointerS) + 1);
         arg1K0 = (Scode_pointerS);
-        goto L18452;}
+        goto L18459;}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = x_497X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 1;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 65 : {
       x_498X = SvalS;
@@ -3952,13 +3952,13 @@ long s48_restart(long proc_346X, long nargs_347X)
         SvalS = 4;
         Scode_pointerS = ((Scode_pointerS) + 1);
         arg1K0 = (Scode_pointerS);
-        goto L18452;}
+        goto L18459;}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = x_498X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 1;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 66 : {
       x_499X = SvalS;
@@ -3966,13 +3966,13 @@ long s48_restart(long proc_346X, long nargs_347X)
         SvalS = x_499X;
         Scode_pointerS = ((Scode_pointerS) + 1);
         arg1K0 = (Scode_pointerS);
-        goto L18452;}
+        goto L18459;}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = x_499X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 1;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 67 : {
       x_500X = SvalS;
@@ -3980,13 +3980,13 @@ long s48_restart(long proc_346X, long nargs_347X)
         SvalS = 0;
         Scode_pointerS = ((Scode_pointerS) + 1);
         arg1K0 = (Scode_pointerS);
-        goto L18452;}
+        goto L18459;}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = x_500X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 1;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 68 : {
       x_501X = SvalS;
@@ -3994,7 +3994,7 @@ long s48_restart(long proc_346X, long nargs_347X)
       *((long *) (SstackS)) = x_501X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 1;
-      goto L16679;}
+      goto L16686;}
       break;
     case 69 : {
       x_502X = SvalS;
@@ -4002,7 +4002,7 @@ long s48_restart(long proc_346X, long nargs_347X)
       *((long *) (SstackS)) = x_502X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 1;
-      goto L16679;}
+      goto L16686;}
       break;
     case 70 : {
       x_503X = SvalS;
@@ -4010,7 +4010,7 @@ long s48_restart(long proc_346X, long nargs_347X)
       *((long *) (SstackS)) = x_503X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 1;
-      goto L16679;}
+      goto L16686;}
       break;
     case 71 : {
       x_504X = SvalS;
@@ -4018,7 +4018,7 @@ long s48_restart(long proc_346X, long nargs_347X)
       *((long *) (SstackS)) = x_504X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 1;
-      goto L16679;}
+      goto L16686;}
       break;
     case 72 : {
       x_505X = SvalS;
@@ -4026,7 +4026,7 @@ long s48_restart(long proc_346X, long nargs_347X)
       *((long *) (SstackS)) = x_505X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 1;
-      goto L16679;}
+      goto L16686;}
       break;
     case 73 : {
       x_506X = SvalS;
@@ -4034,7 +4034,7 @@ long s48_restart(long proc_346X, long nargs_347X)
       *((long *) (SstackS)) = x_506X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 1;
-      goto L16679;}
+      goto L16686;}
       break;
     case 74 : {
       x_507X = SvalS;
@@ -4042,7 +4042,7 @@ long s48_restart(long proc_346X, long nargs_347X)
       *((long *) (SstackS)) = x_507X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 1;
-      goto L16679;}
+      goto L16686;}
       break;
     case 75 : {
       x_508X = SvalS;
@@ -4050,20 +4050,20 @@ long s48_restart(long proc_346X, long nargs_347X)
       *((long *) (SstackS)) = x_508X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 1;
-      goto L16679;}
+      goto L16686;}
       break;
     case 76 : {
       x_509X = SvalS;
       if ((0 == (3 & x_509X))) {
         if ((x_509X < 0)) {
-          goto L38506;}
+          goto L38513;}
         else {
           SvalS = 0;
           Scode_pointerS = ((Scode_pointerS) + 1);
           arg1K0 = (Scode_pointerS);
-          goto L18452;}}
+          goto L18459;}}
       else {
-        goto L38506;}}
+        goto L38513;}}
       break;
     case 77 : {
       n_510X = SvalS;
@@ -4071,16 +4071,16 @@ long s48_restart(long proc_346X, long nargs_347X)
         n_511X = ((n_510X)>>2);
         if ((n_511X < 0)) {
           arg0K0 = (0 - n_511X);
-          goto L25646;}
+          goto L25653;}
         else {
           arg0K0 = n_511X;
-          goto L25646;}}
+          goto L25653;}}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = n_510X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 1;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 78 : {
       SstackS = ((SstackS) + 4);
@@ -4092,7 +4092,7 @@ long s48_restart(long proc_346X, long nargs_347X)
       *((long *) (SstackS)) = x_513X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 2;
-      goto L16679;}
+      goto L16686;}
       break;
     case 79 : {
       SstackS = ((SstackS) + 4);
@@ -4104,7 +4104,7 @@ long s48_restart(long proc_346X, long nargs_347X)
       *((long *) (SstackS)) = x_515X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 2;
-      goto L16679;}
+      goto L16686;}
       break;
     case 80 : {
       SstackS = ((SstackS) + 4);
@@ -4116,7 +4116,7 @@ long s48_restart(long proc_346X, long nargs_347X)
       *((long *) (SstackS)) = x_517X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 2;
-      goto L16679;}
+      goto L16686;}
       break;
     case 81 : {
       x_518X = SvalS;
@@ -4124,13 +4124,13 @@ long s48_restart(long proc_346X, long nargs_347X)
         SvalS = (~ (3 | x_518X));
         Scode_pointerS = ((Scode_pointerS) + 1);
         arg1K0 = (Scode_pointerS);
-        goto L18452;}
+        goto L18459;}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = x_518X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 1;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 82 : {
       SstackS = ((SstackS) + 4);
@@ -4140,7 +4140,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         SvalS = (arg2_519X & x_520X);
         Scode_pointerS = ((Scode_pointerS) + 1);
         arg1K0 = (Scode_pointerS);
-        goto L18452;}
+        goto L18459;}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = arg2_519X;
@@ -4148,7 +4148,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = x_520X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 83 : {
       SstackS = ((SstackS) + 4);
@@ -4158,7 +4158,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         SvalS = (arg2_521X | x_522X);
         Scode_pointerS = ((Scode_pointerS) + 1);
         arg1K0 = (Scode_pointerS);
-        goto L18452;}
+        goto L18459;}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = arg2_521X;
@@ -4166,7 +4166,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = x_522X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 84 : {
       SstackS = ((SstackS) + 4);
@@ -4176,7 +4176,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         SvalS = (arg2_523X ^ x_524X);
         Scode_pointerS = ((Scode_pointerS) + 1);
         arg1K0 = (Scode_pointerS);
-        goto L18452;}
+        goto L18459;}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = arg2_523X;
@@ -4184,7 +4184,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = x_524X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 85 : {
       SstackS = ((SstackS) + 4);
@@ -4198,7 +4198,7 @@ long s48_restart(long proc_346X, long nargs_347X)
           SvalS = (((x_529X)<<2));
           Scode_pointerS = ((Scode_pointerS) + 1);
           arg1K0 = (Scode_pointerS);
-          goto L18452;}
+          goto L18459;}
         else {
           PS_SHIFT_LEFT(value_527X, count_528X, x_530X)
           result_531X = (((((x_530X)<<2)))>>2);
@@ -4206,7 +4206,7 @@ long s48_restart(long proc_346X, long nargs_347X)
           if ((value_527X == x_532X)) {
             if ((value_527X < 0)) {
               if ((result_531X < 0)) {
-                goto L25925;}
+                goto L25932;}
               else {
                 push_exception_continuationB(5, 1);
                 *((long *) (SstackS)) = x_525X;
@@ -4214,7 +4214,7 @@ long s48_restart(long proc_346X, long nargs_347X)
                 *((long *) (SstackS)) = y_526X;
                 SstackS = ((SstackS) + -4);
                 arg0K0 = 2;
-                goto L16679;}}
+                goto L16686;}}
             else {
               if ((result_531X < 0)) {
                 push_exception_continuationB(5, 1);
@@ -4223,9 +4223,9 @@ long s48_restart(long proc_346X, long nargs_347X)
                 *((long *) (SstackS)) = y_526X;
                 SstackS = ((SstackS) + -4);
                 arg0K0 = 2;
-                goto L16679;}
+                goto L16686;}
               else {
-                goto L25925;}}}
+                goto L25932;}}}
           else {
             push_exception_continuationB(5, 1);
             *((long *) (SstackS)) = x_525X;
@@ -4233,7 +4233,7 @@ long s48_restart(long proc_346X, long nargs_347X)
             *((long *) (SstackS)) = y_526X;
             SstackS = ((SstackS) + -4);
             arg0K0 = 2;
-            goto L16679;}}}
+            goto L16686;}}}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = x_525X;
@@ -4241,16 +4241,16 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = y_526X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 86 : {
       x_533X = SvalS;
       if ((9 == (255 & x_533X))) {
         arg0K0 = 5;
-        goto L38594;}
+        goto L38601;}
       else {
         arg0K0 = 1;
-        goto L38594;}}
+        goto L38601;}}
       break;
     case 87 : {
       SstackS = ((SstackS) + 4);
@@ -4260,14 +4260,14 @@ long s48_restart(long proc_346X, long nargs_347X)
           x_535X = SvalS;
           if ((arg2_534X == x_535X)) {
             arg0K0 = 5;
-            goto L28188;}
+            goto L28195;}
           else {
             arg0K0 = 1;
-            goto L28188;}}
+            goto L28195;}}
         else {
-          goto L28161;}}
+          goto L28168;}}
       else {
-        goto L28161;}}
+        goto L28168;}}
       break;
     case 88 : {
       SstackS = ((SstackS) + 4);
@@ -4277,56 +4277,56 @@ long s48_restart(long proc_346X, long nargs_347X)
           x_537X = SvalS;
           if ((arg2_536X < x_537X)) {
             arg0K0 = 5;
-            goto L28098;}
+            goto L28105;}
           else {
             arg0K0 = 1;
-            goto L28098;}}
+            goto L28105;}}
         else {
-          goto L28071;}}
+          goto L28078;}}
       else {
-        goto L28071;}}
+        goto L28078;}}
       break;
     case 89 : {
       if ((9 == (255 & (SvalS)))) {
         SvalS = (((((((((SvalS))>>8)))))<<2));
         Scode_pointerS = ((Scode_pointerS) + 1);
         arg1K0 = (Scode_pointerS);
-        goto L18452;}
+        goto L18459;}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = (SvalS);
         SstackS = ((SstackS) + -4);
         arg0K0 = 1;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 90 : {
       if ((0 == (3 & (SvalS)))) {
         x_538X = (((SvalS))>>2);
         if ((255 < x_538X)) {
-          goto L32882;}
+          goto L32889;}
         else {
           if ((x_538X < 0)) {
-            goto L32882;}
+            goto L32889;}
           else {
             SvalS = (9 + (((((x_538X)))<<8)));
             Scode_pointerS = ((Scode_pointerS) + 1);
             arg1K0 = (Scode_pointerS);
-            goto L18452;}}}
+            goto L18459;}}}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = (SvalS);
         SstackS = ((SstackS) + -4);
         arg0K0 = 1;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 91 : {
       x_539X = SvalS;
       if ((21 == x_539X)) {
         arg0K0 = 5;
-        goto L38623;}
+        goto L38630;}
       else {
         arg0K0 = 1;
-        goto L38623;}}
+        goto L38630;}}
       break;
     case 92 : {
       x_540X = SvalS;
@@ -4334,13 +4334,13 @@ long s48_restart(long proc_346X, long nargs_347X)
       if ((3 == (3 & x_540X))) {
         if (((31 & ((((*((long *) ((((char *) (-3 + x_540X))) + -4))))>>2))) == type_541X)) {
           arg0K0 = 5;
-          goto L38637;}
+          goto L38644;}
         else {
           arg0K0 = 1;
-          goto L38637;}}
+          goto L38644;}}
       else {
         arg0K0 = 1;
-        goto L38637;}}
+        goto L38644;}}
       break;
     case 93 : {
       stob_542X = SvalS;
@@ -4350,26 +4350,26 @@ long s48_restart(long proc_346X, long nargs_347X)
           SvalS = (-4 & (3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + stob_542X))) + -4))))>>8))));
           Scode_pointerS = ((Scode_pointerS) + 2);
           arg1K0 = (Scode_pointerS);
-          goto L18452;}
+          goto L18459;}
         else {
-          goto L21243;}}
+          goto L21250;}}
       else {
-        goto L21243;}}
+        goto L21250;}}
       break;
     case 94 : {
       len_544X = *((unsigned char *) ((Scode_pointerS) + 1));
       space_545X = 4 + (((len_544X)<<2));
       v_546X = AVAILABLEp(space_545X);
       if (v_546X) {
-        goto L21315;}
+        goto L21322;}
       else {
         collect_saving_temps(1, 1, &temp1_547X);
         v_548X = AVAILABLEp(space_545X);
         if (v_548X) {
-          goto L21315;}
+          goto L21322;}
         else {
           ps_error("Scheme48 heap overflow", 0);
-          goto L21315;}}}
+          goto L21322;}}}
       break;
     case 95 : {
       SstackS = ((SstackS) + 4);
@@ -4377,15 +4377,15 @@ long s48_restart(long proc_346X, long nargs_347X)
       space_550X = 4 + (((len_549X)<<2));
       v_551X = AVAILABLEp(space_550X);
       if (v_551X) {
-        goto L21497;}
+        goto L21504;}
       else {
         collect_saving_temps(1, 1, &temp1_552X);
         v_553X = AVAILABLEp(space_550X);
         if (v_553X) {
-          goto L21497;}
+          goto L21504;}
         else {
           ps_error("Scheme48 heap overflow", 0);
-          goto L21497;}}}
+          goto L21504;}}}
       break;
     case 96 : {
       stob_554X = SvalS;
@@ -4396,11 +4396,11 @@ long s48_restart(long proc_346X, long nargs_347X)
           SvalS = (*((long *) ((((char *) (-3 + stob_554X))) + (((offset_555X)<<2)))));
           Scode_pointerS = ((Scode_pointerS) + 3);
           arg1K0 = (Scode_pointerS);
-          goto L18452;}
+          goto L18459;}
         else {
-          goto L21707;}}
+          goto L21714;}}
       else {
-        goto L21707;}}
+        goto L21714;}}
       break;
     case 97 : {
       SstackS = ((SstackS) + 4);
@@ -4418,15 +4418,15 @@ long s48_restart(long proc_346X, long nargs_347X)
               SvalS = 13;
               Scode_pointerS = ((Scode_pointerS) + 3);
               arg1K0 = (Scode_pointerS);
-              goto L18452;}
+              goto L18459;}
             else {
-              goto L21810;}}
+              goto L21817;}}
           else {
-            goto L21810;}}
+            goto L21817;}}
         else {
-          goto L21810;}}
+          goto L21817;}}
       else {
-        goto L21810;}}
+        goto L21817;}}
       break;
     case 98 : {
       SstackS = ((SstackS) + 4);
@@ -4437,27 +4437,27 @@ long s48_restart(long proc_346X, long nargs_347X)
         len_565X = ((len_562X)>>2);
         size_566X = 1 + len_565X;
         if ((len_565X < 0)) {
-          goto L21995;}
+          goto L22002;}
         else {
           if ((4194305 < size_566X)) {
-            goto L21995;}
+            goto L22002;}
           else {
             v_567X = AVAILABLEp(size_566X);
             if (v_567X) {
               arg2K0 = 1;
               arg0K1 = init_563X;
-              goto L22013;}
+              goto L22020;}
             else {
               temp0_568X = collect_saving_temps(init_563X, 1, &temp1_569X);
               v_570X = AVAILABLEp(size_566X);
               if (v_570X) {
                 arg2K0 = 1;
                 arg0K1 = temp0_568X;
-                goto L22013;}
+                goto L22020;}
               else {
                 arg2K0 = 0;
                 arg0K1 = temp0_568X;
-                goto L22013;}}}}}
+                goto L22020;}}}}}
       else {
         push_exception_continuationB(5, 2);
         *((long *) (SstackS)) = (((type_564X)<<2));
@@ -4467,7 +4467,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = init_563X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 3;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 99 : {
       SstackS = ((SstackS) + 4);
@@ -4480,21 +4480,21 @@ long s48_restart(long proc_346X, long nargs_347X)
             len_574X = (((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + stob_571X))) + -4))))>>8))))>>2);
             index_575X = ((index_572X)>>2);
             if ((index_575X < 0)) {
-              goto L22291;}
+              goto L22298;}
             else {
               if ((index_575X < len_574X)) {
                 SvalS = (*((long *) ((((char *) (-3 + stob_571X))) + (-4 & index_572X))));
                 Scode_pointerS = ((Scode_pointerS) + 2);
                 arg1K0 = (Scode_pointerS);
-                goto L18452;}
+                goto L18459;}
               else {
-                goto L22291;}}}
+                goto L22298;}}}
           else {
-            goto L22268;}}
+            goto L22275;}}
         else {
-          goto L22268;}}
+          goto L22275;}}
       else {
-        goto L22268;}}
+        goto L22275;}}
       break;
     case 100 : {
       SstackS = ((SstackS) + 4);
@@ -4511,7 +4511,7 @@ long s48_restart(long proc_346X, long nargs_347X)
                 len_580X = (((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + stob_577X))) + -4))))>>8))))>>2);
                 index_581X = ((arg2_576X)>>2);
                 if ((index_581X < 0)) {
-                  goto L22531;}
+                  goto L22538;}
                 else {
                   if ((index_581X < len_580X)) {
                     addr_582X = (((char *) (-3 + stob_577X))) + (-4 & arg2_576X);
@@ -4520,19 +4520,19 @@ long s48_restart(long proc_346X, long nargs_347X)
                     SvalS = 13;
                     Scode_pointerS = ((Scode_pointerS) + 2);
                     arg1K0 = (Scode_pointerS);
-                    goto L18452;}
+                    goto L18459;}
                   else {
-                    goto L22531;}}}
+                    goto L22538;}}}
               else {
-                goto L22506;}}
+                goto L22513;}}
             else {
-              goto L22506;}}
+              goto L22513;}}
           else {
-            goto L22506;}}
+            goto L22513;}}
         else {
-          goto L22506;}}
+          goto L22513;}}
       else {
-        goto L22506;}}
+        goto L22513;}}
       break;
     case 101 : {
       SstackS = ((SstackS) + 4);
@@ -4542,19 +4542,19 @@ long s48_restart(long proc_346X, long nargs_347X)
         init_585X = (((SvalS))>>2);
         size_586X = 1 + ((((3 + len_584X))>>2));
         if ((len_584X < 0)) {
-          goto L26096;}
+          goto L26103;}
         else {
           if ((4194305 < size_586X)) {
-            goto L26096;}
+            goto L26103;}
           else {
             v_587X = AVAILABLEp(size_586X);
             if (v_587X) {
-              goto L26188;}
+              goto L26195;}
             else {
               collect_saving_temps(1, 1, &temp1_588X);
               v_589X = AVAILABLEp(size_586X);
               if (v_589X) {
-                goto L26188;}
+                goto L26195;}
               else {
                 push_exception_continuationB(8, 1);
                 *((long *) (SstackS)) = (((len_584X)<<2));
@@ -4562,7 +4562,7 @@ long s48_restart(long proc_346X, long nargs_347X)
                 *((long *) (SstackS)) = (((init_585X)<<2));
                 SstackS = ((SstackS) + -4);
                 arg0K0 = 2;
-                goto L16679;}}}}}
+                goto L16686;}}}}}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = arg2_583X;
@@ -4570,45 +4570,45 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = (SvalS);
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 102 : {
       obj_590X = SvalS;
       if ((3 == (3 & obj_590X))) {
-        if ((17 == (31 & ((((*((long *) ((((char *) (-3 + obj_590X))) + -4))))>>2))))) {
+        if ((18 == (31 & ((((*((long *) ((((char *) (-3 + obj_590X))) + -4))))>>2))))) {
           SvalS = (((((long)(((unsigned long)(*((long *) ((((char *) (-3 + (SvalS)))) + -4))))>>8)))<<2));
           Scode_pointerS = ((Scode_pointerS) + 1);
           arg1K0 = (Scode_pointerS);
-          goto L18452;}
+          goto L18459;}
         else {
-          goto L36449;}}
+          goto L36456;}}
       else {
-        goto L36449;}}
+        goto L36456;}}
       break;
     case 103 : {
       SstackS = ((SstackS) + 4);
       arg2_591X = *((long *) (SstackS));
       if ((3 == (3 & arg2_591X))) {
-        if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg2_591X))) + -4))))>>2))))) {
+        if ((18 == (31 & ((((*((long *) ((((char *) (-3 + arg2_591X))) + -4))))>>2))))) {
           if ((0 == (3 & (SvalS)))) {
             index_592X = (((SvalS))>>2);
             len_593X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + arg2_591X))) + -4))))>>8);
             if ((index_592X < 0)) {
-              goto L32988;}
+              goto L32995;}
             else {
               if ((index_592X < len_593X)) {
                 SvalS = ((((*((unsigned char *) ((((char *) (-3 + arg2_591X))) + index_592X))))<<2));
                 Scode_pointerS = ((Scode_pointerS) + 1);
                 arg1K0 = (Scode_pointerS);
-                goto L18452;}
+                goto L18459;}
               else {
-                goto L32988;}}}
+                goto L32995;}}}
           else {
-            goto L36025;}}
+            goto L36032;}}
         else {
-          goto L36025;}}
+          goto L36032;}}
       else {
-        goto L36025;}}
+        goto L36032;}}
       break;
     case 104 : {
       SstackS = ((SstackS) + 4);
@@ -4616,7 +4616,7 @@ long s48_restart(long proc_346X, long nargs_347X)
       SstackS = ((SstackS) + 4);
       arg3_595X = *((long *) (SstackS));
       if ((3 == (3 & arg3_595X))) {
-        if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg3_595X))) + -4))))>>2))))) {
+        if ((18 == (31 & ((((*((long *) ((((char *) (-3 + arg3_595X))) + -4))))>>2))))) {
           if ((0 == (3 & (arg2_594X | (SvalS))))) {
             index_596X = ((arg2_594X)>>2);
             Kchar_597X = (((SvalS))>>2);
@@ -4624,26 +4624,26 @@ long s48_restart(long proc_346X, long nargs_347X)
               if ((0 == (128 & (*((long *) ((((char *) (-3 + arg3_595X))) + -4)))))) {
                 len_598X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + arg3_595X))) + -4))))>>8);
                 if ((index_596X < 0)) {
-                  goto L29936;}
+                  goto L29943;}
                 else {
                   if ((index_596X < len_598X)) {
                     *((unsigned char *) ((((char *) (-3 + arg3_595X))) + index_596X)) = Kchar_597X;
                     SvalS = 13;
                     Scode_pointerS = ((Scode_pointerS) + 1);
                     arg1K0 = (Scode_pointerS);
-                    goto L18452;}
+                    goto L18459;}
                   else {
-                    goto L29936;}}}
+                    goto L29943;}}}
               else {
-                goto L29915;}}
+                goto L29922;}}
             else {
-              goto L29915;}}
+              goto L29922;}}
           else {
-            goto L34437;}}
+            goto L34444;}}
         else {
-          goto L34437;}}
+          goto L34444;}}
       else {
-        goto L34437;}}
+        goto L34444;}}
       break;
     case 105 : {
       SstackS = ((SstackS) + 4);
@@ -4654,19 +4654,19 @@ long s48_restart(long proc_346X, long nargs_347X)
           init_601X = ((((SvalS))>>8));
           size_602X = 1 + ((((4 + len_600X))>>2));
           if ((len_600X < 0)) {
-            goto L26330;}
+            goto L26337;}
           else {
             if ((4194305 < size_602X)) {
-              goto L26330;}
+              goto L26337;}
             else {
               v_603X = AVAILABLEp(size_602X);
               if (v_603X) {
-                goto L26422;}
+                goto L26429;}
               else {
                 collect_saving_temps(1, 1, &temp1_604X);
                 v_605X = AVAILABLEp(size_602X);
                 if (v_605X) {
-                  goto L26422;}
+                  goto L26429;}
                 else {
                   push_exception_continuationB(8, 1);
                   *((long *) (SstackS)) = (((len_600X)<<2));
@@ -4674,49 +4674,49 @@ long s48_restart(long proc_346X, long nargs_347X)
                   *((long *) (SstackS)) = (9 + ((((init_601X))<<8)));
                   SstackS = ((SstackS) + -4);
                   arg0K0 = 2;
-                  goto L16679;}}}}}
+                  goto L16686;}}}}}
         else {
-          goto L33069;}}
+          goto L33076;}}
       else {
-        goto L33069;}}
+        goto L33076;}}
       break;
     case 106 : {
       obj_606X = SvalS;
       if ((3 == (3 & obj_606X))) {
-        if ((16 == (31 & ((((*((long *) ((((char *) (-3 + obj_606X))) + -4))))>>2))))) {
+        if ((17 == (31 & ((((*((long *) ((((char *) (-3 + obj_606X))) + -4))))>>2))))) {
           SvalS = (-4 + (((((long)(((unsigned long)(*((long *) ((((char *) (-3 + (SvalS)))) + -4))))>>8)))<<2)));
           Scode_pointerS = ((Scode_pointerS) + 1);
           arg1K0 = (Scode_pointerS);
-          goto L18452;}
+          goto L18459;}
         else {
-          goto L36499;}}
+          goto L36506;}}
       else {
-        goto L36499;}}
+        goto L36506;}}
       break;
     case 107 : {
       SstackS = ((SstackS) + 4);
       arg2_607X = *((long *) (SstackS));
       if ((3 == (3 & arg2_607X))) {
-        if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg2_607X))) + -4))))>>2))))) {
+        if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg2_607X))) + -4))))>>2))))) {
           if ((0 == (3 & (SvalS)))) {
             index_608X = (((SvalS))>>2);
             len_609X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg2_607X))) + -4))))>>8));
             if ((index_608X < 0)) {
-              goto L33132;}
+              goto L33139;}
             else {
               if ((index_608X < len_609X)) {
                 SvalS = (9 + ((((((*((unsigned char *) ((((char *) (-3 + arg2_607X))) + index_608X))))))<<8)));
                 Scode_pointerS = ((Scode_pointerS) + 1);
                 arg1K0 = (Scode_pointerS);
-                goto L18452;}
+                goto L18459;}
               else {
-                goto L33132;}}}
+                goto L33139;}}}
           else {
-            goto L36121;}}
+            goto L36128;}}
         else {
-          goto L36121;}}
+          goto L36128;}}
       else {
-        goto L36121;}}
+        goto L36128;}}
       break;
     case 108 : {
       SstackS = ((SstackS) + 4);
@@ -4724,7 +4724,7 @@ long s48_restart(long proc_346X, long nargs_347X)
       SstackS = ((SstackS) + 4);
       arg3_611X = *((long *) (SstackS));
       if ((3 == (3 & arg3_611X))) {
-        if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg3_611X))) + -4))))>>2))))) {
+        if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg3_611X))) + -4))))>>2))))) {
           if ((0 == (3 & arg2_610X))) {
             if ((9 == (255 & (SvalS)))) {
               index_612X = ((arg2_610X)>>2);
@@ -4733,41 +4733,41 @@ long s48_restart(long proc_346X, long nargs_347X)
                 if ((0 == (128 & (*((long *) ((((char *) (-3 + arg3_611X))) + -4)))))) {
                   len_614X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg3_611X))) + -4))))>>8));
                   if ((index_612X < 0)) {
-                    goto L30091;}
+                    goto L30098;}
                   else {
                     if ((index_612X < len_614X)) {
                       *((unsigned char *) ((((char *) (-3 + arg3_611X))) + index_612X)) = (Kchar_613X);
                       SvalS = 13;
                       Scode_pointerS = ((Scode_pointerS) + 1);
                       arg1K0 = (Scode_pointerS);
-                      goto L18452;}
+                      goto L18459;}
                     else {
-                      goto L30091;}}}
+                      goto L30098;}}}
                 else {
-                  goto L30070;}}
+                  goto L30077;}}
               else {
-                goto L30070;}}
+                goto L30077;}}
             else {
-              goto L34563;}}
+              goto L34570;}}
           else {
-            goto L34563;}}
+            goto L34570;}}
         else {
-          goto L34563;}}
+          goto L34570;}}
       else {
-        goto L34563;}}
+        goto L34570;}}
       break;
     case 109 : {
       v_615X = AVAILABLEp(3);
       if (v_615X) {
-        goto L24500;}
+        goto L24507;}
       else {
         collect_saving_temps(1, 1, &temp1_616X);
         v_617X = AVAILABLEp(3);
         if (v_617X) {
-          goto L24500;}
+          goto L24507;}
         else {
           ps_error("Scheme48 heap overflow", 0);
-          goto L24500;}}}
+          goto L24507;}}}
       break;
     case 110 : {
       obj_618X = SvalS;
@@ -4778,17 +4778,17 @@ long s48_restart(long proc_346X, long nargs_347X)
           if ((17 == (255 & descriptor_620X))) {
             if ((529 == (*((long *) ((((char *) (-3 + x_619X))) + 4))))) {
               arg0K0 = 5;
-              goto L34110;}
+              goto L34117;}
             else {
               arg0K0 = 1;
-              goto L34110;}}
+              goto L34117;}}
           else {
             arg0K0 = 5;
-            goto L34110;}}
+            goto L34117;}}
         else {
-          goto L34091;}}
+          goto L34098;}}
       else {
-        goto L34091;}}
+        goto L34098;}}
       break;
     case 111 : {
       SstackS = ((SstackS) + 4);
@@ -4797,135 +4797,135 @@ long s48_restart(long proc_346X, long nargs_347X)
         if ((4 == (31 & ((((*((long *) ((((char *) (-3 + arg2_621X))) + -4))))>>2))))) {
           x_622X = SvalS;
           if ((1 == x_622X)) {
-            goto L29678;}
+            goto L29685;}
           else {
             if ((5 == x_622X)) {
-              goto L29678;}
+              goto L29685;}
             else {
-              goto L29685;}}}
+              goto L29692;}}}
         else {
-          goto L29685;}}
+          goto L29692;}}
       else {
-        goto L29685;}}
+        goto L29692;}}
       break;
     case 112 : {
       x_623X = SvalS;
       if ((3 == (3 & x_623X))) {
         if ((0 == (128 & (*((long *) ((((char *) (-3 + x_623X))) + -4)))))) {
           arg0K0 = 1;
-          goto L38709;}
+          goto L38716;}
         else {
           arg0K0 = 5;
-          goto L38709;}}
+          goto L38716;}}
       else {
         arg0K0 = 5;
-        goto L38709;}}
+        goto L38716;}}
       break;
     case 113 : {
       x_624X = SvalS;
       if ((3 == (3 & x_624X))) {
         if ((0 == (128 & (*((long *) ((((char *) (-3 + x_624X))) + -4)))))) {
           *((long *) ((((char *) (-3 + x_624X))) + -4)) = (128 | (*((long *) ((((char *) (-3 + x_624X))) + -4))));
-          goto L33214;}
+          goto L33221;}
         else {
-          goto L33214;}}
+          goto L33221;}}
       else {
-        goto L33214;}}
+        goto L33221;}}
       break;
     case 114 : {
       v_625X = AVAILABLEp(72);
       if (v_625X) {
         arg2K0 = 1;
         arg0K1 = 0;
-        goto L33265;}
+        goto L33272;}
       else {
         collect_saving_temps(1, 1, &temp1_626X);
         v_627X = AVAILABLEp(72);
         if (v_627X) {
           arg2K0 = 1;
           arg0K1 = 0;
-          goto L33265;}
+          goto L33272;}
         else {
           arg2K0 = 0;
           arg0K1 = 0;
-          goto L33265;}}}
+          goto L33272;}}}
       break;
     case 115 : {
       v_628X = AVAILABLEp(66);
       if (v_628X) {
         arg2K0 = 1;
         arg0K1 = 0;
-        goto L34681;}
+        goto L34688;}
       else {
         collect_saving_temps(1, 1, &temp1_629X);
         v_630X = AVAILABLEp(66);
         if (v_630X) {
           arg2K0 = 1;
           arg0K1 = 0;
-          goto L34681;}
+          goto L34688;}
         else {
           arg2K0 = 0;
           arg0K1 = 0;
-          goto L34681;}}}
+          goto L34688;}}}
       break;
     case 116 : {
       v_631X = AVAILABLEp(66);
       if (v_631X) {
         arg2K0 = 1;
         arg0K1 = 0;
-        goto L37553;}
+        goto L37560;}
       else {
         collect_saving_temps(1, 1, &temp1_632X);
         v_633X = AVAILABLEp(66);
         if (v_633X) {
           arg2K0 = 1;
           arg0K1 = 0;
-          goto L37553;}
+          goto L37560;}
         else {
           arg2K0 = 0;
           arg0K1 = 0;
-          goto L37553;}}}
+          goto L37560;}}}
       break;
     case 117 : {
       v_634X = AVAILABLEp(66);
       if (v_634X) {
         arg2K0 = 1;
         arg0K1 = 0;
-        goto L37813;}
+        goto L37820;}
       else {
         collect_saving_temps(1, 1, &temp1_635X);
         v_636X = AVAILABLEp(66);
         if (v_636X) {
           arg2K0 = 1;
           arg0K1 = 0;
-          goto L37813;}
+          goto L37820;}
         else {
           arg2K0 = 0;
           arg0K1 = 0;
-          goto L37813;}}}
+          goto L37820;}}}
       break;
     case 118 : {
       v_637X = AVAILABLEp(66);
       if (v_637X) {
         arg2K0 = 1;
         arg0K1 = 0;
-        goto L34166;}
+        goto L34173;}
       else {
         collect_saving_temps(1, 1, &temp1_638X);
         v_639X = AVAILABLEp(66);
         if (v_639X) {
           arg2K0 = 1;
           arg0K1 = 0;
-          goto L34166;}
+          goto L34173;}
         else {
           arg2K0 = 0;
           arg0K1 = 0;
-          goto L34166;}}}
+          goto L34173;}}}
       break;
     case 119 : {
       obj_640X = SvalS;
       if ((3 == (3 & obj_640X))) {
-        if ((5 == (31 & ((((*((long *) ((((char *) (-3 + obj_640X))) + -4))))>>2))))) {
+        if ((6 == (31 & ((((*((long *) ((((char *) (-3 + obj_640X))) + -4))))>>2))))) {
           channel_641X = SvalS;
           head_642X = Spending_channels_headS;
           if ((1 == head_642X)) {
@@ -4934,7 +4934,7 @@ long s48_restart(long proc_346X, long nargs_347X)
             *((long *) addr_643X) = 1;
             n_644X = ps_abort_fd_op(((((*((long *) ((((char *) (-3 + channel_641X))) + 8))))>>2)));
             arg0K0 = (((n_644X)<<2));
-            goto L33336;}
+            goto L33343;}
           else {
             if ((channel_641X == head_642X)) {
               channel_645X = Spending_channels_headS;
@@ -4945,43 +4945,43 @@ long s48_restart(long proc_346X, long nargs_347X)
               *((long *) addr_647X) = 1;
               if ((1 == next_646X)) {
                 Spending_channels_tailS = 1;
-                goto L8186;}
+                goto L8193;}
               else {
-                goto L8186;}}
+                goto L8193;}}
             else {
               arg0K0 = (*((long *) ((((char *) (-3 + head_642X))) + 12)));
               arg0K1 = head_642X;
-              goto L8192;}}}
+              goto L8199;}}}
         else {
-          goto L33319;}}
+          goto L33326;}}
       else {
-        goto L33319;}}
+        goto L33326;}}
       break;
     case 120 : {
       space_648X = 3 * (Snumber_of_channelsS);
       v_649X = AVAILABLEp(space_648X);
       if (v_649X) {
-        goto L14791;}
+        goto L14798;}
       else {
         collect_saving_temps(1, 1, &temp1_650X);
         v_651X = AVAILABLEp(space_648X);
         if (v_651X) {
-          goto L14791;}
+          goto L14798;}
         else {
           ps_error("Scheme48 heap overflow", 0);
-          goto L14791;}}}
+          goto L14798;}}}
       break;
     case 121 : {
       SvalS = 529;
       Scode_pointerS = ((Scode_pointerS) + 1);
       arg1K0 = (Scode_pointerS);
-      goto L18452;}
+      goto L18459;}
       break;
     case 122 : {
       SvalS = 13;
       Scode_pointerS = ((Scode_pointerS) + 1);
       arg1K0 = (Scode_pointerS);
-      goto L18452;}
+      goto L18459;}
       break;
     case 123 : {
       x_652X = SvalS;
@@ -4989,71 +4989,71 @@ long s48_restart(long proc_346X, long nargs_347X)
       *((long *) (SstackS)) = x_652X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 1;
-      goto L16679;}
+      goto L16686;}
       break;
     case 124 : {
       SvalS = 1;
       Scode_pointerS = ((Scode_pointerS) + 1);
       arg1K0 = (Scode_pointerS);
-      goto L18452;}
+      goto L18459;}
       break;
     case 125 : {
       SvalS = 21;
       Scode_pointerS = ((Scode_pointerS) + 1);
       arg1K0 = (Scode_pointerS);
-      goto L18452;}
+      goto L18459;}
       break;
     case 126 : {
       v_653X = AVAILABLEp(66);
       if (v_653X) {
         arg2K0 = 1;
         arg0K1 = 0;
-        goto L34782;}
+        goto L34789;}
       else {
         collect_saving_temps(1, 1, &temp1_654X);
         v_655X = AVAILABLEp(66);
         if (v_655X) {
           arg2K0 = 1;
           arg0K1 = 0;
-          goto L34782;}
+          goto L34789;}
         else {
           arg2K0 = 0;
           arg0K1 = 0;
-          goto L34782;}}}
+          goto L34789;}}}
       break;
     case 127 : {
       SvalS = 13;
       collect_saving_temps(0, 0, &v_656X);
       Scode_pointerS = ((Scode_pointerS) + 1);
       arg1K0 = (Scode_pointerS);
-      goto L18452;}
+      goto L18459;}
       break;
     case 128 : {
       obj_657X = SvalS;
       if ((3 == (3 & obj_657X))) {
-        if ((16 == (31 & ((((*((long *) ((((char *) (-3 + obj_657X))) + -4))))>>2))))) {
+        if ((17 == (31 & ((((*((long *) ((((char *) (-3 + obj_657X))) + -4))))>>2))))) {
           x_658X = SvalS;
           n_659X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + x_658X))) + -4))))>>8));
           arg0K0 = 0;
           arg0K1 = 0;
-          goto L35614;}
+          goto L35621;}
         else {
-          goto L35591;}}
+          goto L35598;}}
       else {
-        goto L35591;}}
+        goto L35598;}}
       break;
     case 129 : {
       v_660X = AVAILABLEp(6);
       if (v_660X) {
-        goto L38777;}
+        goto L38784;}
       else {
         collect_saving_temps(1, 1, &temp1_661X);
         v_662X = AVAILABLEp(6);
         if (v_662X) {
-          goto L38777;}
+          goto L38784;}
         else {
           ps_error("Scheme48 heap overflow", 0);
-          goto L38777;}}}
+          goto L38784;}}}
       break;
     case 130 : {
       SstackS = ((SstackS) + 4);
@@ -5065,34 +5065,34 @@ long s48_restart(long proc_346X, long nargs_347X)
           SvalS = (-4 & other_665X);
           Scode_pointerS = ((Scode_pointerS) + 1);
           arg1K0 = (Scode_pointerS);
-          goto L18452;}
+          goto L18459;}
         else {
           if ((0 == key_664X)) {
             x_666X = s48_available();
             SvalS = (((x_666X)<<2));
             Scode_pointerS = ((Scode_pointerS) + 1);
             arg1K0 = (Scode_pointerS);
-            goto L18452;}
+            goto L18459;}
           else {
             if ((1 == key_664X)) {
               bytes_667X = s48_heap_size();
               SvalS = (-4 & (3 + bytes_667X));
               Scode_pointerS = ((Scode_pointerS) + 1);
               arg1K0 = (Scode_pointerS);
-              goto L18452;}
+              goto L18459;}
             else {
               if ((2 == key_664X)) {
                 SvalS = (((((Sstack_endS) - (Sstack_beginS)))<<2));
                 Scode_pointerS = ((Scode_pointerS) + 1);
                 arg1K0 = (Scode_pointerS);
-                goto L18452;}
+                goto L18459;}
               else {
                 if ((3 == key_664X)) {
                   x_668X = s48_gc_count();
                   SvalS = (((x_668X)<<2));
                   Scode_pointerS = ((Scode_pointerS) + 1);
                   arg1K0 = (Scode_pointerS);
-                  goto L18452;}
+                  goto L18459;}
                 else {
                   if ((4 == key_664X)) {
                     push_exception_continuationB(15, 1);
@@ -5101,7 +5101,7 @@ long s48_restart(long proc_346X, long nargs_347X)
                     *((long *) (SstackS)) = other_665X;
                     SstackS = ((SstackS) + -4);
                     arg0K0 = 2;
-                    goto L16679;}
+                    goto L16686;}
                   else {
                     push_exception_continuationB(18, 1);
                     *((long *) (SstackS)) = (((key_664X)<<2));
@@ -5109,7 +5109,7 @@ long s48_restart(long proc_346X, long nargs_347X)
                     *((long *) (SstackS)) = other_665X;
                     SstackS = ((SstackS) + -4);
                     arg0K0 = 2;
-                    goto L16679;}}}}}}}
+                    goto L16686;}}}}}}}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = arg2_663X;
@@ -5117,69 +5117,69 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = (SvalS);
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 131 : {
       if ((0 == (3 & (SvalS)))) {
         type_669X = (((SvalS))>>2);
         arg2K0 = 1;
-        goto L33427;}
+        goto L33434;}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = (SvalS);
         SstackS = ((SstackS) + -4);
         arg0K0 = 1;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 132 : {
       x_670X = SvalS;
       arg2K0 = 1;
       arg0K1 = x_670X;
-      goto L38827;}
+      goto L38834;}
       break;
     case 133 : {
       SvalS = (Scurrent_threadS);
       Scode_pointerS = ((Scode_pointerS) + 1);
       arg1K0 = (Scode_pointerS);
-      goto L18452;}
+      goto L18459;}
       break;
     case 134 : {
       Scurrent_threadS = (SvalS);
       SvalS = 13;
       Scode_pointerS = ((Scode_pointerS) + 1);
       arg1K0 = (Scode_pointerS);
-      goto L18452;}
+      goto L18459;}
       break;
     case 135 : {
       SvalS = (Ssession_dataS);
       Scode_pointerS = ((Scode_pointerS) + 1);
       arg1K0 = (Scode_pointerS);
-      goto L18452;}
+      goto L18459;}
       break;
     case 136 : {
       Ssession_dataS = (SvalS);
       SvalS = 13;
       Scode_pointerS = ((Scode_pointerS) + 1);
       arg1K0 = (Scode_pointerS);
-      goto L18452;}
+      goto L18459;}
       break;
     case 137 : {
       obj_671X = SvalS;
       if ((3 == (3 & obj_671X))) {
         if ((2 == (31 & ((((*((long *) ((((char *) (-3 + obj_671X))) + -4))))>>2))))) {
           if ((((((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + (SvalS)))) + -4))))>>8))))>>2)) < 161)) {
-            goto L20584;}
+            goto L20591;}
           else {
             temp_672X = Sexception_handlersS;
             Sexception_handlersS = (SvalS);
             SvalS = temp_672X;
             Scode_pointerS = ((Scode_pointerS) + 1);
             arg1K0 = (Scode_pointerS);
-            goto L18452;}}
+            goto L18459;}}
         else {
-          goto L20584;}}
+          goto L20591;}}
       else {
-        goto L20584;}}
+        goto L20591;}}
       break;
     case 138 : {
       SstackS = ((SstackS) + 4);
@@ -5192,25 +5192,25 @@ long s48_restart(long proc_346X, long nargs_347X)
       StemplateS = template_674X;
       Scode_pointerS = ((((char *) (-3 + (*((long *) (((char *) (-3 + template_674X)))))))) + ((((((((((p_673X)>>2)) + (((p_675X)>>2))))<<2)))>>2)));
       arg1K0 = (Scode_pointerS);
-      goto L18452;}
+      goto L18459;}
       break;
     case 139 : {
       obj_676X = SvalS;
       if ((3 == (3 & obj_676X))) {
         if ((2 == (31 & ((((*((long *) ((((char *) (-3 + obj_676X))) + -4))))>>2))))) {
           if ((((((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + (SvalS)))) + -4))))>>8))))>>2)) < 5)) {
-            goto L19508;}
+            goto L19515;}
           else {
             temp_677X = Sinterrupt_handlersS;
             Sinterrupt_handlersS = (SvalS);
             SvalS = temp_677X;
             Scode_pointerS = ((Scode_pointerS) + 1);
             arg1K0 = (Scode_pointerS);
-            goto L18452;}}
+            goto L18459;}}
         else {
-          goto L19508;}}
+          goto L19515;}}
       else {
-        goto L19508;}}
+        goto L19515;}}
       break;
     case 140 : {
       old_678X = Senabled_interruptsS;
@@ -5220,12 +5220,12 @@ long s48_restart(long proc_346X, long nargs_347X)
         s48_Spending_interruptPS = 0;
         if ((s48_Spending_eventsPS)) {
           s48_Spending_interruptPS = 1;
-          goto L38868;}
+          goto L38875;}
         else {
-          goto L38868;}}
+          goto L38875;}}
       else {
         s48_Spending_interruptPS = 1;
-        goto L38868;}}
+        goto L38875;}}
       break;
     case 141 : {
       SstackS = ((SstackS) + 4);
@@ -5235,12 +5235,12 @@ long s48_restart(long proc_346X, long nargs_347X)
         s48_Spending_interruptPS = 0;
         if ((s48_Spending_eventsPS)) {
           s48_Spending_interruptPS = 1;
-          goto L18466;}
+          goto L18473;}
         else {
-          goto L18466;}}
+          goto L18473;}}
       else {
         s48_Spending_interruptPS = 1;
-        goto L18466;}}
+        goto L18473;}}
       break;
     case 142 : {
       if ((0 == (3 & (SvalS)))) {
@@ -5250,18 +5250,18 @@ long s48_restart(long proc_346X, long nargs_347X)
           s48_Spending_interruptPS = 0;
           if ((s48_Spending_eventsPS)) {
             s48_Spending_interruptPS = 1;
-            goto L37373;}
+            goto L37380;}
           else {
-            goto L37373;}}
+            goto L37380;}}
         else {
           s48_Spending_interruptPS = 1;
-          goto L37373;}}
+          goto L37380;}}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = (SvalS);
         SstackS = ((SstackS) + -4);
         arg0K0 = 1;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 143 : {
       SstackS = ((SstackS) + 4);
@@ -5269,14 +5269,14 @@ long s48_restart(long proc_346X, long nargs_347X)
       if ((0 == (3 & arg2_682X))) {
         x_683X = SvalS;
         if ((1 == x_683X)) {
-          goto L34310;}
+          goto L34317;}
         else {
           if ((5 == x_683X)) {
-            goto L34310;}
+            goto L34317;}
           else {
-            goto L34315;}}}
+            goto L34322;}}}
       else {
-        goto L34315;}}
+        goto L34322;}}
       break;
     case 144 : {
       SstackS = ((SstackS) + 4);
@@ -5292,46 +5292,46 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = nargs_684X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16679;}
+        goto L16686;}
       else {
         arg0K0 = rest_list_686X;
-        goto L22803;}}
+        goto L22810;}}
       break;
     case 145 : {
       v_687X = AVAILABLEp(5);
       if (v_687X) {
         arg2K0 = 1;
         arg0K1 = 0;
-        goto L33536;}
+        goto L33543;}
       else {
         collect_saving_temps(1, 1, &temp1_688X);
         v_689X = AVAILABLEp(5);
         if (v_689X) {
           arg2K0 = 1;
           arg0K1 = 0;
-          goto L33536;}
+          goto L33543;}
         else {
           arg2K0 = 0;
           arg0K1 = 0;
-          goto L33536;}}}
+          goto L33543;}}}
       break;
     case 147 : {
       SstackS = ((SstackS) + 4);
       arg2_690X = *((long *) (SstackS));
       if ((3 == (3 & arg2_690X))) {
-        if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg2_690X))) + -4))))>>2))))) {
+        if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg2_690X))) + -4))))>>2))))) {
           x_691X = SvalS;
           if ((1 == x_691X)) {
-            goto L23927;}
+            goto L23934;}
           else {
             if ((5 == x_691X)) {
-              goto L23927;}
+              goto L23934;}
             else {
-              goto L23932;}}}
+              goto L23939;}}}
         else {
-          goto L23932;}}
+          goto L23939;}}
       else {
-        goto L23932;}}
+        goto L23939;}}
       break;
     case 148 : {
       SstackS = ((SstackS) + 4);
@@ -5344,21 +5344,21 @@ long s48_restart(long proc_346X, long nargs_347X)
           SvalS = (((x_695X)<<2));
           Scode_pointerS = ((Scode_pointerS) + 1);
           arg1K0 = (Scode_pointerS);
-          goto L18452;}
+          goto L18459;}
         else {
           if ((0 == option_693X)) {
             seconds_696X = s48_run_time(&mseconds_697X);
             arg0K0 = option_693X;
             arg0K1 = seconds_696X;
             arg0K2 = mseconds_697X;
-            goto L35525;}
+            goto L35532;}
           else {
             if ((1 == option_693X)) {
               seconds_698X = s48_real_time(&mseconds_699X);
               arg0K0 = option_693X;
               arg0K1 = seconds_698X;
               arg0K2 = mseconds_699X;
-              goto L35525;}
+              goto L35532;}
             else {
               push_exception_continuationB(18, 1);
               *((long *) (SstackS)) = (((option_693X)<<2));
@@ -5366,7 +5366,7 @@ long s48_restart(long proc_346X, long nargs_347X)
               *((long *) (SstackS)) = other_694X;
               SstackS = ((SstackS) + -4);
               arg0K0 = 2;
-              goto L16679;}}}}
+              goto L16686;}}}}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = arg2_692X;
@@ -5374,7 +5374,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = (SvalS);
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 149 : {
       SstackS = ((SstackS) + 4);
@@ -5387,7 +5387,7 @@ long s48_restart(long proc_346X, long nargs_347X)
           SvalS = (s48_Sextension_valueS);
           Scode_pointerS = ((Scode_pointerS) + 1);
           arg1K0 = (Scode_pointerS);
-          goto L18452;}
+          goto L18459;}
         else {
           if ((1 == status_703X)) {
             push_exception_continuationB(23, 1);
@@ -5396,7 +5396,7 @@ long s48_restart(long proc_346X, long nargs_347X)
             *((long *) (SstackS)) = value_702X;
             SstackS = ((SstackS) + -4);
             arg0K0 = 2;
-            goto L16679;}
+            goto L16686;}
           else {
             push_exception_continuationB(24, 1);
             *((long *) (SstackS)) = (((key_701X)<<2));
@@ -5404,7 +5404,7 @@ long s48_restart(long proc_346X, long nargs_347X)
             *((long *) (SstackS)) = value_702X;
             SstackS = ((SstackS) + -4);
             arg0K0 = 2;
-            goto L16679;}}}
+            goto L16686;}}}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = arg2_700X;
@@ -5412,7 +5412,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = (SvalS);
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 150 : {
       SstackS = ((SstackS) + 4);
@@ -5423,55 +5423,55 @@ long s48_restart(long proc_346X, long nargs_347X)
         s48_Spending_interruptPS = 0;
         if ((s48_Spending_eventsPS)) {
           s48_Spending_interruptPS = 1;
-          goto L38928;}
+          goto L38935;}
         else {
-          goto L38928;}}
+          goto L38935;}}
       else {
         s48_Spending_interruptPS = 1;
-        goto L38928;}}
+        goto L38935;}}
       break;
     case 151 : {
       SstackS = ((SstackS) + 4);
       arg2_706X = *((long *) (SstackS));
       if ((3 == (3 & arg2_706X))) {
-        if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg2_706X))) + -4))))>>2))))) {
+        if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg2_706X))) + -4))))>>2))))) {
           obj_707X = SvalS;
           if ((3 == (3 & obj_707X))) {
-            if ((16 == (31 & ((((*((long *) ((((char *) (-3 + obj_707X))) + -4))))>>2))))) {
+            if ((17 == (31 & ((((*((long *) ((((char *) (-3 + obj_707X))) + -4))))>>2))))) {
               x_708X = SvalS;
               len_709X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + arg2_706X))) + -4))))>>8);
               if ((len_709X == ((long)(((unsigned long)(*((long *) ((((char *) (-3 + x_708X))) + -4))))>>8)))) {
                 if (((!memcmp((void *)(((char *) (-3 + x_708X))), (void *)(((char *) (-3 + arg2_706X))),len_709X)))) {
                   arg0K0 = 5;
-                  goto L27864;}
+                  goto L27871;}
                 else {
                   arg0K0 = 1;
-                  goto L27864;}}
+                  goto L27871;}}
               else {
                 arg0K0 = 1;
-                goto L27864;}}
+                goto L27871;}}
             else {
-              goto L27831;}}
+              goto L27838;}}
           else {
-            goto L27831;}}
+            goto L27838;}}
         else {
-          goto L27831;}}
+          goto L27838;}}
       else {
-        goto L27831;}}
+        goto L27838;}}
       break;
     case 152 : {
       space_710X = 1 + ((((4 + ((((SvalS))>>2))))>>2));
       v_711X = AVAILABLEp(space_710X);
       if (v_711X) {
-        goto L33745;}
+        goto L33752;}
       else {
         collect_saving_temps(1, 1, &temp1_712X);
         v_713X = AVAILABLEp(space_710X);
         if (v_713X) {
-          goto L33745;}
+          goto L33752;}
         else {
           ps_error("Scheme48 heap overflow", 0);
-          goto L33745;}}}
+          goto L33752;}}}
       break;
     case 153 : {
       SstackS = ((SstackS) + 4);
@@ -5480,7 +5480,7 @@ long s48_restart(long proc_346X, long nargs_347X)
       arg0K0 = list_715X;
       arg0K1 = list_715X;
       arg2K2 = 1;
-      goto L29333;}
+      goto L29340;}
       break;
     case 154 : {
       SstackS = ((SstackS) + 4);
@@ -5490,25 +5490,25 @@ long s48_restart(long proc_346X, long nargs_347X)
       if ((0 == (3 & (SvalS)))) {
         index_718X = (((SvalS))>>2);
         if ((3 == (3 & arg3_717X))) {
-          if ((8 == (31 & ((((*((long *) ((((char *) (-3 + arg3_717X))) + -4))))>>2))))) {
+          if ((9 == (31 & ((((*((long *) ((((char *) (-3 + arg3_717X))) + -4))))>>2))))) {
             if ((arg2_716X == (*((long *) (((char *) (-3 + arg3_717X))))))) {
               len_719X = (((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg3_717X))) + -4))))>>8))))>>2);
               if ((index_718X < 0)) {
-                goto L27537;}
+                goto L27544;}
               else {
                 if ((index_718X < len_719X)) {
                   SvalS = (*((long *) ((((char *) (-3 + arg3_717X))) + (((index_718X)<<2)))));
                   Scode_pointerS = ((Scode_pointerS) + 1);
                   arg1K0 = (Scode_pointerS);
-                  goto L18452;}
+                  goto L18459;}
                 else {
-                  goto L27537;}}}
+                  goto L27544;}}}
             else {
-              goto L27557;}}
+              goto L27564;}}
           else {
-            goto L27557;}}
+            goto L27564;}}
         else {
-          goto L27557;}}
+          goto L27564;}}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = arg3_717X;
@@ -5518,7 +5518,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = (SvalS);
         SstackS = ((SstackS) + -4);
         arg0K0 = 3;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 155 : {
       SstackS = ((SstackS) + 4);
@@ -5531,13 +5531,13 @@ long s48_restart(long proc_346X, long nargs_347X)
         index_723X = ((arg2_720X)>>2);
         value_724X = SvalS;
         if ((3 == (3 & arg4_722X))) {
-          if ((8 == (31 & ((((*((long *) ((((char *) (-3 + arg4_722X))) + -4))))>>2))))) {
+          if ((9 == (31 & ((((*((long *) ((((char *) (-3 + arg4_722X))) + -4))))>>2))))) {
             if ((arg3_721X == (*((long *) (((char *) (-3 + arg4_722X))))))) {
               if ((3 == (3 & arg4_722X))) {
                 if ((0 == (128 & (*((long *) ((((char *) (-3 + arg4_722X))) + -4)))))) {
                   len_725X = (((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg4_722X))) + -4))))>>8))))>>2);
                   if ((index_723X < 0)) {
-                    goto L30838;}
+                    goto L30845;}
                   else {
                     if ((index_723X < len_725X)) {
                       addr_726X = (((char *) (-3 + arg4_722X))) + (((index_723X)<<2));
@@ -5546,19 +5546,19 @@ long s48_restart(long proc_346X, long nargs_347X)
                       SvalS = 13;
                       Scode_pointerS = ((Scode_pointerS) + 1);
                       arg1K0 = (Scode_pointerS);
-                      goto L18452;}
+                      goto L18459;}
                     else {
-                      goto L30838;}}}
+                      goto L30845;}}}
                 else {
-                  goto L30860;}}
+                  goto L30867;}}
               else {
-                goto L30860;}}
+                goto L30867;}}
             else {
-              goto L30860;}}
+              goto L30867;}}
           else {
-            goto L30860;}}
+            goto L30867;}}
         else {
-          goto L30860;}}
+          goto L30867;}}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = arg4_722X;
@@ -5570,7 +5570,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = (SvalS);
         SstackS = ((SstackS) + -4);
         arg0K0 = 4;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 156 : {
       SstackS = ((SstackS) + 4);
@@ -5586,12 +5586,12 @@ long s48_restart(long proc_346X, long nargs_347X)
         to_index_732X = ((arg2_727X)>>2);
         count_733X = (((SvalS))>>2);
         if ((3 == (3 & arg5_730X))) {
-          if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg5_730X))) + -4))))>>2))))) {
-            goto L31089;}
+          if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg5_730X))) + -4))))>>2))))) {
+            goto L31096;}
           else {
-            goto L31084;}}
+            goto L31091;}}
         else {
-          goto L31084;}}
+          goto L31091;}}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = arg5_730X;
@@ -5605,13 +5605,13 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = (SvalS);
         SstackS = ((SstackS) + -4);
         arg0K0 = 5;
-        goto L16679;}}
+        goto L16686;}}
       break;
     case 157 : {
       v_734X = *((unsigned char *) ((Scode_pointerS) + 1));
       if ((0 == v_734X)) {
         arg0K0 = (SvalS);
-        goto L23059;}
+        goto L23066;}
       else {
         merged_arg0K0 = 0;
         get_current_port_return_tag = 0;
@@ -5619,13 +5619,13 @@ long s48_restart(long proc_346X, long nargs_347X)
        get_current_port_return_0:
         v_735X = get_current_port0_return_value;
         arg0K0 = v_735X;
-        goto L23059;}}
+        goto L23066;}}
       break;
     case 158 : {
       v_736X = *((unsigned char *) ((Scode_pointerS) + 1));
       if ((0 == v_736X)) {
         arg0K0 = (SvalS);
-        goto L23279;}
+        goto L23286;}
       else {
         merged_arg0K0 = 0;
         get_current_port_return_tag = 1;
@@ -5633,7 +5633,7 @@ long s48_restart(long proc_346X, long nargs_347X)
        get_current_port_return_1:
         v_737X = get_current_port0_return_value;
         arg0K0 = v_737X;
-        goto L23279;}}
+        goto L23286;}}
       break;
     case 159 : {
       v_738X = *((unsigned char *) ((Scode_pointerS) + 1));
@@ -5642,7 +5642,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         SstackS = ((SstackS) + 4);
         arg0K0 = (*((long *) (SstackS)));
         arg0K1 = v_739X;
-        goto L23492;}
+        goto L23499;}
       else {
         merged_arg0K0 = 4;
         get_current_port_return_tag = 2;
@@ -5651,27 +5651,27 @@ long s48_restart(long proc_346X, long nargs_347X)
         v_740X = get_current_port0_return_value;
         arg0K0 = (SvalS);
         arg0K1 = v_740X;
-        goto L23492;}}
+        goto L23499;}}
       break;
     case 160 : {
       x_741X = SvalS;
       out_742X = stderr;
       arg0K0 = x_741X;
-      goto L29586;}
+      goto L29593;}
       break;
   }}
- L16679: {
+ L16686: {
   nargs_743X = arg0K0;
   opcode_744X = (((*((long *) ((SstackS) + (8 + (((nargs_743X)<<2)))))))>>2);
   obj_745X = Sexception_handlersS;
   if ((3 == (3 & obj_745X))) {
     if ((2 == (31 & ((((*((long *) ((((char *) (-3 + obj_745X))) + -4))))>>2))))) {
-      goto L16738;}
+      goto L16745;}
     else {
-      goto L16811;}}
+      goto L16818;}}
   else {
-    goto L16811;}}
- L23846: {
+    goto L16818;}}
+ L23853: {
   env_746X = arg0K0;
   i_747X = arg0K1;
   if ((0 == i_747X)) {
@@ -5679,16 +5679,16 @@ long s48_restart(long proc_346X, long nargs_347X)
     if ((529 == (SvalS))) {
       push_exception_continuationB(0, 3);
       arg0K0 = 0;
-      goto L16679;}
+      goto L16686;}
     else {
       Scode_pointerS = ((Scode_pointerS) + 3);
       arg1K0 = (Scode_pointerS);
-      goto L18452;}}
+      goto L18459;}}
   else {
     arg0K0 = (*((long *) (((char *) (-3 + env_746X)))));
     arg0K1 = (-1 + i_747X);
-    goto L23846;}}
- L20261: {
+    goto L23853;}}
+ L20268: {
   env_748X = arg0K0;
   i_749X = arg0K1;
   if ((0 == i_749X)) {
@@ -5696,16 +5696,16 @@ long s48_restart(long proc_346X, long nargs_347X)
     if ((529 == (SvalS))) {
       push_exception_continuationB(0, 5);
       arg0K0 = 0;
-      goto L16679;}
+      goto L16686;}
     else {
       Scode_pointerS = ((Scode_pointerS) + 5);
       arg1K0 = (Scode_pointerS);
-      goto L18452;}}
+      goto L18459;}}
   else {
     arg0K0 = (*((long *) (((char *) (-3 + env_748X)))));
     arg0K1 = (-1 + i_749X);
-    goto L20261;}}
- L20199: {
+    goto L20268;}}
+ L20206: {
   env_750X = arg0K0;
   i_751X = arg0K1;
   if ((0 == i_751X)) {
@@ -5717,48 +5717,48 @@ long s48_restart(long proc_346X, long nargs_347X)
     SvalS = 13;
     Scode_pointerS = ((Scode_pointerS) + 5);
     arg1K0 = (Scode_pointerS);
-    goto L18452;}
+    goto L18459;}
   else {
     arg0K0 = (*((long *) (((char *) (-3 + env_750X)))));
     arg0K1 = (-1 + i_751X);
-    goto L20199;}}
- L20978: {
+    goto L20206;}}
+ L20985: {
   space_755X = arg0K0;
   v_756X = AVAILABLEp(space_755X);
   if (v_756X) {
     arg2K0 = 1;
     arg0K1 = 0;
-    goto L21052;}
+    goto L21059;}
   else {
     collect_saving_temps(1, 1, &temp1_757X);
     v_758X = AVAILABLEp(space_755X);
     if (v_758X) {
       arg2K0 = 1;
       arg0K1 = 0;
-      goto L21052;}
+      goto L21059;}
     else {
       arg2K0 = 0;
       arg0K1 = 0;
-      goto L21052;}}}
- L20985: {
+      goto L21059;}}}
+ L20992: {
   env_759X = arg0K0;
   v_760X = AVAILABLEp(3);
   if (v_760X) {
     arg2K0 = 1;
     arg0K1 = env_759X;
-    goto L21010;}
+    goto L21017;}
   else {
     temp0_761X = collect_saving_temps(env_759X, 1, &temp1_762X);
     v_763X = AVAILABLEp(3);
     if (v_763X) {
       arg2K0 = 1;
       arg0K1 = temp0_761X;
-      goto L21010;}
+      goto L21017;}
     else {
       arg2K0 = 0;
       arg0K1 = temp0_761X;
-      goto L21010;}}}
- L20780: {
+      goto L21017;}}}
+ L20787: {
   len_764X = ((total_count_394X)<<2);
   addr_765X = ALLOCATE_SPACE(2, (4 + len_764X));
   *((long *) addr_765X) = (10 + (((len_764X)<<8)));
@@ -5766,53 +5766,53 @@ long s48_restart(long proc_346X, long nargs_347X)
   v_767X = *((unsigned char *) ((Scode_pointerS) + 1));
   if ((0 == v_767X)) {
     arg0K0 = 0;
-    goto L20794;}
+    goto L20801;}
   else {
     value_768X = SvalS;
     addr_769X = ((char *) (-3 + new_env_766X));
     S48_WRITE_BARRIER(new_env_766X, addr_769X, value_768X);
     *((long *) addr_769X) = value_768X;
     arg0K0 = 1;
-    goto L20794;}}
- L20706: {
+    goto L20801;}}
+ L20713: {
   okayP_770X = arg2K0;
   key_771X = arg0K1;
   if (okayP_770X) {
     arg0K0 = key_771X;
-    goto L20694;}
+    goto L20701;}
   else {
     ps_error("Scheme48 heap overflow", 0);
     arg0K0 = key_771X;
-    goto L20694;}}
- L19861: {
+    goto L20701;}}
+ L19868: {
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L19896: {
+  goto L18459;}
+ L19903: {
   SstackS = ((((char *) (-3 + (Sbottom_of_stackS)))) + -8);
   *((long *) (((char *) (-3 + (Sbottom_of_stackS))))) = cont_403X;
   ScontS = (Sbottom_of_stackS);
-  goto L19861;}
- L19862: {
+  goto L19868;}
+ L19869: {
   if ((1 == cont_403X)) {
     if ((0 == (3 & (SvalS)))) {
       s48_Scallback_return_stack_blockS = 1;
       return ((((SvalS))>>2));}
     else {
-      goto L19877;}}
+      goto L19884;}}
   else {
-    goto L19877;}}
- L19222: {
+    goto L19884;}}
+ L19229: {
   okayP_772X = arg2K0;
   key_773X = arg0K1;
   if (okayP_772X) {
     arg0K0 = key_773X;
-    goto L19177;}
+    goto L19184;}
   else {
     ps_error("Scheme48 heap overflow", 0);
     arg0K0 = key_773X;
-    goto L19177;}}
- L19134: {
+    goto L19184;}}
+ L19141: {
   if ((s48_Spending_interruptPS)) {
     if ((s48_Spending_eventsPS)) {
       s48_Spending_eventsPS = 0;
@@ -5822,21 +5822,21 @@ long s48_restart(long proc_346X, long nargs_347X)
       v_774X = check_events0_return_value;
       if (v_774X) {
         arg0K0 = stack_arg_count_404X;
-        goto L16908;}
+        goto L16915;}
       else {
-        goto L19138;}}
+        goto L19145;}}
     else {
       arg0K0 = stack_arg_count_404X;
-      goto L16908;}}
+      goto L16915;}}
   else {
-    goto L19138;}}
- L16080: {
+    goto L19145;}}
+ L16087: {
   stack_arg_count_775X = arg0K0;
   code_776X = *((long *) (((char *) (-3 + (*((long *) (((char *) (-3 + (SvalS))))))))));
   arg0K0 = (*((unsigned char *) ((((char *) (-3 + code_776X))) + 1)));
   arg0K1 = 64;
-  goto L16094;}
- L17175: {
+  goto L16101;}
+ L17182: {
   exception_777X = arg0K0;
   stack_arg_count_778X = arg0K1;
   list_args_779X = arg0K2;
@@ -5867,35 +5867,35 @@ long s48_restart(long proc_346X, long nargs_347X)
     *((long *) (SstackS)) = args_784X;
     SstackS = ((SstackS) + -4);
     arg0K0 = 2;
-    goto L16679;}}
- L17642: {
+    goto L16686;}}
+ L17649: {
   loc_785X = arg1K0;
   arg_786X = arg1K1;
   if ((top_of_args_415X < arg_786X)) {
     *((long *) loc_785X) = (*((long *) arg_786X));
     arg1K0 = (loc_785X + -4);
     arg1K1 = (arg_786X + -4);
-    goto L17642;}
+    goto L17649;}
   else {
     SstackS = loc_785X;
     obj_787X = SvalS;
     if ((3 == (3 & obj_787X))) {
       if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_787X))) + -4))))>>2))))) {
         arg0K0 = nargs_414X;
-        goto L16080;}
+        goto L16087;}
       else {
         arg0K0 = 3;
         arg0K1 = nargs_414X;
         arg0K2 = 25;
         arg0K3 = 0;
-        goto L17175;}}
+        goto L17182;}}
     else {
       arg0K0 = 3;
       arg0K1 = nargs_414X;
       arg0K2 = 25;
       arg0K3 = 0;
-      goto L17175;}}}
- L17680: {
+      goto L17182;}}}
+ L17687: {
   stack_arg_count_788X = arg0K0;
   list_args_789X = arg0K1;
   list_arg_count_790X = arg0K2;
@@ -5904,19 +5904,19 @@ long s48_restart(long proc_346X, long nargs_347X)
     if ((3 == (3 & obj_791X))) {
       if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_791X))) + -4))))>>2))))) {
         arg0K0 = stack_arg_count_788X;
-        goto L16080;}
+        goto L16087;}
       else {
         arg0K0 = 3;
         arg0K1 = stack_arg_count_788X;
         arg0K2 = 25;
         arg0K3 = 0;
-        goto L17175;}}
+        goto L17182;}}
     else {
       arg0K0 = 3;
       arg0K1 = stack_arg_count_788X;
       arg0K2 = 25;
       arg0K3 = 0;
-      goto L17175;}}
+      goto L17182;}}
   else {
     obj_792X = SvalS;
     if ((3 == (3 & obj_792X))) {
@@ -5925,20 +5925,20 @@ long s48_restart(long proc_346X, long nargs_347X)
         total_arg_count_794X = stack_arg_count_788X + list_arg_count_790X;
         arg0K0 = (*((unsigned char *) ((((char *) (-3 + code_793X))) + 1)));
         arg0K1 = 64;
-        goto L16371;}
+        goto L16378;}
       else {
         arg0K0 = 3;
         arg0K1 = stack_arg_count_788X;
         arg0K2 = list_args_789X;
         arg0K3 = list_arg_count_790X;
-        goto L17175;}}
+        goto L17182;}}
     else {
       arg0K0 = 3;
       arg0K1 = stack_arg_count_788X;
       arg0K2 = list_args_789X;
       arg0K3 = list_arg_count_790X;
-      goto L17175;}}}
- L11287: {
+      goto L17182;}}}
+ L11294: {
   list_args_795X = arg0K0;
   stack_nargs_796X = arg0K1;
   merged_arg0K0 = list_args_795X;
@@ -5952,7 +5952,7 @@ long s48_restart(long proc_346X, long nargs_347X)
     arg0K0 = stack_nargs_796X;
     arg0K1 = list_args_795X;
     arg0K2 = list_arg_count_798X;
-    goto L17680;}
+    goto L17687;}
   else {
     *((long *) (SstackS)) = list_args_795X;
     SstackS = ((SstackS) + -4);
@@ -5969,8 +5969,8 @@ long s48_restart(long proc_346X, long nargs_347X)
     *((long *) (SstackS)) = args_799X;
     SstackS = ((SstackS) + -4);
     arg0K0 = 2;
-    goto L16679;}}
- L11328: {
+    goto L16686;}}
+ L11335: {
   list_800X = arg0K0;
   follower_801X = arg0K1;
   if ((25 == list_800X)) {
@@ -5980,35 +5980,35 @@ long s48_restart(long proc_346X, long nargs_347X)
     *((long *) addr_803X) = list_args_802X;
     arg0K0 = rest_list_423X;
     arg0K1 = (-1 + stack_nargs_421X);
-    goto L11287;}
+    goto L11294;}
   else {
     arg0K0 = (*((long *) ((((char *) (-3 + list_800X))) + 4)));
     arg0K1 = (*((long *) ((((char *) (-3 + follower_801X))) + 4)));
-    goto L11328;}}
- L17585: {
+    goto L11335;}}
+ L17592: {
   obj_804X = SvalS;
   if ((3 == (3 & obj_804X))) {
     if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_804X))) + -4))))>>2))))) {
       arg0K0 = 0;
-      goto L16080;}
+      goto L16087;}
     else {
       arg0K0 = 3;
       arg0K1 = 0;
       arg0K2 = 25;
       arg0K3 = 0;
-      goto L17175;}}
+      goto L17182;}}
   else {
     arg0K0 = 3;
     arg0K1 = 0;
     arg0K2 = 25;
     arg0K3 = 0;
-    goto L17175;}}
- L17592: {
+    goto L17182;}}
+ L17599: {
   SstackS = ((((char *) (-3 + (Sbottom_of_stackS)))) + -8);
   *((long *) (((char *) (-3 + (Sbottom_of_stackS))))) = cont_424X;
   ScontS = (Sbottom_of_stackS);
-  goto L17585;}
- L20441: {
+  goto L17592;}
+ L20448: {
   stack_nargs_805X = arg0K0;
   list_args_806X = arg0K1;
   list_arg_count_807X = arg0K2;
@@ -6019,25 +6019,25 @@ long s48_restart(long proc_346X, long nargs_347X)
     goto pop_continuationB;
    pop_continuationB_return_1:
     arg1K0 = (Scode_pointerS);
-    goto L18452;}
+    goto L18459;}
   else {
     if (((ScontS) == (Sbottom_of_stackS))) {
       arg0K0 = (*((long *) (((char *) (-3 + (Sbottom_of_stackS))))));
-      goto L20452;}
+      goto L20459;}
     else {
       arg0K0 = (ScontS);
-      goto L20452;}}}
- L18958: {
+      goto L20459;}}}
+ L18965: {
   okayP_808X = arg2K0;
   key_809X = arg0K1;
   if (okayP_808X) {
     arg0K0 = key_809X;
-    goto L18946;}
+    goto L18953;}
   else {
     ps_error("Scheme48 heap overflow", 0);
     arg0K0 = key_809X;
-    goto L18946;}}
- L18831: {
+    goto L18953;}}
+ L18838: {
   tem_810X = *((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2))));
   StemplateS = tem_810X;
   Scode_pointerS = ((((char *) (-3 + (*((long *) (((char *) (-3 + tem_810X)))))))) + 2);
@@ -6049,288 +6049,288 @@ long s48_restart(long proc_346X, long nargs_347X)
      check_events_return_1:
       v_811X = check_events0_return_value;
       if (v_811X) {
-        goto L18840;}
+        goto L18847;}
       else {
-        goto L18843;}}
+        goto L18850;}}
     else {
-      goto L18840;}}
+      goto L18847;}}
   else {
-    goto L18843;}}
- L19014: {
+    goto L18850;}}
+ L19021: {
   okayP_812X = arg2K0;
   key_813X = arg0K1;
   if (okayP_812X) {
     arg0K0 = key_813X;
-    goto L19001;}
+    goto L19008;}
   else {
     ps_error("Scheme48 heap overflow", 0);
     arg0K0 = key_813X;
-    goto L19001;}}
- L18876: {
+    goto L19008;}}
+ L18883: {
   push_exception_continuationB(5, 4);
   *((long *) (SstackS)) = (*((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2)))));
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16679;}
- L18732: {
+  goto L16686;}
+ L18739: {
   arg0K0 = (2 + (((max_443X)<<1)));
-  goto L18734;}
- L18734: {
+  goto L18741;}
+ L18741: {
   offset_814X = arg0K0;
   Scode_pointerS = ((Scode_pointerS) + offset_814X);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L19764: {
+  goto L18459;}
+ L19771: {
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L18630: {
+  goto L18459;}
+ L18637: {
   delta_815X = arg0K0;
   Scode_pointerS = ((Scode_pointerS) + delta_815X);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L19655: {
+  goto L18459;}
+ L19662: {
   delta_816X = arg0K0;
   Scode_pointerS = ((Scode_pointerS) + delta_816X);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L38237: {
+  goto L18459;}
+ L38244: {
   val_817X = arg0K0;
   SvalS = val_817X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L38249: {
+  goto L18459;}
+ L38256: {
   val_818X = arg0K0;
   SvalS = val_818X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L10635: {
+  goto L18459;}
+ L10642: {
   if ((3 == (3 & x_457X))) {
-    if ((7 == (31 & ((((*((long *) ((((char *) (-3 + x_457X))) + -4))))>>2))))) {
+    if ((8 == (31 & ((((*((long *) ((((char *) (-3 + x_457X))) + -4))))>>2))))) {
       arg0K0 = 5;
-      goto L38249;}
+      goto L38256;}
     else {
-      goto L10641;}}
+      goto L10648;}}
   else {
-    goto L10641;}}
- L28413: {
+    goto L10648;}}
+ L28420: {
   SvalS = 5;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L28414: {
+  goto L18459;}
+ L28421: {
   if ((3 == (3 & n_458X))) {
-    if ((10 == (31 & ((((*((long *) ((((char *) (-3 + n_458X))) + -4))))>>2))))) {
+    if ((11 == (31 & ((((*((long *) ((((char *) (-3 + n_458X))) + -4))))>>2))))) {
       push_exception_continuationB(5, 1);
       *((long *) (SstackS)) = n_458X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 1;
-      goto L16679;}
+      goto L16686;}
     else {
-      goto L28418;}}
+      goto L28425;}}
   else {
-    goto L28418;}}
- L28570: {
+    goto L28425;}}
+ L28577: {
   SvalS = 5;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L28545: {
+  goto L18459;}
+ L28552: {
   if ((3 == (3 & n_459X))) {
-    if ((7 == (31 & ((((*((long *) ((((char *) (-3 + n_459X))) + -4))))>>2))))) {
-      goto L28570;}
+    if ((8 == (31 & ((((*((long *) ((((char *) (-3 + n_459X))) + -4))))>>2))))) {
+      goto L28577;}
     else {
-      goto L28559;}}
+      goto L28566;}}
   else {
-    goto L28559;}}
- L28769: {
+    goto L28566;}}
+ L28776: {
   SvalS = 5;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L28744: {
+  goto L18459;}
+ L28751: {
   if ((3 == (3 & n_460X))) {
-    if ((7 == (31 & ((((*((long *) ((((char *) (-3 + n_460X))) + -4))))>>2))))) {
-      goto L28769;}
+    if ((8 == (31 & ((((*((long *) ((((char *) (-3 + n_460X))) + -4))))>>2))))) {
+      goto L28776;}
     else {
-      goto L28758;}}
+      goto L28765;}}
   else {
-    goto L28758;}}
- L28968: {
+    goto L28765;}}
+ L28975: {
   SvalS = 5;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L28943: {
+  goto L18459;}
+ L28950: {
   if ((3 == (3 & n_461X))) {
-    if ((7 == (31 & ((((*((long *) ((((char *) (-3 + n_461X))) + -4))))>>2))))) {
-      goto L28968;}
+    if ((8 == (31 & ((((*((long *) ((((char *) (-3 + n_461X))) + -4))))>>2))))) {
+      goto L28975;}
     else {
-      goto L28957;}}
+      goto L28964;}}
   else {
-    goto L28957;}}
- L6788: {
+    goto L28964;}}
+ L6795: {
   a_819X = arg0K0;
   if ((b_471X < 0)) {
     arg0K0 = (0 - b_471X);
-    goto L6792;}
+    goto L6799;}
   else {
     arg0K0 = b_471X;
-    goto L6792;}}
- L7069: {
+    goto L6799;}}
+ L7076: {
   a_820X = arg0K0;
   if ((b_478X < 0)) {
     arg0K0 = (0 - b_478X);
-    goto L7073;}
+    goto L7080;}
   else {
     arg0K0 = b_478X;
-    goto L7073;}}
- L31878: {
+    goto L7080;}}
+ L31885: {
   val_821X = arg0K0;
   SvalS = val_821X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L31956: {
+  goto L18459;}
+ L31963: {
   val_822X = arg0K0;
   SvalS = val_822X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L32034: {
+  goto L18459;}
+ L32041: {
   val_823X = arg0K0;
   SvalS = val_823X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L32112: {
+  goto L18459;}
+ L32119: {
   val_824X = arg0K0;
   SvalS = val_824X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L32190: {
+  goto L18459;}
+ L32197: {
   val_825X = arg0K0;
   SvalS = val_825X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L7246: {
+  goto L18459;}
+ L7253: {
   a_826X = arg0K0;
   if ((b_492X < 0)) {
     arg0K0 = (0 - b_492X);
-    goto L7250;}
+    goto L7257;}
   else {
     arg0K0 = b_492X;
-    goto L7250;}}
- L25360: {
+    goto L7257;}}
+ L25367: {
   a_827X = arg0K0;
   n_828X = ((y_494X)>>2);
   if ((n_828X < 0)) {
     arg0K0 = (0 - n_828X);
-    goto L25362;}
+    goto L25369;}
   else {
     arg0K0 = n_828X;
-    goto L25362;}}
- L38506: {
+    goto L25369;}}
+ L38513: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = x_509X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16679;}
- L25646: {
+  goto L16686;}
+ L25653: {
   r_829X = arg0K0;
   if ((536870911 < r_829X)) {
     push_exception_continuationB(5, 1);
     *((long *) (SstackS)) = n_510X;
     SstackS = ((SstackS) + -4);
     arg0K0 = 1;
-    goto L16679;}
+    goto L16686;}
   else {
     SvalS = (((r_829X)<<2));
     Scode_pointerS = ((Scode_pointerS) + 1);
     arg1K0 = (Scode_pointerS);
-    goto L18452;}}
- L25925: {
+    goto L18459;}}
+ L25932: {
   SvalS = (((result_531X)<<2));
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L38594: {
+  goto L18459;}
+ L38601: {
   val_830X = arg0K0;
   SvalS = val_830X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L28188: {
+  goto L18459;}
+ L28195: {
   val_831X = arg0K0;
   SvalS = val_831X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L28161: {
+  goto L18459;}
+ L28168: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = arg2_534X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16679;}
- L28098: {
+  goto L16686;}
+ L28105: {
   val_832X = arg0K0;
   SvalS = val_832X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L28071: {
+  goto L18459;}
+ L28078: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = arg2_536X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16679;}
- L32882: {
+  goto L16686;}
+ L32889: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = (((x_538X)<<2));
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16679;}
- L38623: {
+  goto L16686;}
+ L38630: {
   val_833X = arg0K0;
   SvalS = val_833X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L38637: {
+  goto L18459;}
+ L38644: {
   value_834X = arg0K0;
   SvalS = value_834X;
   Scode_pointerS = ((Scode_pointerS) + 2);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L21243: {
+  goto L18459;}
+ L21250: {
   push_exception_continuationB(5, 2);
   *((long *) (SstackS)) = stob_542X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = (((type_543X)<<2));
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16679;}
- L21315: {
+  goto L16686;}
+ L21322: {
   type_835X = *((unsigned char *) ((Scode_pointerS) + 2));
   len_836X = ((len_544X)<<2);
   addr_837X = ALLOCATE_SPACE(type_835X, (4 + len_836X));
   *((long *) addr_837X) = (2 + (((((((len_836X)<<6)) + type_835X))<<2)));
   new_838X = 3 + (((long) (addr_837X + 4)));
   if ((len_544X < 1)) {
-    goto L21350;}
+    goto L21357;}
   else {
     *((long *) ((((char *) (-3 + new_838X))) + (-4 + (((len_544X)<<2))))) = (SvalS);
     arg0K0 = (-2 + len_544X);
-    goto L21334;}}
- L21497: {
+    goto L21341;}}
+ L21504: {
   type_839X = *((unsigned char *) ((Scode_pointerS) + 1));
   len_840X = ((len_549X)<<2);
   addr_841X = ALLOCATE_SPACE(type_839X, (4 + len_840X));
@@ -6341,8 +6341,8 @@ long s48_restart(long proc_346X, long nargs_347X)
   SstackS = ((SstackS) + 4);
   rest_list_844X = *((long *) (SstackS));
   arg0K0 = (-1 + stack_nargs_843X);
-  goto L21519;}
- L21707: {
+  goto L21526;}
+ L21714: {
   push_exception_continuationB(5, 3);
   *((long *) (SstackS)) = stob_554X;
   SstackS = ((SstackS) + -4);
@@ -6351,8 +6351,8 @@ long s48_restart(long proc_346X, long nargs_347X)
   *((long *) (SstackS)) = (((offset_555X)<<2));
   SstackS = ((SstackS) + -4);
   arg0K0 = 3;
-  goto L16679;}
- L21810: {
+  goto L16686;}
+ L21817: {
   push_exception_continuationB(5, 3);
   *((long *) (SstackS)) = stob_557X;
   SstackS = ((SstackS) + -4);
@@ -6363,8 +6363,8 @@ long s48_restart(long proc_346X, long nargs_347X)
   *((long *) (SstackS)) = value_558X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 4;
-  goto L16679;}
- L21995: {
+  goto L16686;}
+ L22002: {
   push_exception_continuationB(5, 2);
   *((long *) (SstackS)) = (((type_564X)<<2));
   SstackS = ((SstackS) + -4);
@@ -6373,8 +6373,8 @@ long s48_restart(long proc_346X, long nargs_347X)
   *((long *) (SstackS)) = init_563X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 3;
-  goto L16679;}
- L22013: {
+  goto L16686;}
+ L22020: {
   okayP_845X = arg2K0;
   init_846X = arg0K1;
   if (okayP_845X) {
@@ -6383,7 +6383,7 @@ long s48_restart(long proc_346X, long nargs_347X)
     *((long *) addr_848X) = (2 + (((((((len_847X)<<6)) + type_564X))<<2)));
     value_849X = 3 + (((long) (addr_848X + 4)));
     arg0K0 = (-1 + len_565X);
-    goto L22042;}
+    goto L22049;}
   else {
     push_exception_continuationB(8, 2);
     *((long *) (SstackS)) = (((type_564X)<<2));
@@ -6393,8 +6393,8 @@ long s48_restart(long proc_346X, long nargs_347X)
     *((long *) (SstackS)) = init_846X;
     SstackS = ((SstackS) + -4);
     arg0K0 = 3;
-    goto L16679;}}
- L22291: {
+    goto L16686;}}
+ L22298: {
   push_exception_continuationB(7, 2);
   *((long *) (SstackS)) = stob_571X;
   SstackS = ((SstackS) + -4);
@@ -6403,8 +6403,8 @@ long s48_restart(long proc_346X, long nargs_347X)
   *((long *) (SstackS)) = index_572X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 3;
-  goto L16679;}
- L22268: {
+  goto L16686;}
+ L22275: {
   push_exception_continuationB(5, 2);
   *((long *) (SstackS)) = stob_571X;
   SstackS = ((SstackS) + -4);
@@ -6413,8 +6413,8 @@ long s48_restart(long proc_346X, long nargs_347X)
   *((long *) (SstackS)) = index_572X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 3;
-  goto L16679;}
- L22531: {
+  goto L16686;}
+ L22538: {
   push_exception_continuationB(7, 2);
   *((long *) (SstackS)) = stob_577X;
   SstackS = ((SstackS) + -4);
@@ -6425,8 +6425,8 @@ long s48_restart(long proc_346X, long nargs_347X)
   *((long *) (SstackS)) = value_578X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 4;
-  goto L16679;}
- L22506: {
+  goto L16686;}
+ L22513: {
   push_exception_continuationB(5, 2);
   *((long *) (SstackS)) = stob_577X;
   SstackS = ((SstackS) + -4);
@@ -6437,44 +6437,44 @@ long s48_restart(long proc_346X, long nargs_347X)
   *((long *) (SstackS)) = value_578X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 4;
-  goto L16679;}
- L26096: {
+  goto L16686;}
+ L26103: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = (((len_584X)<<2));
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = (((init_585X)<<2));
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16679;}
- L26188: {
-  addr_850X = ALLOCATE_SPACE(17, (4 + len_584X));
-  *((long *) addr_850X) = (70 + (((len_584X)<<8)));
+  goto L16686;}
+ L26195: {
+  addr_850X = ALLOCATE_SPACE(18, (4 + len_584X));
+  *((long *) addr_850X) = (74 + (((len_584X)<<8)));
   vector_851X = 3 + (((long) (addr_850X + 4)));
   arg0K0 = (-1 + len_584X);
-  goto L26137;}
- L36449: {
+  goto L26144;}
+ L36456: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16679;}
- L32988: {
+  goto L16686;}
+ L32995: {
   push_exception_continuationB(7, 1);
   *((long *) (SstackS)) = arg2_591X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = (((index_592X)<<2));
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16679;}
- L36025: {
+  goto L16686;}
+ L36032: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = arg2_591X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16679;}
- L29936: {
+  goto L16686;}
+ L29943: {
   push_exception_continuationB(7, 1);
   *((long *) (SstackS)) = arg3_595X;
   SstackS = ((SstackS) + -4);
@@ -6483,8 +6483,8 @@ long s48_restart(long proc_346X, long nargs_347X)
   *((long *) (SstackS)) = (((Kchar_597X)<<2));
   SstackS = ((SstackS) + -4);
   arg0K0 = 3;
-  goto L16679;}
- L29915: {
+  goto L16686;}
+ L29922: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = arg3_595X;
   SstackS = ((SstackS) + -4);
@@ -6493,8 +6493,8 @@ long s48_restart(long proc_346X, long nargs_347X)
   *((long *) (SstackS)) = (((Kchar_597X)<<2));
   SstackS = ((SstackS) + -4);
   arg0K0 = 3;
-  goto L16679;}
- L34437: {
+  goto L16686;}
+ L34444: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = arg3_595X;
   SstackS = ((SstackS) + -4);
@@ -6503,54 +6503,54 @@ long s48_restart(long proc_346X, long nargs_347X)
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 3;
-  goto L16679;}
- L26330: {
+  goto L16686;}
+ L26337: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = (((len_600X)<<2));
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = (9 + ((((init_601X))<<8)));
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16679;}
- L26422: {
+  goto L16686;}
+ L26429: {
   len_852X = 1 + len_600X;
-  addr_853X = ALLOCATE_SPACE(16, (4 + len_852X));
-  *((long *) addr_853X) = (66 + (((len_852X)<<8)));
+  addr_853X = ALLOCATE_SPACE(17, (4 + len_852X));
+  *((long *) addr_853X) = (70 + (((len_852X)<<8)));
   string_854X = 3 + (((long) (addr_853X + 4)));
   *((unsigned char *) ((((char *) (-3 + string_854X))) + len_600X)) = 0;
   arg0K0 = (-1 + len_600X);
-  goto L26371;}
- L33069: {
+  goto L26378;}
+ L33076: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = arg2_599X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16679;}
- L36499: {
+  goto L16686;}
+ L36506: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16679;}
- L33132: {
+  goto L16686;}
+ L33139: {
   push_exception_continuationB(7, 1);
   *((long *) (SstackS)) = arg2_607X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = (((index_608X)<<2));
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16679;}
- L36121: {
+  goto L16686;}
+ L36128: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = arg2_607X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16679;}
- L30091: {
+  goto L16686;}
+ L30098: {
   push_exception_continuationB(7, 1);
   *((long *) (SstackS)) = arg3_611X;
   SstackS = ((SstackS) + -4);
@@ -6559,8 +6559,8 @@ long s48_restart(long proc_346X, long nargs_347X)
   *((long *) (SstackS)) = (9 + ((((Kchar_613X))<<8)));
   SstackS = ((SstackS) + -4);
   arg0K0 = 3;
-  goto L16679;}
- L30070: {
+  goto L16686;}
+ L30077: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = arg3_611X;
   SstackS = ((SstackS) + -4);
@@ -6569,8 +6569,8 @@ long s48_restart(long proc_346X, long nargs_347X)
   *((long *) (SstackS)) = (9 + ((((Kchar_613X))<<8)));
   SstackS = ((SstackS) + -4);
   arg0K0 = 3;
-  goto L16679;}
- L34563: {
+  goto L16686;}
+ L34570: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = arg3_611X;
   SstackS = ((SstackS) + -4);
@@ -6579,126 +6579,126 @@ long s48_restart(long proc_346X, long nargs_347X)
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 3;
-  goto L16679;}
- L24500: {
+  goto L16686;}
+ L24507: {
   obj_855X = SvalS;
   if ((3 == (3 & obj_855X))) {
-    if ((16 == (31 & ((((*((long *) ((((char *) (-3 + obj_855X))) + -4))))>>2))))) {
+    if ((17 == (31 & ((((*((long *) ((((char *) (-3 + obj_855X))) + -4))))>>2))))) {
       table_856X = Sthe_symbol_tableS;
       string_857X = SvalS;
       n_858X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + string_857X))) + -4))))>>8));
       arg0K0 = 0;
       arg0K1 = 0;
-      goto L13347;}
+      goto L13354;}
     else {
-      goto L24510;}}
+      goto L24517;}}
   else {
-    goto L24510;}}
- L34110: {
+    goto L24517;}}
+ L34117: {
   val_859X = arg0K0;
   SvalS = val_859X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L34091: {
+  goto L18459;}
+ L34098: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16679;}
- L29678: {
+  goto L16686;}
+ L29685: {
   if ((1 == (SvalS))) {
     addr_860X = (((char *) (-3 + arg2_621X))) + 4;
     S48_WRITE_BARRIER(arg2_621X, addr_860X, 273);
     *((long *) addr_860X) = 273;
-    goto L29684;}
+    goto L29691;}
   else {
     if ((17 == (255 & (*((long *) ((((char *) (-3 + arg2_621X))) + 4)))))) {
       addr_861X = (((char *) (-3 + arg2_621X))) + 4;
       S48_WRITE_BARRIER(arg2_621X, addr_861X, 529);
       *((long *) addr_861X) = 529;
-      goto L29684;}
+      goto L29691;}
     else {
-      goto L29684;}}}
- L29685: {
+      goto L29691;}}}
+ L29692: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = arg2_621X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16679;}
- L38709: {
+  goto L16686;}
+ L38716: {
   val_862X = arg0K0;
   SvalS = val_862X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L33214: {
+  goto L18459;}
+ L33221: {
   SvalS = x_624X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L33265: {
+  goto L18459;}
+ L33272: {
   okayP_863X = arg2K0;
   key_864X = arg0K1;
   if (okayP_863X) {
     arg0K0 = key_864X;
-    goto L33231;}
+    goto L33238;}
   else {
     ps_error("Scheme48 heap overflow", 0);
     arg0K0 = key_864X;
-    goto L33231;}}
- L34681: {
+    goto L33238;}}
+ L34688: {
   okayP_865X = arg2K0;
   key_866X = arg0K1;
   if (okayP_865X) {
     arg0K0 = key_866X;
-    goto L34663;}
+    goto L34670;}
   else {
     ps_error("Scheme48 heap overflow", 0);
     arg0K0 = key_866X;
-    goto L34663;}}
- L37553: {
+    goto L34670;}}
+ L37560: {
   okayP_867X = arg2K0;
   key_868X = arg0K1;
   if (okayP_867X) {
     arg0K0 = key_868X;
-    goto L37483;}
+    goto L37490;}
   else {
     ps_error("Scheme48 heap overflow", 0);
     arg0K0 = key_868X;
-    goto L37483;}}
- L37813: {
+    goto L37490;}}
+ L37820: {
   okayP_869X = arg2K0;
   key_870X = arg0K1;
   if (okayP_869X) {
     arg0K0 = key_870X;
-    goto L37755;}
+    goto L37762;}
   else {
     ps_error("Scheme48 heap overflow", 0);
     arg0K0 = key_870X;
-    goto L37755;}}
- L34166: {
+    goto L37762;}}
+ L34173: {
   okayP_871X = arg2K0;
   key_872X = arg0K1;
   if (okayP_871X) {
     arg0K0 = key_872X;
-    goto L34148;}
+    goto L34155;}
   else {
     ps_error("Scheme48 heap overflow", 0);
     arg0K0 = key_872X;
-    goto L34148;}}
- L33336: {
+    goto L34155;}}
+ L33343: {
   val_873X = arg0K0;
   SvalS = val_873X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L8186: {
+  goto L18459;}
+ L8193: {
   arg0K0 = (*((long *) ((((char *) (-3 + channel_641X))) + 16)));
-  goto L33336;}
- L8192: {
+  goto L33343;}
+ L8199: {
   ch_874X = arg0K0;
   prev_875X = arg0K1;
   if ((1 == ch_874X)) {
@@ -6707,58 +6707,58 @@ long s48_restart(long proc_346X, long nargs_347X)
     *((long *) addr_876X) = 1;
     n_877X = ps_abort_fd_op(((((*((long *) ((((char *) (-3 + channel_641X))) + 8))))>>2)));
     arg0K0 = (((n_877X)<<2));
-    goto L33336;}
+    goto L33343;}
   else {
     if ((ch_874X == channel_641X)) {
       y_878X = Spending_channels_tailS;
       if ((ch_874X == y_878X)) {
         Spending_channels_tailS = prev_875X;
-        goto L8216;}
+        goto L8223;}
       else {
-        goto L8216;}}
+        goto L8223;}}
     else {
       arg0K0 = (*((long *) ((((char *) (-3 + ch_874X))) + 12)));
       arg0K1 = ch_874X;
-      goto L8192;}}}
- L33319: {
+      goto L8199;}}}
+ L33326: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16679;}
- L14791: {
+  goto L16686;}
+ L14798: {
   arg0K0 = (-1 + (Snumber_of_channelsS));
   arg0K1 = 25;
-  goto L14798;}
- L34782: {
+  goto L14805;}
+ L34789: {
   okayP_879X = arg2K0;
   key_880X = arg0K1;
   if (okayP_879X) {
     arg0K0 = key_880X;
-    goto L34736;}
+    goto L34743;}
   else {
     ps_error("Scheme48 heap overflow", 0);
     arg0K0 = key_880X;
-    goto L34736;}}
- L35614: {
+    goto L34743;}}
+ L35621: {
   i_881X = arg0K0;
   h_882X = arg0K1;
   if ((i_881X < n_659X)) {
     arg0K0 = (1 + i_881X);
     arg0K1 = (h_882X + (((*((unsigned char *) ((((char *) (-3 + x_658X))) + i_881X))))));
-    goto L35614;}
+    goto L35621;}
   else {
     SvalS = (((h_882X)<<2));
     Scode_pointerS = ((Scode_pointerS) + 1);
     arg1K0 = (Scode_pointerS);
-    goto L18452;}}
- L35591: {
+    goto L18459;}}
+ L35598: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16679;}
- L38777: {
+  goto L16686;}
+ L38784: {
   SstackS = ((SstackS) + 4);
   stob_883X = *((long *) (SstackS));
   proc_884X = SvalS;
@@ -6780,33 +6780,33 @@ long s48_restart(long proc_346X, long nargs_347X)
         SvalS = 13;
         Scode_pointerS = ((Scode_pointerS) + 1);
         arg1K0 = (Scode_pointerS);
-        goto L18452;}
+        goto L18459;}
       else {
-        goto L30697;}}
+        goto L30704;}}
     else {
-      goto L30697;}}
+      goto L30704;}}
   else {
-    goto L30697;}}
- L33427: {
+    goto L30704;}}
+ L33434: {
   firstP_890X = arg2K0;
   vector_891X = s48_find_all(type_669X);
   if ((1 == vector_891X)) {
     if (firstP_890X) {
       collect_saving_temps(0, 0, &v_892X);
       arg2K0 = 0;
-      goto L33427;}
+      goto L33434;}
     else {
       push_exception_continuationB(8, 1);
       *((long *) (SstackS)) = (((type_669X)<<2));
       SstackS = ((SstackS) + -4);
       arg0K0 = 1;
-      goto L16679;}}
+      goto L16686;}}
   else {
     SvalS = vector_891X;
     Scode_pointerS = ((Scode_pointerS) + 1);
     arg1K0 = (Scode_pointerS);
-    goto L18452;}}
- L38827: {
+    goto L18459;}}
+ L38834: {
   firstP_893X = arg2K0;
   type_894X = arg0K1;
   vector_895X = s48_find_all_records(type_894X);
@@ -6815,36 +6815,36 @@ long s48_restart(long proc_346X, long nargs_347X)
       value_896X = collect_saving_temps(type_894X, 0, &v_897X);
       arg2K0 = 0;
       arg0K1 = value_896X;
-      goto L38827;}
+      goto L38834;}
     else {
       push_exception_continuationB(8, 1);
       *((long *) (SstackS)) = type_894X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 1;
-      goto L16679;}}
+      goto L16686;}}
   else {
     SvalS = vector_895X;
     Scode_pointerS = ((Scode_pointerS) + 1);
     arg1K0 = (Scode_pointerS);
-    goto L18452;}}
- L20584: {
+    goto L18459;}}
+ L20591: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16679;}
- L19508: {
+  goto L16686;}
+ L19515: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16679;}
- L38868: {
+  goto L16686;}
+ L38875: {
   SvalS = (((old_678X)<<2));
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L18466: {
+  goto L18459;}
+ L18473: {
   SstackS = ((SstackS) + 4);
   pc_898X = *((long *) (SstackS));
   SstackS = ((SstackS) + 4);
@@ -6854,29 +6854,29 @@ long s48_restart(long proc_346X, long nargs_347X)
   SstackS = ((SstackS) + 4);
   SvalS = (*((long *) (SstackS)));
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L37373: {
+  goto L18459;}
+ L37380: {
   x_900X = s48_schedule_alarm_interrupt((((p_681X)>>2)));
   SvalS = (((x_900X)<<2));
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L34310: {
+  goto L18459;}
+ L34317: {
   if ((1 == (SvalS))) {
     arg2K0 = 0;
-    goto L34314;}
+    goto L34321;}
   else {
     arg2K0 = 1;
-    goto L34314;}}
- L34315: {
+    goto L34321;}}
+ L34322: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = arg2_682X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16679;}
- L22803: {
+  goto L16686;}
+ L22810: {
   rest_list_901X = arg0K0;
   if ((25 == rest_list_901X)) {
     proc_902X = *((long *) ((SstackS) + (((nargs_684X)<<2))));
@@ -6885,61 +6885,61 @@ long s48_restart(long proc_346X, long nargs_347X)
     *((long *) (SstackS)) = (10 + (((nargs_684X)<<10)));
     SstackS = ((SstackS) + -4);
     if ((3 == (3 & name_903X))) {
-      if ((16 == (31 & ((((*((long *) ((((char *) (-3 + name_903X))) + -4))))>>2))))) {
+      if ((17 == (31 & ((((*((long *) ((((char *) (-3 + name_903X))) + -4))))>>2))))) {
         if ((3 == (3 & proc_902X))) {
-          if ((17 == (31 & ((((*((long *) ((((char *) (-3 + proc_902X))) + -4))))>>2))))) {
+          if ((18 == (31 & ((((*((long *) ((((char *) (-3 + proc_902X))) + -4))))>>2))))) {
             if ((4 == ((long)(((unsigned long)(*((long *) ((((char *) (-3 + proc_902X))) + -4))))>>8)))) {
               result_905X = s48_external_call(proc_902X, name_903X, (-2 + nargs_684X), args_904X);
               if ((Sexternal_exceptionPS)) {
                 Sexternal_exceptionPS = 0;
                 arg0K0 = (Sexternal_exception_nargsS);
-                goto L16679;}
+                goto L16686;}
               else {
                 SvalS = result_905X;
                 Scode_pointerS = ((Scode_pointerS) + 1);
                 arg1K0 = (Scode_pointerS);
-                goto L18452;}}
+                goto L18459;}}
             else {
-              goto L22863;}}
+              goto L22870;}}
           else {
-            goto L22863;}}
+            goto L22870;}}
         else {
-          goto L22863;}}
+          goto L22870;}}
       else {
-        goto L22863;}}
+        goto L22870;}}
     else {
-      goto L22863;}}
+      goto L22870;}}
   else {
     *((long *) (SstackS)) = (*((long *) (((char *) (-3 + rest_list_901X)))));
     SstackS = ((SstackS) + -4);
     arg0K0 = (*((long *) ((((char *) (-3 + rest_list_901X))) + 4)));
-    goto L22803;}}
- L33536: {
+    goto L22810;}}
+ L33543: {
   okayP_906X = arg2K0;
   key_907X = arg0K1;
   if (okayP_906X) {
     arg0K0 = key_907X;
-    goto L33502;}
+    goto L33509;}
   else {
     ps_error("Scheme48 heap overflow", 0);
     arg0K0 = key_907X;
-    goto L33502;}}
- L23927: {
+    goto L33509;}}
+ L23934: {
   if ((1 == (SvalS))) {
     arg0K0 = (Sexported_bindingsS);
-    goto L23960;}
+    goto L23967;}
   else {
     arg0K0 = (Simported_bindingsS);
-    goto L23960;}}
- L23932: {
+    goto L23967;}}
+ L23939: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = arg2_690X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16679;}
- L35525: {
+  goto L16686;}
+ L35532: {
   option_908X = arg0K0;
   seconds_909X = arg0K1;
   mseconds_910X = arg0K2;
@@ -6952,41 +6952,41 @@ long s48_restart(long proc_346X, long nargs_347X)
     *((long *) (SstackS)) = (((mseconds_910X)<<2));
     SstackS = ((SstackS) + -4);
     arg0K0 = 3;
-    goto L16679;}
+    goto L16686;}
   else {
     SvalS = (((((1000 * seconds_909X) + mseconds_910X))<<2));
     Scode_pointerS = ((Scode_pointerS) + 1);
     arg1K0 = (Scode_pointerS);
-    goto L18452;}}
- L38928: {
+    goto L18459;}}
+ L38935: {
   s48_Scallback_return_stack_blockS = arg2_704X;
   return x_705X;}
- L27864: {
+ L27871: {
   val_911X = arg0K0;
   SvalS = val_911X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L27831: {
+  goto L18459;}
+ L27838: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = arg2_706X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16679;}
- L33745: {
+  goto L16686;}
+ L33752: {
   SstackS = ((SstackS) + 4);
   arg2_912X = *((long *) (SstackS));
   if ((0 == (3 & (SvalS)))) {
     n_913X = (((SvalS))>>2);
     if ((3 == (3 & arg2_912X))) {
       if ((0 == (31 & ((((*((long *) ((((char *) (-3 + arg2_912X))) + -4))))>>2))))) {
-        goto L27391;}
+        goto L27398;}
       else {
-        goto L27343;}}
+        goto L27350;}}
     else {
-      goto L27343;}}
+      goto L27350;}}
   else {
     push_exception_continuationB(5, 1);
     *((long *) (SstackS)) = arg2_912X;
@@ -6994,8 +6994,8 @@ long s48_restart(long proc_346X, long nargs_347X)
     *((long *) (SstackS)) = (SvalS);
     SstackS = ((SstackS) + -4);
     arg0K0 = 2;
-    goto L16679;}}
- L29333: {
+    goto L16686;}}
+ L29340: {
   list_914X = arg0K0;
   slow_915X = arg0K1;
   move_slowP_916X = arg2K2;
@@ -7003,7 +7003,7 @@ long s48_restart(long proc_346X, long nargs_347X)
     SvalS = 1;
     Scode_pointerS = ((Scode_pointerS) + 1);
     arg1K0 = (Scode_pointerS);
-    goto L18452;}
+    goto L18459;}
   else {
     if ((3 == (3 & list_914X))) {
       if ((0 == (31 & ((((*((long *) ((((char *) (-3 + list_914X))) + -4))))>>2))))) {
@@ -7014,7 +7014,7 @@ long s48_restart(long proc_346X, long nargs_347X)
               SvalS = head_917X;
               Scode_pointerS = ((Scode_pointerS) + 1);
               arg1K0 = (Scode_pointerS);
-              goto L18452;}
+              goto L18459;}
             else {
               list_918X = *((long *) ((((char *) (-3 + list_914X))) + 4));
               if ((list_918X == slow_915X)) {
@@ -7024,18 +7024,18 @@ long s48_restart(long proc_346X, long nargs_347X)
                 *((long *) (SstackS)) = list_715X;
                 SstackS = ((SstackS) + -4);
                 arg0K0 = 2;
-                goto L16679;}
+                goto L16686;}
               else {
                 if (move_slowP_916X) {
                   arg0K0 = list_918X;
                   arg0K1 = (*((long *) ((((char *) (-3 + slow_915X))) + 4)));
                   arg2K2 = 0;
-                  goto L29333;}
+                  goto L29340;}
                 else {
                   arg0K0 = list_918X;
                   arg0K1 = slow_915X;
                   arg2K2 = 1;
-                  goto L29333;}}}}
+                  goto L29340;}}}}
           else {
             push_exception_continuationB(5, 1);
             *((long *) (SstackS)) = thing_714X;
@@ -7043,7 +7043,7 @@ long s48_restart(long proc_346X, long nargs_347X)
             *((long *) (SstackS)) = list_715X;
             SstackS = ((SstackS) + -4);
             arg0K0 = 2;
-            goto L16679;}}
+            goto L16686;}}
         else {
           push_exception_continuationB(5, 1);
           *((long *) (SstackS)) = thing_714X;
@@ -7051,7 +7051,7 @@ long s48_restart(long proc_346X, long nargs_347X)
           *((long *) (SstackS)) = list_715X;
           SstackS = ((SstackS) + -4);
           arg0K0 = 2;
-          goto L16679;}}
+          goto L16686;}}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = thing_714X;
@@ -7059,7 +7059,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = list_715X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16679;}}
+        goto L16686;}}
     else {
       push_exception_continuationB(5, 1);
       *((long *) (SstackS)) = thing_714X;
@@ -7067,8 +7067,8 @@ long s48_restart(long proc_346X, long nargs_347X)
       *((long *) (SstackS)) = list_715X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 2;
-      goto L16679;}}}
- L27537: {
+      goto L16686;}}}
+ L27544: {
   push_exception_continuationB(7, 1);
   *((long *) (SstackS)) = arg3_717X;
   SstackS = ((SstackS) + -4);
@@ -7077,8 +7077,8 @@ long s48_restart(long proc_346X, long nargs_347X)
   *((long *) (SstackS)) = (((index_718X)<<2));
   SstackS = ((SstackS) + -4);
   arg0K0 = 3;
-  goto L16679;}
- L27557: {
+  goto L16686;}
+ L27564: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = arg3_717X;
   SstackS = ((SstackS) + -4);
@@ -7087,8 +7087,8 @@ long s48_restart(long proc_346X, long nargs_347X)
   *((long *) (SstackS)) = (((index_718X)<<2));
   SstackS = ((SstackS) + -4);
   arg0K0 = 3;
-  goto L16679;}
- L30838: {
+  goto L16686;}
+ L30845: {
   push_exception_continuationB(7, 1);
   *((long *) (SstackS)) = arg4_722X;
   SstackS = ((SstackS) + -4);
@@ -7099,8 +7099,8 @@ long s48_restart(long proc_346X, long nargs_347X)
   *((long *) (SstackS)) = value_724X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 4;
-  goto L16679;}
- L30860: {
+  goto L16686;}
+ L30867: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = arg4_722X;
   SstackS = ((SstackS) + -4);
@@ -7111,29 +7111,29 @@ long s48_restart(long proc_346X, long nargs_347X)
   *((long *) (SstackS)) = value_724X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 4;
-  goto L16679;}
- L31089: {
-  if ((3 == (3 & arg5_730X))) {
-    if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg5_730X))) + -4))))>>2))))) {
-      goto L31102;}
-    else {
-      goto L31097;}}
-  else {
-    goto L31097;}}
- L31084: {
+  goto L16686;}
+ L31096: {
   if ((3 == (3 & arg5_730X))) {
     if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg5_730X))) + -4))))>>2))))) {
-      goto L31089;}
+      goto L31109;}
     else {
-      goto L31156;}}
+      goto L31104;}}
   else {
-    goto L31156;}}
- L23059: {
+    goto L31104;}}
+ L31091: {
+  if ((3 == (3 & arg5_730X))) {
+    if ((18 == (31 & ((((*((long *) ((((char *) (-3 + arg5_730X))) + -4))))>>2))))) {
+      goto L31096;}
+    else {
+      goto L31163;}}
+  else {
+    goto L31163;}}
+ L23066: {
   port_919X = arg0K0;
   if ((3 == (3 & port_919X))) {
-    if ((6 == (31 & ((((*((long *) ((((char *) (-3 + port_919X))) + -4))))>>2))))) {
+    if ((7 == (31 & ((((*((long *) ((((char *) (-3 + port_919X))) + -4))))>>2))))) {
       if ((0 == (4 & ((((*((long *) ((((char *) (-3 + port_919X))) + 4))))>>2))))) {
-        goto L23119;}
+        goto L23126;}
       else {
         p_920X = *((long *) ((((char *) (-3 + port_919X))) + 24));
         p_921X = *((long *) ((((char *) (-3 + port_919X))) + 28));
@@ -7141,10 +7141,10 @@ long s48_restart(long proc_346X, long nargs_347X)
         i_923X = ((p_920X)>>2);
         x_924X = *((long *) ((((char *) (-3 + port_919X))) + 12));
         if ((5 == x_924X)) {
-          goto L23099;}
+          goto L23106;}
         else {
           if ((i_923X == (((p_921X)>>2)))) {
-            goto L23099;}
+            goto L23106;}
           else {
             val_925X = 4 + (((i_923X)<<2));
             addr_926X = (((char *) (-3 + port_919X))) + 24;
@@ -7153,17 +7153,17 @@ long s48_restart(long proc_346X, long nargs_347X)
             SvalS = (9 + ((((((*((unsigned char *) ((((char *) (-3 + b_922X))) + i_923X))))))<<8)));
             Scode_pointerS = ((Scode_pointerS) + 2);
             arg1K0 = (Scode_pointerS);
-            goto L18452;}}}}
+            goto L18459;}}}}
     else {
-      goto L23119;}}
+      goto L23126;}}
   else {
-    goto L23119;}}
- L23279: {
+    goto L23126;}}
+ L23286: {
   port_927X = arg0K0;
   if ((3 == (3 & port_927X))) {
-    if ((6 == (31 & ((((*((long *) ((((char *) (-3 + port_927X))) + -4))))>>2))))) {
+    if ((7 == (31 & ((((*((long *) ((((char *) (-3 + port_927X))) + -4))))>>2))))) {
       if ((0 == (4 & ((((*((long *) ((((char *) (-3 + port_927X))) + 4))))>>2))))) {
-        goto L23339;}
+        goto L23346;}
       else {
         p_928X = *((long *) ((((char *) (-3 + port_927X))) + 24));
         p_929X = *((long *) ((((char *) (-3 + port_927X))) + 28));
@@ -7171,37 +7171,37 @@ long s48_restart(long proc_346X, long nargs_347X)
         i_931X = ((p_928X)>>2);
         x_932X = *((long *) ((((char *) (-3 + port_927X))) + 12));
         if ((5 == x_932X)) {
-          goto L23319;}
+          goto L23326;}
         else {
           if ((i_931X == (((p_929X)>>2)))) {
-            goto L23319;}
+            goto L23326;}
           else {
             SvalS = (9 + ((((((*((unsigned char *) ((((char *) (-3 + b_930X))) + i_931X))))))<<8)));
             Scode_pointerS = ((Scode_pointerS) + 2);
             arg1K0 = (Scode_pointerS);
-            goto L18452;}}}}
+            goto L18459;}}}}
     else {
-      goto L23339;}}
+      goto L23346;}}
   else {
-    goto L23339;}}
- L23492: {
+    goto L23346;}}
+ L23499: {
   Kchar_933X = arg0K0;
   port_934X = arg0K1;
   if ((9 == (255 & Kchar_933X))) {
     if ((3 == (3 & port_934X))) {
-      if ((6 == (31 & ((((*((long *) ((((char *) (-3 + port_934X))) + -4))))>>2))))) {
+      if ((7 == (31 & ((((*((long *) ((((char *) (-3 + port_934X))) + -4))))>>2))))) {
         if ((0 == (8 & ((((*((long *) ((((char *) (-3 + port_934X))) + 4))))>>2))))) {
-          goto L23553;}
+          goto L23560;}
         else {
           p_935X = *((long *) ((((char *) (-3 + port_934X))) + 24));
           b_936X = *((long *) ((((char *) (-3 + port_934X))) + 20));
           i_937X = ((p_935X)>>2);
           x_938X = *((long *) ((((char *) (-3 + port_934X))) + 12));
           if ((5 == x_938X)) {
-            goto L23535;}
+            goto L23542;}
           else {
             if ((i_937X == ((long)(((unsigned long)(*((long *) ((((char *) (-3 + b_936X))) + -4))))>>8)))) {
-              goto L23535;}
+              goto L23542;}
             else {
               val_939X = 4 + (((i_937X)<<2));
               addr_940X = (((char *) (-3 + port_934X))) + 24;
@@ -7211,34 +7211,34 @@ long s48_restart(long proc_346X, long nargs_347X)
               SvalS = 13;
               Scode_pointerS = ((Scode_pointerS) + 2);
               arg1K0 = (Scode_pointerS);
-              goto L18452;}}}}
+              goto L18459;}}}}
       else {
-        goto L23553;}}
+        goto L23560;}}
     else {
-      goto L23553;}}
+      goto L23560;}}
   else {
-    goto L23553;}}
- L29586: {
+    goto L23560;}}
+ L29593: {
   stuff_941X = arg0K0;
   if ((3 == (3 & stuff_941X))) {
     if ((0 == (31 & ((((*((long *) ((((char *) (-3 + stuff_941X))) + -4))))>>2))))) {
       thing_942X = *((long *) (((char *) (-3 + stuff_941X))));
       if ((0 == (3 & thing_942X))) {
         ps_write_integer((((thing_942X)>>2)), out_742X);
-        goto L29592;}
+        goto L29599;}
       else {
         if ((9 == (255 & thing_942X))) {
           ps_write_string("#\\", out_742X);
           { long ignoreXX;
           PS_WRITE_CHAR(((((thing_942X)>>8))), out_742X, ignoreXX) }
-          goto L29592;}
+          goto L29599;}
         else {
           if ((3 == (3 & thing_942X))) {
-            if ((8 == (31 & ((((*((long *) ((((char *) (-3 + thing_942X))) + -4))))>>2))))) {
+            if ((9 == (31 & ((((*((long *) ((((char *) (-3 + thing_942X))) + -4))))>>2))))) {
               if ((0 < ((((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + thing_942X))) + -4))))>>8))))>>2)))) {
                 type_943X = *((long *) (((char *) (-3 + thing_942X))));
                 if ((3 == (3 & type_943X))) {
-                  if ((8 == (31 & ((((*((long *) ((((char *) (-3 + type_943X))) + -4))))>>2))))) {
+                  if ((9 == (31 & ((((*((long *) ((((char *) (-3 + type_943X))) + -4))))>>2))))) {
                     if ((2 < ((((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + type_943X))) + -4))))>>8))))>>2)))) {
                       obj_944X = *((long *) ((((char *) (-3 + type_943X))) + 8));
                       if ((3 == (3 & obj_944X))) {
@@ -7247,74 +7247,74 @@ long s48_restart(long proc_346X, long nargs_347X)
                           ps_write_string((((char *)(((char *) (-3 + (*((long *) (((char *) (-3 + (*((long *) ((((char *) (-3 + (*((long *) (((char *) (-3 + thing_942X)))))))) + 8))))))))))))), out_742X);
                           { long ignoreXX;
                           PS_WRITE_CHAR(125, out_742X, ignoreXX) }
-                          goto L29592;}
+                          goto L29599;}
                         else {
-                          goto L11664;}}
+                          goto L11671;}}
                       else {
-                        goto L11664;}}
+                        goto L11671;}}
                     else {
-                      goto L11664;}}
+                      goto L11671;}}
                   else {
-                    goto L11664;}}
+                    goto L11671;}}
                 else {
-                  goto L11664;}}
+                  goto L11671;}}
               else {
-                goto L11664;}}
+                goto L11671;}}
             else {
-              goto L11664;}}
+              goto L11671;}}
           else {
-            goto L11664;}}}}
+            goto L11671;}}}}
     else {
-      goto L29577;}}
+      goto L29584;}}
   else {
-    goto L29577;}}
- L16738: {
+    goto L29584;}}
+ L16745: {
   SvalS = (*((long *) ((((char *) (-3 + (Sexception_handlersS)))) + (((opcode_744X)<<2)))));
   obj_945X = SvalS;
   if ((3 == (3 & obj_945X))) {
     if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_945X))) + -4))))>>2))))) {
-      goto L16755;}
+      goto L16762;}
     else {
-      goto L16825;}}
+      goto L16832;}}
   else {
-    goto L16825;}}
- L16811: {
+    goto L16832;}}
+ L16818: {
   merged_arg3K0 = "exception-handlers is not a vector";
   loseD0_return_tag = 0;
   goto loseD0;
  loseD0_return_0:
-  goto L16738;}
- L21052: {
+  goto L16745;}
+ L21059: {
   okayP_946X = arg2K0;
   key_947X = arg0K1;
   if (okayP_946X) {
     arg0K0 = key_947X;
-    goto L20980;}
+    goto L20987;}
   else {
     ps_error("Scheme48 heap overflow", 0);
     arg0K0 = key_947X;
-    goto L20980;}}
- L21010: {
+    goto L20987;}}
+ L21017: {
   okayP_948X = arg2K0;
   temp_949X = arg0K1;
   if (okayP_948X) {
     arg0K0 = temp_949X;
-    goto L20991;}
+    goto L20998;}
   else {
     ps_error("Scheme48 heap overflow", 0);
     arg0K0 = temp_949X;
-    goto L20991;}}
- L20794: {
+    goto L20998;}}
+ L20801: {
   start_i_950X = arg0K0;
   arg0K0 = start_i_950X;
   arg0K1 = 2;
   arg0K2 = (SenvS);
-  goto L20802;}
- L20694: {
+  goto L20809;}
+ L20701: {
   key_951X = arg0K0;
   if ((1 == (ScontS))) {
     arg0K0 = 1;
-    goto L20698;}
+    goto L20705;}
   else {
     merged_arg0K0 = key_951X;
     merged_arg0K1 = 2;
@@ -7323,8 +7323,8 @@ long s48_restart(long proc_346X, long nargs_347X)
    really_preserve_continuation_return_0:
     v_952X = really_preserve_continuation0_return_value;
     arg0K0 = v_952X;
-    goto L20698;}}
- L19877: {
+    goto L20705;}}
+ L19884: {
   SstackS = ((((char *) (-3 + (Sbottom_of_stackS)))) + -8);
   *((long *) (((char *) (-3 + (Sbottom_of_stackS))))) = 1;
   ScontS = (Sbottom_of_stackS);
@@ -7334,8 +7334,8 @@ long s48_restart(long proc_346X, long nargs_347X)
   *((long *) (SstackS)) = cont_403X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16679;}
- L19177: {
+  goto L16686;}
+ L19184: {
   v_953X = arg0K0;
   merged_arg0K0 = v_953X;
   copy_stack_into_heap_return_tag = 0;
@@ -7343,10 +7343,10 @@ long s48_restart(long proc_346X, long nargs_347X)
  copy_stack_into_heap_return_0:
   if (((SstackS) < (Sstack_limitS))) {
     ps_error("Couldn't get default procedure space (how can this happen?)", 0);
-    goto L19134;}
+    goto L19141;}
   else {
-    goto L19134;}}
- L16908: {
+    goto L19141;}}
+ L16915: {
   stack_arg_count_954X = arg0K0;
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
@@ -7363,11 +7363,11 @@ long s48_restart(long proc_346X, long nargs_347X)
   n_956X = (Spending_interruptsS) & (Senabled_interruptsS);
   arg0K0 = 0;
   arg0K1 = 1;
-  goto L17013;}
- L19138: {
+  goto L17020;}
+ L19145: {
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L16094: {
+  goto L18459;}
+ L16101: {
   protocol_957X = arg0K0;
   stack_space_958X = arg0K1;
   if ((68 == protocol_957X)) {
@@ -7378,11 +7378,11 @@ long s48_restart(long proc_346X, long nargs_347X)
         arg0K1 = stack_arg_count_775X;
         arg0K2 = 25;
         arg0K3 = 0;
-        goto L17175;}
+        goto L17182;}
       else {
         arg0K0 = skip_959X;
         arg0K1 = stack_arg_count_775X;
-        goto L16098;}}
+        goto L16105;}}
     else {
       skip_960X = *((unsigned char *) ((((char *) (-3 + code_776X))) + 5));
       if ((0 == skip_960X)) {
@@ -7390,10 +7390,10 @@ long s48_restart(long proc_346X, long nargs_347X)
         arg0K1 = stack_arg_count_775X;
         arg0K2 = 25;
         arg0K3 = 0;
-        goto L17175;}
+        goto L17182;}
       else {
         arg0K0 = skip_960X;
-        goto L16121;}}}
+        goto L16128;}}}
   else {
     if ((67 == protocol_957X)) {
       if ((stack_arg_count_775X < (*((unsigned char *) ((((char *) (-3 + code_776X))) + 2))))) {
@@ -7401,10 +7401,10 @@ long s48_restart(long proc_346X, long nargs_347X)
         arg0K1 = stack_arg_count_775X;
         arg0K2 = 25;
         arg0K3 = 0;
-        goto L17175;}
+        goto L17182;}
       else {
         arg0K0 = 3;
-        goto L16121;}}
+        goto L16128;}}
     else {
       if ((65 == protocol_957X)) {
         wants_stack_args_961X = ((((*((unsigned char *) ((((char *) (-3 + code_776X))) + 2))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_776X))) + 3)));
@@ -7413,7 +7413,7 @@ long s48_restart(long proc_346X, long nargs_347X)
           arg0K1 = stack_arg_count_775X;
           arg0K2 = 25;
           arg0K3 = 0;
-          goto L17175;}
+          goto L17182;}
         else {
           merged_arg0K0 = wants_stack_args_961X;
           merged_arg0K1 = stack_arg_count_775X;
@@ -7424,46 +7424,46 @@ long s48_restart(long proc_346X, long nargs_347X)
          rest_list_setup_return_0:
           arg0K0 = 4;
           arg0K1 = (1 + wants_stack_args_961X);
-          goto L16098;}}
+          goto L16105;}}
       else {
         if ((63 < protocol_957X)) {
           if ((64 == protocol_957X)) {
             if (((((((*((unsigned char *) ((((char *) (-3 + code_776X))) + 2))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_776X))) + 3)))) == stack_arg_count_775X)) {
               arg0K0 = 4;
               arg0K1 = stack_arg_count_775X;
-              goto L16098;}
+              goto L16105;}
             else {
               arg0K0 = 4;
               arg0K1 = stack_arg_count_775X;
               arg0K2 = 25;
               arg0K3 = 0;
-              goto L17175;}}
+              goto L17182;}}
           else {
             if ((66 == protocol_957X)) {
               length_962X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + code_776X))) + -4))))>>8);
               index_963X = -2 + length_962X;
               arg0K0 = (*((unsigned char *) ((((char *) (-3 + code_776X))) + (-3 + length_962X))));
               arg0K1 = (((((*((unsigned char *) ((((char *) (-3 + code_776X))) + index_963X))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_776X))) + (1 + index_963X)))));
-              goto L16094;}
+              goto L16101;}
             else {
               ps_error("unknown protocol", 1, protocol_957X);
               arg0K0 = 4;
               arg0K1 = stack_arg_count_775X;
               arg0K2 = 25;
               arg0K3 = 0;
-              goto L17175;}}}
+              goto L17182;}}}
         else {
           if ((protocol_957X == stack_arg_count_775X)) {
             arg0K0 = 2;
             arg0K1 = stack_arg_count_775X;
-            goto L16098;}
+            goto L16105;}
           else {
             arg0K0 = 4;
             arg0K1 = stack_arg_count_775X;
             arg0K2 = 25;
             arg0K3 = 0;
-            goto L17175;}}}}}}
- L16371: {
+            goto L17182;}}}}}}
+ L16378: {
   protocol_964X = arg0K0;
   stack_space_965X = arg0K1;
   if ((68 == protocol_964X)) {
@@ -7474,7 +7474,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         arg0K1 = stack_arg_count_788X;
         arg0K2 = list_args_789X;
         arg0K3 = list_arg_count_790X;
-        goto L17175;}
+        goto L17182;}
       else {
         merged_arg0K0 = list_args_789X;
         merged_arg0K1 = list_arg_count_790X;
@@ -7483,7 +7483,7 @@ long s48_restart(long proc_346X, long nargs_347X)
        push_list_return_0:
         arg0K0 = skip_966X;
         arg0K1 = total_arg_count_794X;
-        goto L16375;}}
+        goto L16382;}}
     else {
       skip_967X = *((unsigned char *) ((((char *) (-3 + code_793X))) + 5));
       if ((0 == skip_967X)) {
@@ -7491,10 +7491,10 @@ long s48_restart(long proc_346X, long nargs_347X)
         arg0K1 = stack_arg_count_788X;
         arg0K2 = list_args_789X;
         arg0K3 = list_arg_count_790X;
-        goto L17175;}
+        goto L17182;}
       else {
         arg0K0 = skip_967X;
-        goto L16400;}}}
+        goto L16407;}}}
   else {
     if ((67 == protocol_964X)) {
       if ((total_arg_count_794X < (*((unsigned char *) ((((char *) (-3 + code_793X))) + 2))))) {
@@ -7502,10 +7502,10 @@ long s48_restart(long proc_346X, long nargs_347X)
         arg0K1 = stack_arg_count_788X;
         arg0K2 = list_args_789X;
         arg0K3 = list_arg_count_790X;
-        goto L17175;}
+        goto L17182;}
       else {
         arg0K0 = 3;
-        goto L16400;}}
+        goto L16407;}}
     else {
       if ((63 < protocol_964X)) {
         if ((65 == protocol_964X)) {
@@ -7515,7 +7515,7 @@ long s48_restart(long proc_346X, long nargs_347X)
             arg0K1 = stack_arg_count_788X;
             arg0K2 = list_args_789X;
             arg0K3 = list_arg_count_790X;
-            goto L17175;}
+            goto L17182;}
           else {
             merged_arg0K0 = wants_stack_args_968X;
             merged_arg0K1 = stack_arg_count_788X;
@@ -7526,7 +7526,7 @@ long s48_restart(long proc_346X, long nargs_347X)
            rest_list_setup_return_1:
             arg0K0 = 4;
             arg0K1 = (1 + wants_stack_args_968X);
-            goto L16375;}}
+            goto L16382;}}
         else {
           if ((64 == protocol_964X)) {
             if (((((((*((unsigned char *) ((((char *) (-3 + code_793X))) + 2))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_793X))) + 3)))) == total_arg_count_794X)) {
@@ -7537,27 +7537,27 @@ long s48_restart(long proc_346X, long nargs_347X)
              push_list_return_1:
               arg0K0 = 4;
               arg0K1 = total_arg_count_794X;
-              goto L16375;}
+              goto L16382;}
             else {
               arg0K0 = 4;
               arg0K1 = stack_arg_count_788X;
               arg0K2 = list_args_789X;
               arg0K3 = list_arg_count_790X;
-              goto L17175;}}
+              goto L17182;}}
           else {
             if ((66 == protocol_964X)) {
               length_969X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + code_793X))) + -4))))>>8);
               index_970X = -2 + length_969X;
               arg0K0 = (*((unsigned char *) ((((char *) (-3 + code_793X))) + (-3 + length_969X))));
               arg0K1 = (((((*((unsigned char *) ((((char *) (-3 + code_793X))) + index_970X))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_793X))) + (1 + index_970X)))));
-              goto L16371;}
+              goto L16378;}
             else {
               ps_error("unknown protocol", 1, protocol_964X);
               arg0K0 = 4;
               arg0K1 = stack_arg_count_788X;
               arg0K2 = list_args_789X;
               arg0K3 = list_arg_count_790X;
-              goto L17175;}}}}
+              goto L17182;}}}}
       else {
         if ((protocol_964X == total_arg_count_794X)) {
           merged_arg0K0 = list_args_789X;
@@ -7567,33 +7567,33 @@ long s48_restart(long proc_346X, long nargs_347X)
          push_list_return_2:
           arg0K0 = 2;
           arg0K1 = total_arg_count_794X;
-          goto L16375;}
+          goto L16382;}
         else {
           arg0K0 = 4;
           arg0K1 = stack_arg_count_788X;
           arg0K2 = list_args_789X;
           arg0K3 = list_arg_count_790X;
-          goto L17175;}}}}}
- L20452: {
+          goto L17182;}}}}}
+ L20459: {
   cont_971X = arg0K0;
   if ((3 == (3 & cont_971X))) {
-    if ((9 == (31 & ((((*((long *) ((((char *) (-3 + cont_971X))) + -4))))>>2))))) {
+    if ((10 == (31 & ((((*((long *) ((((char *) (-3 + cont_971X))) + -4))))>>2))))) {
       next_op_972X = *((unsigned char *) ((((char *) (-3 + (*((long *) (((char *) (-3 + (*((long *) ((((char *) (-3 + cont_971X))) + 8))))))))))) + ((((*((long *) ((((char *) (-3 + cont_971X))) + 4))))>>2))));
       if ((34 == next_op_972X)) {
         pop_continuationB_return_tag = 2;
         goto pop_continuationB;
        pop_continuationB_return_2:
         arg1K0 = (Scode_pointerS);
-        goto L18452;}
+        goto L18459;}
       else {
         if ((30 == next_op_972X)) {
           next_973X = *((long *) (((char *) (-3 + (ScontS)))));
           if (((ScontS) == (Sbottom_of_stackS))) {
             *((long *) (((char *) (-3 + (ScontS))))) = (*((long *) (((char *) (-3 + next_973X)))));
-            goto L19296;}
+            goto L19303;}
           else {
             ScontS = next_973X;
-            goto L19296;}}
+            goto L19303;}}
         else {
           merged_arg0K0 = list_args_806X;
           merged_arg0K1 = stack_nargs_805X;
@@ -7607,12 +7607,12 @@ long s48_restart(long proc_346X, long nargs_347X)
           *((long *) (SstackS)) = args_974X;
           SstackS = ((SstackS) + -4);
           arg0K0 = 2;
-          goto L16679;}}}
+          goto L16686;}}}
     else {
-      goto L20458;}}
+      goto L20465;}}
   else {
-    goto L20458;}}
- L18946: {
+    goto L20465;}}
+ L18953: {
   v_975X = arg0K0;
   merged_arg0K0 = v_975X;
   copy_stack_into_heap_return_tag = 1;
@@ -7620,65 +7620,65 @@ long s48_restart(long proc_346X, long nargs_347X)
  copy_stack_into_heap_return_1:
   if (((SstackS) < (Sstack_limitS))) {
     ps_error("Couldn't get default procedure space (how can this happen?)", 0);
-    goto L18831;}
+    goto L18838;}
   else {
-    goto L18831;}}
- L18840: {
+    goto L18838;}}
+ L18847: {
   arg0K0 = (*((unsigned char *) ((Scode_pointerS) + 3)));
-  goto L16908;}
- L18843: {
+  goto L16915;}
+ L18850: {
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L19001: {
+  goto L18459;}
+ L19008: {
   v_976X = arg0K0;
   merged_arg0K0 = v_976X;
   copy_stack_into_heap_return_tag = 2;
   goto copy_stack_into_heap;
  copy_stack_into_heap_return_2:
   if ((space_437X < (64 + (((((SstackS) - (Sstack_limitS)))>>2))))) {
-    goto L18831;}
+    goto L18838;}
   else {
     ps_error("VM's stack is too small (how can this happen?)", 0);
-    goto L18831;}}
- L10641: {
+    goto L18838;}}
+ L10648: {
   if ((3 == (3 & x_457X))) {
-    if ((18 == (31 & ((((*((long *) ((((char *) (-3 + x_457X))) + -4))))>>2))))) {
+    if ((19 == (31 & ((((*((long *) ((((char *) (-3 + x_457X))) + -4))))>>2))))) {
       arg0K0 = 5;
-      goto L38249;}
+      goto L38256;}
     else {
-      goto L10647;}}
+      goto L10654;}}
   else {
-    goto L10647;}}
- L28418: {
+    goto L10654;}}
+ L28425: {
   SvalS = 1;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L28559: {
+  goto L18459;}
+ L28566: {
   if ((3 == (3 & n_459X))) {
-    if ((18 == (31 & ((((*((long *) ((((char *) (-3 + n_459X))) + -4))))>>2))))) {
-      goto L28570;}
+    if ((19 == (31 & ((((*((long *) ((((char *) (-3 + n_459X))) + -4))))>>2))))) {
+      goto L28577;}
     else {
-      goto L28571;}}
+      goto L28578;}}
   else {
-    goto L28571;}}
- L28758: {
+    goto L28578;}}
+ L28765: {
   if ((3 == (3 & n_460X))) {
-    if ((18 == (31 & ((((*((long *) ((((char *) (-3 + n_460X))) + -4))))>>2))))) {
-      goto L28769;}
+    if ((19 == (31 & ((((*((long *) ((((char *) (-3 + n_460X))) + -4))))>>2))))) {
+      goto L28776;}
     else {
-      goto L28770;}}
+      goto L28777;}}
   else {
-    goto L28770;}}
- L28957: {
+    goto L28777;}}
+ L28964: {
   if ((3 == (3 & n_461X))) {
-    if ((18 == (31 & ((((*((long *) ((((char *) (-3 + n_461X))) + -4))))>>2))))) {
-      goto L28968;}
+    if ((19 == (31 & ((((*((long *) ((((char *) (-3 + n_461X))) + -4))))>>2))))) {
+      goto L28975;}
     else {
-      goto L28969;}}
+      goto L28976;}}
   else {
-    goto L28969;}}
- L6792: {
+    goto L28976;}}
+ L6799: {
   b_977X = arg0K0;
   lo_a_978X = 65535 & a_819X;
   lo_b_979X = 65535 & b_977X;
@@ -7697,26 +7697,26 @@ long s48_restart(long proc_346X, long nargs_347X)
       *((long *) (SstackS)) = x_469X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 2;
-      goto L16679;}
+      goto L16686;}
     else {
-      goto L6834;}}
+      goto L6841;}}
   else {
-    goto L6834;}}
- L7073: {
+    goto L6841;}}
+ L7080: {
   b_987X = arg0K0;
   c_988X = a_820X / b_987X;
   x_989X = 0 == (a_820X % b_987X);
   if (x_989X) {
     if ((a_477X < 0)) {
       if ((b_478X < 0)) {
-        goto L7128;}
+        goto L7135;}
       else {
-        goto L7127;}}
+        goto L7134;}}
     else {
       if ((b_478X < 0)) {
-        goto L7127;}
+        goto L7134;}
       else {
-        goto L7128;}}}
+        goto L7135;}}}
   else {
     push_exception_continuationB(5, 1);
     *((long *) (SstackS)) = arg2_475X;
@@ -7724,129 +7724,129 @@ long s48_restart(long proc_346X, long nargs_347X)
     *((long *) (SstackS)) = x_476X;
     SstackS = ((SstackS) + -4);
     arg0K0 = 2;
-    goto L16679;}}
- L7250: {
+    goto L16686;}}
+ L7257: {
   b_990X = arg0K0;
   c_991X = a_826X / b_990X;
   if ((a_491X < 0)) {
     if ((b_492X < 0)) {
-      goto L7296;}
+      goto L7303;}
     else {
-      goto L7295;}}
+      goto L7302;}}
   else {
     if ((b_492X < 0)) {
-      goto L7295;}
+      goto L7302;}
     else {
-      goto L7296;}}}
- L25362: {
+      goto L7303;}}}
+ L25369: {
   b_992X = arg0K0;
   c_993X = a_827X % b_992X;
   if ((a_495X < 0)) {
     arg0K0 = (0 - c_993X);
-    goto L25366;}
+    goto L25373;}
   else {
     arg0K0 = c_993X;
-    goto L25366;}}
- L21350: {
+    goto L25373;}}
+ L21357: {
   SvalS = new_838X;
   Scode_pointerS = ((Scode_pointerS) + 3);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L21334: {
+  goto L18459;}
+ L21341: {
   i_994X = arg0K0;
   if ((i_994X < 0)) {
-    goto L21350;}
+    goto L21357;}
   else {
     SstackS = ((SstackS) + 4);
     *((long *) ((((char *) (-3 + new_838X))) + (((i_994X)<<2)))) = (*((long *) (SstackS)));
     arg0K0 = (-1 + i_994X);
-    goto L21334;}}
- L21519: {
+    goto L21341;}}
+ L21526: {
   i_995X = arg0K0;
   if ((i_995X < 0)) {
     arg0K0 = stack_nargs_843X;
     arg0K1 = rest_list_844X;
-    goto L21537;}
+    goto L21544;}
   else {
     SstackS = ((SstackS) + 4);
     *((long *) ((((char *) (-3 + new_842X))) + (((i_995X)<<2)))) = (*((long *) (SstackS)));
     arg0K0 = (-1 + i_995X);
-    goto L21519;}}
- L22042: {
+    goto L21526;}}
+ L22049: {
   i_996X = arg0K0;
   if ((i_996X < 0)) {
     SvalS = value_849X;
     Scode_pointerS = ((Scode_pointerS) + 2);
     arg1K0 = (Scode_pointerS);
-    goto L18452;}
+    goto L18459;}
   else {
     addr_997X = (((char *) (-3 + value_849X))) + (((i_996X)<<2));
     S48_WRITE_BARRIER(value_849X, addr_997X, init_846X);
     *((long *) addr_997X) = init_846X;
     arg0K0 = (-1 + i_996X);
-    goto L22042;}}
- L26137: {
+    goto L22049;}}
+ L26144: {
   i_998X = arg0K0;
   if ((i_998X < 0)) {
     SvalS = vector_851X;
     Scode_pointerS = ((Scode_pointerS) + 1);
     arg1K0 = (Scode_pointerS);
-    goto L18452;}
+    goto L18459;}
   else {
     *((unsigned char *) ((((char *) (-3 + vector_851X))) + i_998X)) = init_585X;
     arg0K0 = (-1 + i_998X);
-    goto L26137;}}
- L26371: {
+    goto L26144;}}
+ L26378: {
   i_999X = arg0K0;
   if ((i_999X < 0)) {
     SvalS = string_854X;
     Scode_pointerS = ((Scode_pointerS) + 1);
     arg1K0 = (Scode_pointerS);
-    goto L18452;}
+    goto L18459;}
   else {
     *((unsigned char *) ((((char *) (-3 + string_854X))) + i_999X)) = (init_601X);
     arg0K0 = (-1 + i_999X);
-    goto L26371;}}
- L13347: {
+    goto L26378;}}
+ L13354: {
   i_1000X = arg0K0;
   h_1001X = arg0K1;
   if ((i_1000X < n_858X)) {
     arg0K0 = (1 + i_1000X);
     arg0K1 = (h_1001X + (((*((unsigned char *) ((((char *) (-3 + string_857X))) + i_1000X))))));
-    goto L13347;}
+    goto L13354;}
   else {
     index_1002X = 1023 & h_1001X;
     bucket_1003X = *((long *) ((((char *) (-3 + table_856X))) + (((index_1002X)<<2))));
     arg0K0 = bucket_1003X;
-    goto L13315;}}
- L24510: {
+    goto L13322;}}
+ L24517: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16679;}
- L29684: {
+  goto L16686;}
+ L29691: {
   SvalS = 13;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L33231: {
+  goto L18459;}
+ L33238: {
   key_1004X = arg0K0;
   SstackS = ((SstackS) + 4);
   arg2_1005X = *((long *) (SstackS));
   if ((0 == (3 & (SvalS)))) {
     mode_1006X = (((SvalS))>>2);
     if ((1 == mode_1006X)) {
-      goto L26795;}
+      goto L26802;}
     else {
       if ((2 == mode_1006X)) {
-        goto L26795;}
+        goto L26802;}
       else {
         if ((3 == mode_1006X)) {
-          goto L26795;}
+          goto L26802;}
         else {
           if ((4 == mode_1006X)) {
-            goto L26795;}
+            goto L26802;}
           else {
             push_exception_continuationB(5, 1);
             *((long *) (SstackS)) = arg2_1005X;
@@ -7854,7 +7854,7 @@ long s48_restart(long proc_346X, long nargs_347X)
             *((long *) (SstackS)) = (((mode_1006X)<<2));
             SstackS = ((SstackS) + -4);
             arg0K0 = 2;
-            goto L16679;}}}}}
+            goto L16686;}}}}}
   else {
     push_exception_continuationB(5, 1);
     *((long *) (SstackS)) = arg2_1005X;
@@ -7862,26 +7862,26 @@ long s48_restart(long proc_346X, long nargs_347X)
     *((long *) (SstackS)) = (SvalS);
     SstackS = ((SstackS) + -4);
     arg0K0 = 2;
-    goto L16679;}}
- L34663: {
+    goto L16686;}}
+ L34670: {
   key_1007X = arg0K0;
   obj_1008X = SvalS;
   if ((3 == (3 & obj_1008X))) {
-    if ((5 == (31 & ((((*((long *) ((((char *) (-3 + obj_1008X))) + -4))))>>2))))) {
+    if ((6 == (31 & ((((*((long *) ((((char *) (-3 + obj_1008X))) + -4))))>>2))))) {
       channel_1009X = SvalS;
       if ((0 == (*((long *) (((char *) (-3 + channel_1009X))))))) {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = channel_1009X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 1;
-        goto L16679;}
+        goto L16686;}
       else {
         status_1010X = close_channelB(channel_1009X);
         if ((status_1010X == NO_ERRORS)) {
           SvalS = 13;
           Scode_pointerS = ((Scode_pointerS) + 1);
           arg1K0 = (Scode_pointerS);
-          goto L18452;}
+          goto L18459;}
         else {
           push_exception_continuationB(25, 1);
           *((long *) (SstackS)) = channel_1009X;
@@ -7895,12 +7895,12 @@ long s48_restart(long proc_346X, long nargs_347X)
           *((long *) (SstackS)) = x_1011X;
           SstackS = ((SstackS) + -4);
           arg0K0 = 2;
-          goto L16679;}}}
+          goto L16686;}}}
     else {
-      goto L34671;}}
+      goto L34678;}}
   else {
-    goto L34671;}}
- L37483: {
+    goto L34678;}}
+ L37490: {
   key_1012X = arg0K0;
   SstackS = ((SstackS) + 4);
   arg2_1013X = *((long *) (SstackS));
@@ -7912,15 +7912,15 @@ long s48_restart(long proc_346X, long nargs_347X)
   arg5_1016X = *((long *) (SstackS));
   if ((0 == (3 & (arg4_1015X | arg3_1014X)))) {
     if ((1 == arg2_1013X)) {
-      goto L37515;}
+      goto L37522;}
     else {
       if ((5 == arg2_1013X)) {
-        goto L37515;}
+        goto L37522;}
       else {
-        goto L37535;}}}
+        goto L37542;}}}
   else {
-    goto L37535;}}
- L37755: {
+    goto L37542;}}
+ L37762: {
   key_1017X = arg0K0;
   SstackS = ((SstackS) + 4);
   arg2_1018X = *((long *) (SstackS));
@@ -7931,49 +7931,49 @@ long s48_restart(long proc_346X, long nargs_347X)
   if ((0 == (3 & (arg3_1019X | arg2_1018X)))) {
     obj_1021X = SvalS;
     if ((3 == (3 & obj_1021X))) {
-      if ((5 == (31 & ((((*((long *) ((((char *) (-3 + obj_1021X))) + -4))))>>2))))) {
+      if ((6 == (31 & ((((*((long *) ((((char *) (-3 + obj_1021X))) + -4))))>>2))))) {
         start_1022X = ((arg3_1019X)>>2);
         count_1023X = ((arg2_1018X)>>2);
         channel_1024X = SvalS;
         v_1025X = 8 == (*((long *) (((char *) (-3 + channel_1024X)))));
         if (v_1025X) {
           if ((3 == (3 & arg4_1020X))) {
-            if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg4_1020X))) + -4))))>>2))))) {
-              goto L37066;}
+            if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg4_1020X))) + -4))))>>2))))) {
+              goto L37073;}
             else {
-              goto L37058;}}
+              goto L37065;}}
           else {
-            goto L37058;}}
+            goto L37065;}}
         else {
           arg0K0 = 5;
-          goto L36949;}}
+          goto L36956;}}
       else {
-        goto L37797;}}
+        goto L37804;}}
     else {
-      goto L37797;}}
+      goto L37804;}}
   else {
-    goto L37797;}}
- L34148: {
+    goto L37804;}}
+ L34155: {
   key_1026X = arg0K0;
   obj_1027X = SvalS;
   if ((3 == (3 & obj_1027X))) {
-    if ((5 == (31 & ((((*((long *) ((((char *) (-3 + obj_1027X))) + -4))))>>2))))) {
+    if ((6 == (31 & ((((*((long *) ((((char *) (-3 + obj_1027X))) + -4))))>>2))))) {
       channel_1028X = SvalS;
       if ((0 == (*((long *) (((char *) (-3 + channel_1028X))))))) {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = channel_1028X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 1;
-        goto L16679;}
+        goto L16686;}
       else {
         readyP_1029X = ps_check_fd(((((*((long *) ((((char *) (-3 + channel_1028X))) + 8))))>>2)), (4 == (*((long *) (((char *) (-3 + channel_1028X)))))), &status_1030X);
         if ((status_1030X == NO_ERRORS)) {
           if (readyP_1029X) {
             arg0K0 = 5;
-            goto L29270;}
+            goto L29277;}
           else {
             arg0K0 = 1;
-            goto L29270;}}
+            goto L29277;}}
         else {
           push_exception_continuationB(25, 1);
           *((long *) (SstackS)) = channel_1028X;
@@ -7987,12 +7987,12 @@ long s48_restart(long proc_346X, long nargs_347X)
           *((long *) (SstackS)) = x_1031X;
           SstackS = ((SstackS) + -4);
           arg0K0 = 2;
-          goto L16679;}}}
+          goto L16686;}}}
     else {
-      goto L34156;}}
+      goto L34163;}}
   else {
-    goto L34156;}}
- L8216: {
+    goto L34163;}}
+ L8223: {
   val_1032X = *((long *) ((((char *) (-3 + ch_874X))) + 12));
   addr_1033X = (((char *) (-3 + prev_875X))) + 12;
   S48_WRITE_BARRIER(prev_875X, addr_1033X, val_1032X);
@@ -8001,43 +8001,43 @@ long s48_restart(long proc_346X, long nargs_347X)
   S48_WRITE_BARRIER(ch_874X, addr_1034X, 1);
   *((long *) addr_1034X) = 1;
   arg0K0 = (*((long *) ((((char *) (-3 + ch_874X))) + 16)));
-  goto L33336;}
- L14798: {
+  goto L33343;}
+ L14805: {
   i_1035X = arg0K0;
   res_1036X = arg0K1;
   if ((-1 == i_1035X)) {
     SvalS = res_1036X;
     Scode_pointerS = ((Scode_pointerS) + 1);
     arg1K0 = (Scode_pointerS);
-    goto L18452;}
+    goto L18459;}
   else {
     channel_1037X = *((Svm_channelsS) + i_1035X);
     if ((3 == (3 & channel_1037X))) {
-      if ((5 == (31 & ((((*((long *) ((((char *) (-3 + channel_1037X))) + -4))))>>2))))) {
+      if ((6 == (31 & ((((*((long *) ((((char *) (-3 + channel_1037X))) + -4))))>>2))))) {
         addr_1038X = ALLOCATE_SPACE(0, 12);
         *((long *) addr_1038X) = 2050;
         x_1039X = 3 + (((long) (addr_1038X + 4)));
         *((long *) (((char *) (-3 + x_1039X)))) = channel_1037X;
         *((long *) ((((char *) (-3 + x_1039X))) + 4)) = res_1036X;
         arg0K0 = x_1039X;
-        goto L14812;}
+        goto L14819;}
       else {
         arg0K0 = res_1036X;
-        goto L14812;}}
+        goto L14819;}}
     else {
       arg0K0 = res_1036X;
-      goto L14812;}}}
- L34736: {
+      goto L14819;}}}
+ L34743: {
   key_1040X = arg0K0;
   SstackS = ((SstackS) + 4);
   arg2_1041X = *((long *) (SstackS));
   SstackS = ((SstackS) + 4);
   arg3_1042X = *((long *) (SstackS));
   if ((3 == (3 & arg3_1042X))) {
-    if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg3_1042X))) + -4))))>>2))))) {
+    if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg3_1042X))) + -4))))>>2))))) {
       obj_1043X = SvalS;
       if ((3 == (3 & obj_1043X))) {
-        if ((16 == (31 & ((((*((long *) ((((char *) (-3 + obj_1043X))) + -4))))>>2))))) {
+        if ((17 == (31 & ((((*((long *) ((((char *) (-3 + obj_1043X))) + -4))))>>2))))) {
           comment_string_1044X = SvalS;
           x_1045X = s48_image_writing_okayP();
           if (x_1045X) {
@@ -8054,7 +8054,7 @@ long s48_restart(long proc_346X, long nargs_347X)
                       SvalS = 13;
                       Scode_pointerS = ((Scode_pointerS) + 1);
                       arg1K0 = (Scode_pointerS);
-                      goto L18452;}
+                      goto L18459;}
                     else {
                       push_exception_continuationB(26, 1);
                       *((long *) (SstackS)) = arg3_1042X;
@@ -8068,41 +8068,41 @@ long s48_restart(long proc_346X, long nargs_347X)
                       *((long *) (SstackS)) = (((undumpable_count_1052X)<<2));
                       SstackS = ((SstackS) + -4);
                       arg0K0 = 5;
-                      goto L16679;}}
+                      goto L16686;}}
                   else {
                     arg0K0 = 25;
                     arg0K1 = status_1050X;
-                    goto L30318;}}
+                    goto L30325;}}
                 else {
                   status_1053X = ps_close(port_1046X);
                   if ((status_1053X == NO_ERRORS)) {
                     arg0K0 = 25;
                     arg0K1 = status_1049X;
-                    goto L30318;}
+                    goto L30325;}
                   else {
                     ps_write_string("Unable to close image file", (stderr));
                     { long ignoreXX;
                     PS_WRITE_CHAR(10, (stderr), ignoreXX) }
                     arg0K0 = 25;
                     arg0K1 = status_1049X;
-                    goto L30318;}}}
+                    goto L30325;}}}
               else {
                 status_1054X = ps_close(port_1046X);
                 if ((status_1054X == NO_ERRORS)) {
                   arg0K0 = 25;
                   arg0K1 = status_1048X;
-                  goto L30318;}
+                  goto L30325;}
                 else {
                   ps_write_string("Unable to close image file", (stderr));
                   { long ignoreXX;
                   PS_WRITE_CHAR(10, (stderr), ignoreXX) }
                   arg0K0 = 25;
                   arg0K1 = status_1048X;
-                  goto L30318;}}}
+                  goto L30325;}}}
             else {
               arg0K0 = 10;
               arg0K1 = status_1047X;
-              goto L30318;}}
+              goto L30325;}}
           else {
             push_exception_continuationB(15, 1);
             *((long *) (SstackS)) = arg3_1042X;
@@ -8112,24 +8112,24 @@ long s48_restart(long proc_346X, long nargs_347X)
             *((long *) (SstackS)) = comment_string_1044X;
             SstackS = ((SstackS) + -4);
             arg0K0 = 3;
-            goto L16679;}}
+            goto L16686;}}
         else {
-          goto L34768;}}
+          goto L34775;}}
       else {
-        goto L34768;}}
+        goto L34775;}}
     else {
-      goto L34768;}}
+      goto L34775;}}
   else {
-    goto L34768;}}
- L30697: {
+    goto L34775;}}
+ L30704: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = stob_883X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = proc_884X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16679;}
- L34314: {
+  goto L16686;}
+ L34321: {
   minutesP_1055X = arg2K0;
   if ((s48_Spending_interruptPS)) {
     if ((s48_Spending_eventsPS)) {
@@ -8139,57 +8139,57 @@ long s48_restart(long proc_346X, long nargs_347X)
      check_events_return_2:
       temp_1056X = check_events0_return_value;
       if (temp_1056X) {
-        goto L34340;}
+        goto L34347;}
       else {
-        goto L34345;}}
+        goto L34352;}}
     else {
-      goto L34340;}}
+      goto L34347;}}
   else {
-    goto L34345;}}
- L22863: {
+    goto L34352;}}
+ L22870: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = proc_902X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = name_903X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16679;}
- L33502: {
+  goto L16686;}
+ L33509: {
   key_1057X = arg0K0;
   SstackS = ((SstackS) + 4);
   arg2_1058X = *((long *) (SstackS));
   if ((3 == (3 & arg2_1058X))) {
-    if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg2_1058X))) + -4))))>>2))))) {
+    if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg2_1058X))) + -4))))>>2))))) {
       x_1059X = SvalS;
       if ((1 == x_1059X)) {
-        goto L33519;}
+        goto L33526;}
       else {
         if ((5 == x_1059X)) {
-          goto L33519;}
+          goto L33526;}
         else {
-          goto L33524;}}}
+          goto L33531;}}}
     else {
-      goto L33524;}}
+      goto L33531;}}
   else {
-    goto L33524;}}
- L23960: {
+    goto L33531;}}
+ L23967: {
   table_1060X = arg0K0;
   n_1061X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg2_690X))) + -4))))>>8));
   arg0K0 = 0;
   arg0K1 = 0;
-  goto L12894;}
- L27391: {
+  goto L12901;}
+ L27398: {
   len_1062X = 1 + n_913X;
-  addr_1063X = ALLOCATE_SPACE(16, (4 + len_1062X));
-  *((long *) addr_1063X) = (66 + (((len_1062X)<<8)));
+  addr_1063X = ALLOCATE_SPACE(17, (4 + len_1062X));
+  *((long *) addr_1063X) = (70 + (((len_1062X)<<8)));
   string_1064X = 3 + (((long) (addr_1063X + 4)));
   *((unsigned char *) ((((char *) (-3 + string_1064X))) + n_913X)) = 0;
   arg0K0 = arg2_912X;
   arg0K1 = (-1 + n_913X);
-  goto L27368;}
- L27343: {
+  goto L27375;}
+ L27350: {
   if ((25 == arg2_912X)) {
-    goto L27391;}
+    goto L27398;}
   else {
     push_exception_continuationB(5, 1);
     *((long *) (SstackS)) = arg2_912X;
@@ -8197,34 +8197,34 @@ long s48_restart(long proc_346X, long nargs_347X)
     *((long *) (SstackS)) = (((n_913X)<<2));
     SstackS = ((SstackS) + -4);
     arg0K0 = 2;
-    goto L16679;}}
- L31102: {
+    goto L16686;}}
+ L31109: {
   if ((from_index_731X < 0)) {
-    goto L31156;}
+    goto L31163;}
   else {
     if ((to_index_732X < 0)) {
-      goto L31156;}
+      goto L31163;}
     else {
       if ((count_733X < 0)) {
-        goto L31156;}
+        goto L31163;}
       else {
         if ((3 == (3 & arg5_730X))) {
-          if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg5_730X))) + -4))))>>2))))) {
+          if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg5_730X))) + -4))))>>2))))) {
             arg0K0 = (-1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg5_730X))) + -4))))>>8)));
-            goto L31123;}
+            goto L31130;}
           else {
-            goto L31119;}}
+            goto L31126;}}
         else {
-          goto L31119;}}}}}
- L31097: {
+          goto L31126;}}}}}
+ L31104: {
   if ((3 == (3 & arg5_730X))) {
-    if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg5_730X))) + -4))))>>2))))) {
-      goto L31102;}
+    if ((18 == (31 & ((((*((long *) ((((char *) (-3 + arg5_730X))) + -4))))>>2))))) {
+      goto L31109;}
     else {
-      goto L31156;}}
+      goto L31163;}}
   else {
-    goto L31156;}}
- L31156: {
+    goto L31163;}}
+ L31163: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = arg5_730X;
   SstackS = ((SstackS) + -4);
@@ -8237,86 +8237,86 @@ long s48_restart(long proc_346X, long nargs_347X)
   *((long *) (SstackS)) = (((count_733X)<<2));
   SstackS = ((SstackS) + -4);
   arg0K0 = 5;
-  goto L16679;}
- L23119: {
+  goto L16686;}
+ L23126: {
   push_exception_continuationB(5, 2);
   *((long *) (SstackS)) = port_919X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16679;}
- L23099: {
+  goto L16686;}
+ L23106: {
   push_exception_continuationB(14, 2);
   *((long *) (SstackS)) = port_919X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16679;}
- L23339: {
+  goto L16686;}
+ L23346: {
   push_exception_continuationB(5, 2);
   *((long *) (SstackS)) = port_927X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16679;}
- L23319: {
+  goto L16686;}
+ L23326: {
   push_exception_continuationB(14, 2);
   *((long *) (SstackS)) = port_927X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16679;}
- L23553: {
+  goto L16686;}
+ L23560: {
   push_exception_continuationB(5, 2);
   *((long *) (SstackS)) = Kchar_933X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = port_934X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16679;}
- L23535: {
+  goto L16686;}
+ L23542: {
   push_exception_continuationB(14, 2);
   *((long *) (SstackS)) = Kchar_933X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = port_934X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16679;}
- L29592: {
+  goto L16686;}
+ L29599: {
   arg0K0 = (*((long *) ((((char *) (-3 + stuff_941X))) + 4)));
-  goto L29586;}
- L11664: {
+  goto L29593;}
+ L11671: {
   if ((3 == (3 & thing_942X))) {
-    if ((16 == (31 & ((((*((long *) ((((char *) (-3 + thing_942X))) + -4))))>>2))))) {
+    if ((17 == (31 & ((((*((long *) ((((char *) (-3 + thing_942X))) + -4))))>>2))))) {
       arg3K0 = (((char *)(((char *) (-3 + thing_942X)))));
-      goto L11706;}
+      goto L11713;}
     else {
-      goto L11672;}}
+      goto L11679;}}
   else {
-    goto L11672;}}
- L29577: {
+    goto L11679;}}
+ L29584: {
   { long ignoreXX;
   PS_WRITE_CHAR(10, out_742X, ignoreXX) }
   SvalS = 13;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L16755: {
+  goto L18459;}
+ L16762: {
   StemplateS = (SvalS);
   Slosing_opcodeS = opcode_744X;
   arg0K0 = (2 + nargs_743X);
-  goto L16080;}
- L16825: {
+  goto L16087;}
+ L16832: {
   merged_arg3K0 = "exception handler is not a closure";
   loseD0_return_tag = 1;
   goto loseD0;
  loseD0_return_1:
-  goto L16755;}
- L20980: {
+  goto L16762;}
+ L20987: {
   key_1065X = arg0K0;
   p_1066X = SenvS;
   if ((3 == (3 & p_1066X))) {
     if ((p_1066X < (((long) (Sstack_beginS))))) {
-      goto L21075;}
+      goto L21082;}
     else {
       if (((((long) (Sstack_endS))) < p_1066X)) {
-        goto L21075;}
+        goto L21082;}
       else {
         merged_arg0K0 = (SenvS);
         merged_arg0K1 = (ScontS);
@@ -8327,10 +8327,10 @@ long s48_restart(long proc_346X, long nargs_347X)
        save_env_in_heap_return_0:
         v_1067X = save_env_in_heap0_return_value;
         SenvS = v_1067X;
-        goto L21075;}}}
+        goto L21082;}}}
   else {
-    goto L21075;}}
- L20991: {
+    goto L21082;}}
+ L20998: {
   env_1068X = arg0K0;
   a_1069X = *((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2))));
   addr_1070X = ALLOCATE_SPACE(3, 12);
@@ -8342,14 +8342,14 @@ long s48_restart(long proc_346X, long nargs_347X)
     if ((0 == (128 & (*((long *) ((((char *) (-3 + x_1071X))) + -4)))))) {
       *((long *) ((((char *) (-3 + x_1071X))) + -4)) = (128 | (*((long *) ((((char *) (-3 + x_1071X))) + -4))));
       arg0K0 = x_1071X;
-      goto L20999;}
+      goto L21006;}
     else {
       arg0K0 = x_1071X;
-      goto L20999;}}
+      goto L21006;}}
   else {
     arg0K0 = x_1071X;
-    goto L20999;}}
- L20802: {
+    goto L21006;}}
+ L20809: {
   i_1072X = arg0K0;
   offset_1073X = arg0K1;
   env_1074X = arg0K2;
@@ -8357,25 +8357,25 @@ long s48_restart(long proc_346X, long nargs_347X)
     SvalS = new_env_766X;
     Scode_pointerS = ((Scode_pointerS) + (1 + offset_1073X));
     arg1K0 = (Scode_pointerS);
-    goto L18452;}
+    goto L18459;}
   else {
     back_1075X = *((unsigned char *) ((Scode_pointerS) + (1 + offset_1073X)));
     arg0K0 = env_1074X;
     arg0K1 = back_1075X;
-    goto L20898;}}
- L20698: {
+    goto L20905;}}
+ L20705: {
   value_1076X = arg0K0;
   SvalS = value_1076X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L17013: {
+  goto L18459;}
+ L17020: {
   i_1077X = arg0K0;
   m_1078X = arg0K1;
   if ((0 == (n_956X & m_1078X))) {
     arg0K0 = (1 + i_1077X);
     arg0K1 = (((m_1078X)<<1));
-    goto L17013;}
+    goto L17020;}
   else {
     Spending_interruptsS = ((Spending_interruptsS) & (~ m_1078X));
     if ((i_1077X == 0)) {
@@ -8385,7 +8385,7 @@ long s48_restart(long proc_346X, long nargs_347X)
       *((long *) (SstackS)) = ((((Senabled_interruptsS))<<2));
       SstackS = ((SstackS) + -4);
       arg0K0 = 2;
-      goto L16932;}
+      goto L16939;}
     else {
       if ((i_1077X == 2)) {
         *((long *) (SstackS)) = (Sfinalize_theseS);
@@ -8394,7 +8394,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = ((((Senabled_interruptsS))<<2));
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16932;}
+        goto L16939;}
       else {
         if ((i_1077X == 3)) {
           channel_1079X = Spending_channels_headS;
@@ -8406,10 +8406,10 @@ long s48_restart(long proc_346X, long nargs_347X)
           if ((1 == next_1080X)) {
             Spending_channels_tailS = 1;
             arg0K0 = channel_1079X;
-            goto L8377;}
+            goto L8384;}
           else {
             arg0K0 = channel_1079X;
-            goto L8377;}}
+            goto L8384;}}
         else {
           if ((i_1077X == 4)) {
             *((long *) (SstackS)) = (Sos_signal_typeS);
@@ -8421,13 +8421,13 @@ long s48_restart(long proc_346X, long nargs_347X)
             *((long *) (SstackS)) = ((((Senabled_interruptsS))<<2));
             SstackS = ((SstackS) + -4);
             arg0K0 = 3;
-            goto L16932;}
+            goto L16939;}
           else {
             *((long *) (SstackS)) = ((((Senabled_interruptsS))<<2));
             SstackS = ((SstackS) + -4);
             arg0K0 = 1;
-            goto L16932;}}}}}}
- L16098: {
+            goto L16939;}}}}}}
+ L16105: {
   skip_1082X = arg0K0;
   stack_arg_count_1083X = arg0K1;
   template_1084X = *((long *) (((char *) (-3 + (SvalS)))));
@@ -8436,8 +8436,8 @@ long s48_restart(long proc_346X, long nargs_347X)
   SenvS = (*((long *) ((((char *) (-3 + (SvalS)))) + 4)));
   arg0K0 = stack_space_958X;
   arg0K1 = stack_arg_count_1083X;
-  goto L15988;}
- L16121: {
+  goto L15995;}
+ L16128: {
   skip_1085X = arg0K0;
   *((long *) (SstackS)) = 25;
   SstackS = ((SstackS) + -4);
@@ -8447,8 +8447,8 @@ long s48_restart(long proc_346X, long nargs_347X)
   SstackS = ((SstackS) + -4);
   arg0K0 = skip_1085X;
   arg0K1 = (3 + stack_arg_count_775X);
-  goto L16098;}
- L16375: {
+  goto L16105;}
+ L16382: {
   skip_1086X = arg0K0;
   stack_arg_count_1087X = arg0K1;
   template_1088X = *((long *) (((char *) (-3 + (SvalS)))));
@@ -8457,26 +8457,26 @@ long s48_restart(long proc_346X, long nargs_347X)
   SenvS = (*((long *) ((((char *) (-3 + (SvalS)))) + 4)));
   arg0K0 = stack_space_965X;
   arg0K1 = stack_arg_count_1087X;
-  goto L15988;}
- L16400: {
+  goto L15995;}
+ L16407: {
   skip_1089X = arg0K0;
   if ((total_arg_count_794X < 3)) {
     arg0K0 = total_arg_count_794X;
-    goto L16408;}
+    goto L16415;}
   else {
     if ((2 < stack_arg_count_788X)) {
       arg0K0 = stack_arg_count_788X;
-      goto L16408;}
+      goto L16415;}
     else {
       arg0K0 = 2;
-      goto L16408;}}}
- L19296: {
+      goto L16415;}}}
+ L19303: {
   SvalS = (*((long *) ((((char *) (-3 + cont_971X))) + 16)));
   arg0K0 = stack_nargs_805X;
   arg0K1 = list_args_806X;
   arg0K2 = list_arg_count_807X;
-  goto L17680;}
- L20458: {
+  goto L17687;}
+ L20465: {
   merged_arg0K0 = list_args_806X;
   merged_arg0K1 = stack_nargs_805X;
   pop_args_GlistS_return_tag = 4;
@@ -8489,55 +8489,55 @@ long s48_restart(long proc_346X, long nargs_347X)
   *((long *) (SstackS)) = args_1090X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16679;}
- L10647: {
+  goto L16686;}
+ L10654: {
   if ((3 == (3 & x_457X))) {
-    if ((10 == (31 & ((((*((long *) ((((char *) (-3 + x_457X))) + -4))))>>2))))) {
+    if ((11 == (31 & ((((*((long *) ((((char *) (-3 + x_457X))) + -4))))>>2))))) {
       arg0K0 = 5;
-      goto L38249;}
+      goto L38256;}
     else {
       arg0K0 = 1;
-      goto L38249;}}
+      goto L38256;}}
   else {
     arg0K0 = 1;
-    goto L38249;}}
- L28571: {
+    goto L38256;}}
+ L28578: {
   if ((3 == (3 & n_459X))) {
-    if ((10 == (31 & ((((*((long *) ((((char *) (-3 + n_459X))) + -4))))>>2))))) {
+    if ((11 == (31 & ((((*((long *) ((((char *) (-3 + n_459X))) + -4))))>>2))))) {
       push_exception_continuationB(5, 1);
       *((long *) (SstackS)) = n_459X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 1;
-      goto L16679;}
+      goto L16686;}
     else {
-      goto L28575;}}
+      goto L28582;}}
   else {
-    goto L28575;}}
- L28770: {
+    goto L28582;}}
+ L28777: {
   if ((3 == (3 & n_460X))) {
-    if ((10 == (31 & ((((*((long *) ((((char *) (-3 + n_460X))) + -4))))>>2))))) {
+    if ((11 == (31 & ((((*((long *) ((((char *) (-3 + n_460X))) + -4))))>>2))))) {
       push_exception_continuationB(5, 1);
       *((long *) (SstackS)) = n_460X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 1;
-      goto L16679;}
+      goto L16686;}
     else {
-      goto L28774;}}
+      goto L28781;}}
   else {
-    goto L28774;}}
- L28969: {
+    goto L28781;}}
+ L28976: {
   if ((3 == (3 & n_461X))) {
-    if ((10 == (31 & ((((*((long *) ((((char *) (-3 + n_461X))) + -4))))>>2))))) {
+    if ((11 == (31 & ((((*((long *) ((((char *) (-3 + n_461X))) + -4))))>>2))))) {
       push_exception_continuationB(5, 1);
       *((long *) (SstackS)) = n_461X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 1;
-      goto L16679;}
+      goto L16686;}
     else {
-      goto L28973;}}
+      goto L28980;}}
   else {
-    goto L28973;}}
- L6834: {
+    goto L28980;}}
+ L6841: {
   if ((536870911 < lo_c_982X)) {
     push_exception_continuationB(5, 1);
     *((long *) (SstackS)) = arg2_468X;
@@ -8545,7 +8545,7 @@ long s48_restart(long proc_346X, long nargs_347X)
     *((long *) (SstackS)) = x_469X;
     SstackS = ((SstackS) + -4);
     arg0K0 = 2;
-    goto L16679;}
+    goto L16686;}
   else {
     if ((lo_c_982X < 0)) {
       push_exception_continuationB(5, 1);
@@ -8554,7 +8554,7 @@ long s48_restart(long proc_346X, long nargs_347X)
       *((long *) (SstackS)) = x_469X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 2;
-      goto L16679;}
+      goto L16686;}
     else {
       if ((8192 < mid_c_985X)) {
         push_exception_continuationB(5, 1);
@@ -8563,19 +8563,19 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = x_469X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16679;}
+        goto L16686;}
       else {
         if ((a_470X < 0)) {
-          if ((b_471X < 0)) {
-            goto L6861;}
-          else {
-            goto L6868;}}
-        else {
           if ((b_471X < 0)) {
             goto L6868;}
           else {
-            goto L6861;}}}}}}
- L7128: {
+            goto L6875;}}
+        else {
+          if ((b_471X < 0)) {
+            goto L6875;}
+          else {
+            goto L6868;}}}}}}
+ L7135: {
   if ((536870911 < c_988X)) {
     push_exception_continuationB(5, 1);
     *((long *) (SstackS)) = arg2_475X;
@@ -8583,18 +8583,18 @@ long s48_restart(long proc_346X, long nargs_347X)
     *((long *) (SstackS)) = x_476X;
     SstackS = ((SstackS) + -4);
     arg0K0 = 2;
-    goto L16679;}
+    goto L16686;}
   else {
     SvalS = (((c_988X)<<2));
     Scode_pointerS = ((Scode_pointerS) + 1);
     arg1K0 = (Scode_pointerS);
-    goto L18452;}}
- L7127: {
+    goto L18459;}}
+ L7134: {
   SvalS = ((((0 - c_988X))<<2));
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L7296: {
+  goto L18459;}
+ L7303: {
   if ((536870911 < c_991X)) {
     push_exception_continuationB(5, 1);
     *((long *) (SstackS)) = arg2_489X;
@@ -8602,37 +8602,37 @@ long s48_restart(long proc_346X, long nargs_347X)
     *((long *) (SstackS)) = x_490X;
     SstackS = ((SstackS) + -4);
     arg0K0 = 2;
-    goto L16679;}
+    goto L16686;}
   else {
     SvalS = (((c_991X)<<2));
     Scode_pointerS = ((Scode_pointerS) + 1);
     arg1K0 = (Scode_pointerS);
-    goto L18452;}}
- L7295: {
+    goto L18459;}}
+ L7302: {
   SvalS = ((((0 - c_991X))<<2));
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L25366: {
+  goto L18459;}
+ L25373: {
   n_1091X = arg0K0;
   SvalS = (((n_1091X)<<2));
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L21537: {
+  goto L18459;}
+ L21544: {
   i_1092X = arg0K0;
   rest_list_1093X = arg0K1;
   if ((25 == rest_list_1093X)) {
     SvalS = new_842X;
     Scode_pointerS = ((Scode_pointerS) + 2);
     arg1K0 = (Scode_pointerS);
-    goto L18452;}
+    goto L18459;}
   else {
     *((long *) ((((char *) (-3 + new_842X))) + (((i_1092X)<<2)))) = (*((long *) (((char *) (-3 + rest_list_1093X)))));
     arg0K0 = (1 + i_1092X);
     arg0K1 = (*((long *) ((((char *) (-3 + rest_list_1093X))) + 4)));
-    goto L21537;}}
- L13315: {
+    goto L21544;}}
+ L13322: {
   foo_1094X = arg0K0;
   if ((1 == foo_1094X)) {
     addr_1095X = ALLOCATE_SPACE(1, 12);
@@ -8644,19 +8644,19 @@ long s48_restart(long proc_346X, long nargs_347X)
     S48_WRITE_BARRIER(table_856X, addr_1097X, x_1096X);
     *((long *) addr_1097X) = x_1096X;
     arg0K0 = x_1096X;
-    goto L24551;}
+    goto L24558;}
   else {
     s2_1098X = *((long *) (((char *) (-3 + foo_1094X))));
     len_1099X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + string_857X))) + -4))))>>8);
     if ((len_1099X == ((long)(((unsigned long)(*((long *) ((((char *) (-3 + s2_1098X))) + -4))))>>8)))) {
       if (((!memcmp((void *)(((char *) (-3 + s2_1098X))), (void *)(((char *) (-3 + string_857X))),len_1099X)))) {
         arg0K0 = foo_1094X;
-        goto L24551;}
+        goto L24558;}
       else {
-        goto L13331;}}
+        goto L13338;}}
     else {
-      goto L13331;}}}
- L26795: {
+      goto L13338;}}}
+ L26802: {
   if ((0 == (3 & arg2_1005X))) {
     if (((((arg2_1005X)>>2)) < 0)) {
       push_exception_continuationB(5, 1);
@@ -8665,23 +8665,23 @@ long s48_restart(long proc_346X, long nargs_347X)
       *((long *) (SstackS)) = (((mode_1006X)<<2));
       SstackS = ((SstackS) + -4);
       arg0K0 = 2;
-      goto L16679;}
+      goto L16686;}
     else {
       arg0K0 = (((arg2_1005X)>>2));
-      goto L26615;}}
+      goto L26622;}}
   else {
     if ((3 == (3 & arg2_1005X))) {
-      if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg2_1005X))) + -4))))>>2))))) {
+      if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg2_1005X))) + -4))))>>2))))) {
         if ((1 == mode_1006X)) {
-          goto L26673;}
+          goto L26680;}
         else {
           if ((3 == mode_1006X)) {
-            goto L26673;}
+            goto L26680;}
           else {
             v_1100X = ps_open_fd((((char *)(((char *) (-3 + arg2_1005X))))), 0, &v_1101X);
             arg0K0 = v_1100X;
             arg0K1 = v_1101X;
-            goto L26686;}}}
+            goto L26693;}}}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = arg2_1005X;
@@ -8689,7 +8689,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = (((mode_1006X)<<2));
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16679;}}
+        goto L16686;}}
     else {
       push_exception_continuationB(5, 1);
       *((long *) (SstackS)) = arg2_1005X;
@@ -8697,29 +8697,29 @@ long s48_restart(long proc_346X, long nargs_347X)
       *((long *) (SstackS)) = (((mode_1006X)<<2));
       SstackS = ((SstackS) + -4);
       arg0K0 = 2;
-      goto L16679;}}}
- L34671: {
+      goto L16686;}}}
+ L34678: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16679;}
- L37515: {
+  goto L16686;}
+ L37522: {
   obj_1102X = SvalS;
   if ((3 == (3 & obj_1102X))) {
-    if ((5 == (31 & ((((*((long *) ((((char *) (-3 + obj_1102X))) + -4))))>>2))))) {
+    if ((6 == (31 & ((((*((long *) ((((char *) (-3 + obj_1102X))) + -4))))>>2))))) {
       x_1103X = SvalS;
       if ((1 == arg2_1013X)) {
         arg2K0 = 0;
-        goto L37532;}
+        goto L37539;}
       else {
         arg2K0 = 1;
-        goto L37532;}}
+        goto L37539;}}
     else {
-      goto L37535;}}
+      goto L37542;}}
   else {
-    goto L37535;}}
- L37535: {
+    goto L37542;}}
+ L37542: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = arg5_1016X;
   SstackS = ((SstackS) + -4);
@@ -8732,27 +8732,27 @@ long s48_restart(long proc_346X, long nargs_347X)
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 5;
-  goto L16679;}
- L37066: {
-  if ((3 == (3 & arg4_1020X))) {
-    if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg4_1020X))) + -4))))>>2))))) {
-      arg0K0 = (-1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg4_1020X))) + -4))))>>8)));
-      goto L37078;}
-    else {
-      goto L37074;}}
-  else {
-    goto L37074;}}
- L37058: {
+  goto L16686;}
+ L37073: {
   if ((3 == (3 & arg4_1020X))) {
     if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg4_1020X))) + -4))))>>2))))) {
-      goto L37066;}
+      arg0K0 = (-1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg4_1020X))) + -4))))>>8)));
+      goto L37085;}
+    else {
+      goto L37081;}}
+  else {
+    goto L37081;}}
+ L37065: {
+  if ((3 == (3 & arg4_1020X))) {
+    if ((18 == (31 & ((((*((long *) ((((char *) (-3 + arg4_1020X))) + -4))))>>2))))) {
+      goto L37073;}
     else {
       arg0K0 = 5;
-      goto L36949;}}
+      goto L36956;}}
   else {
     arg0K0 = 5;
-    goto L36949;}}
- L36949: {
+    goto L36956;}}
+ L36956: {
   reason_1104X = arg0K0;
   push_exception_continuationB(reason_1104X, 1);
   *((long *) (SstackS)) = arg4_1020X;
@@ -8764,8 +8764,8 @@ long s48_restart(long proc_346X, long nargs_347X)
   *((long *) (SstackS)) = channel_1024X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 4;
-  goto L16679;}
- L37797: {
+  goto L16686;}
+ L37804: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = arg4_1020X;
   SstackS = ((SstackS) + -4);
@@ -8776,25 +8776,25 @@ long s48_restart(long proc_346X, long nargs_347X)
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 4;
-  goto L16679;}
- L29270: {
+  goto L16686;}
+ L29277: {
   val_1105X = arg0K0;
   SvalS = val_1105X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L34156: {
+  goto L18459;}
+ L34163: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16679;}
- L14812: {
+  goto L16686;}
+ L14819: {
   v_1106X = arg0K0;
   arg0K0 = (-1 + i_1035X);
   arg0K1 = v_1106X;
-  goto L14798;}
- L30318: {
+  goto L14805;}
+ L30325: {
   reason_1107X = arg0K0;
   status_1108X = arg0K1;
   push_exception_continuationB(reason_1107X, 1);
@@ -8813,8 +8813,8 @@ long s48_restart(long proc_346X, long nargs_347X)
   *((long *) (SstackS)) = x_1109X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 4;
-  goto L16679;}
- L34768: {
+  goto L16686;}
+ L34775: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = arg3_1042X;
   SstackS = ((SstackS) + -4);
@@ -8823,100 +8823,100 @@ long s48_restart(long proc_346X, long nargs_347X)
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 3;
-  goto L16679;}
- L34340: {
+  goto L16686;}
+ L34347: {
   SvalS = 13;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L34345: {
+  goto L18459;}
+ L34352: {
   if ((0 == (Spending_interruptsS))) {
     s48_wait_for_event((((arg2_682X)>>2)), minutesP_1055X);
-    goto L34340;}
+    goto L34347;}
   else {
-    goto L34340;}}
- L33519: {
+    goto L34347;}}
+ L33526: {
   if ((1 == (SvalS))) {
-    v_1110X = Hlookup2112((Sexported_bindingsS), arg2_1058X, key_1057X);
+    v_1110X = Hlookup2132((Sexported_bindingsS), arg2_1058X, key_1057X);
     arg0K0 = v_1110X;
-    goto L33576;}
+    goto L33583;}
   else {
-    v_1111X = Hlookup2093((Simported_bindingsS), arg2_1058X, key_1057X);
+    v_1111X = Hlookup2113((Simported_bindingsS), arg2_1058X, key_1057X);
     arg0K0 = v_1111X;
-    goto L33576;}}
- L33524: {
+    goto L33583;}}
+ L33531: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = arg2_1058X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16679;}
- L12894: {
+  goto L16686;}
+ L12901: {
   i_1112X = arg0K0;
   h_1113X = arg0K1;
   if ((i_1112X < n_1061X)) {
     arg0K0 = (1 + i_1112X);
     arg0K1 = (h_1113X + (((*((unsigned char *) ((((char *) (-3 + arg2_690X))) + i_1112X))))));
-    goto L12894;}
+    goto L12901;}
   else {
     index_1114X = 1023 & h_1113X;
     bucket_1115X = *((long *) ((((char *) (-3 + table_1060X))) + (((index_1114X)<<2))));
     arg0K0 = 1;
     arg0K1 = bucket_1115X;
-    goto L12858;}}
- L27368: {
+    goto L12865;}}
+ L27375: {
   l_1116X = arg0K0;
   i_1117X = arg0K1;
   if ((i_1117X < 0)) {
     SvalS = string_1064X;
     Scode_pointerS = ((Scode_pointerS) + 1);
     arg1K0 = (Scode_pointerS);
-    goto L18452;}
+    goto L18459;}
   else {
     *((unsigned char *) ((((char *) (-3 + string_1064X))) + i_1117X)) = ((((((*((long *) (((char *) (-3 + l_1116X))))))>>8))));
     arg0K0 = (*((long *) ((((char *) (-3 + l_1116X))) + 4)));
     arg0K1 = (-1 + i_1117X);
-    goto L27368;}}
- L31123: {
+    goto L27375;}}
+ L31130: {
   y_1118X = arg0K0;
   if ((y_1118X < (from_index_731X + count_733X))) {
-    goto L31156;}
+    goto L31163;}
   else {
     if ((3 == (3 & arg3_728X))) {
-      if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg3_728X))) + -4))))>>2))))) {
+      if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg3_728X))) + -4))))>>2))))) {
         arg0K0 = (-1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg3_728X))) + -4))))>>8)));
-        goto L31138;}
+        goto L31145;}
       else {
-        goto L31134;}}
+        goto L31141;}}
     else {
-      goto L31134;}}}
- L31119: {
+      goto L31141;}}}
+ L31126: {
   arg0K0 = ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg5_730X))) + -4))))>>8));
-  goto L31123;}
- L11706: {
+  goto L31130;}
+ L11713: {
   v_1119X = arg3K0;
   ps_write_string(v_1119X, out_742X);
-  goto L29592;}
- L11672: {
+  goto L29599;}
+ L11679: {
   if ((3 == (3 & thing_942X))) {
     if ((1 == (31 & ((((*((long *) ((((char *) (-3 + thing_942X))) + -4))))>>2))))) {
       arg3K0 = (((char *)(((char *) (-3 + (*((long *) (((char *) (-3 + thing_942X))))))))));
-      goto L11706;}
+      goto L11713;}
     else {
-      goto L11680;}}
+      goto L11687;}}
   else {
-    goto L11680;}}
- L21075: {
+    goto L11687;}}
+ L21082: {
   arg0K0 = (SenvS);
-  goto L20985;}
- L20999: {
+  goto L20992;}
+ L21006: {
   value_1120X = arg0K0;
   SvalS = value_1120X;
   Scode_pointerS = ((Scode_pointerS) + 4);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L20898: {
+  goto L18459;}
+ L20905: {
   env_1121X = arg0K0;
   i_1122X = arg0K1;
   if ((0 == i_1122X)) {
@@ -8924,85 +8924,85 @@ long s48_restart(long proc_346X, long nargs_347X)
     arg0K0 = count_1123X;
     arg0K1 = i_1072X;
     arg0K2 = (2 + offset_1073X);
-    goto L20819;}
+    goto L20826;}
   else {
     arg0K0 = (*((long *) (((char *) (-3 + env_1121X)))));
     arg0K1 = (-1 + i_1122X);
-    goto L20898;}}
- L16932: {
+    goto L20905;}}
+ L16939: {
   arg_count_1124X = arg0K0;
   obj_1125X = Sinterrupt_handlersS;
   if ((3 == (3 & obj_1125X))) {
     if ((2 == (31 & ((((*((long *) ((((char *) (-3 + obj_1125X))) + -4))))>>2))))) {
-      goto L16946;}
+      goto L16953;}
     else {
-      goto L17026;}}
+      goto L17033;}}
   else {
-    goto L17026;}}
- L8377: {
+    goto L17033;}}
+ L8384: {
   channel_1126X = arg0K0;
   x_1127X = 1 == (Spending_channels_headS);
   if (x_1127X) {
-    goto L8391;}
+    goto L8398;}
   else {
     Spending_interruptsS = (8 | (Spending_interruptsS));
     if ((0 == ((Spending_interruptsS) & (Senabled_interruptsS)))) {
       s48_Spending_interruptPS = 0;
       if ((s48_Spending_eventsPS)) {
         s48_Spending_interruptPS = 1;
-        goto L8391;}
+        goto L8398;}
       else {
-        goto L8391;}}
+        goto L8398;}}
     else {
       s48_Spending_interruptPS = 1;
-      goto L8391;}}}
- L15988: {
+      goto L8398;}}}
+ L15995: {
   stack_slots_1128X = arg0K0;
   stack_arg_count_1129X = arg0K1;
   if ((stack_slots_1128X < (64 + (((((SstackS) - (Sstack_limitS)))>>2))))) {
-    goto L15990;}
+    goto L15997;}
   else {
     space_1130X = 1 + (((((Sstack_endS) - (SstackS)))>>2));
     v_1131X = AVAILABLEp(space_1130X);
     if (v_1131X) {
       arg2K0 = 1;
       arg0K1 = 0;
-      goto L16047;}
+      goto L16054;}
     else {
       collect_saving_temps(1, 1, &temp1_1132X);
       v_1133X = AVAILABLEp(space_1130X);
       if (v_1133X) {
         arg2K0 = 1;
         arg0K1 = 0;
-        goto L16047;}
+        goto L16054;}
       else {
         arg2K0 = 0;
         arg0K1 = 0;
-        goto L16047;}}}}
- L16408: {
+        goto L16054;}}}}
+ L16415: {
   final_stack_arg_count_1134X = arg0K0;
   if ((stack_arg_count_788X < final_stack_arg_count_1134X)) {
     arg0K0 = final_stack_arg_count_1134X;
-    goto L16412;}
+    goto L16419;}
   else {
     arg0K0 = stack_arg_count_788X;
-    goto L16412;}}
- L28575: {
+    goto L16419;}}
+ L28582: {
   SvalS = 1;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L28774: {
+  goto L18459;}
+ L28781: {
   SvalS = 1;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L28973: {
+  goto L18459;}
+ L28980: {
   SvalS = 1;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L6861: {
+  goto L18459;}
+ L6868: {
   if ((536870911 < c_986X)) {
     push_exception_continuationB(5, 1);
     *((long *) (SstackS)) = arg2_468X;
@@ -9010,13 +9010,13 @@ long s48_restart(long proc_346X, long nargs_347X)
     *((long *) (SstackS)) = x_469X;
     SstackS = ((SstackS) + -4);
     arg0K0 = 2;
-    goto L16679;}
+    goto L16686;}
   else {
     SvalS = (((c_986X)<<2));
     Scode_pointerS = ((Scode_pointerS) + 1);
     arg1K0 = (Scode_pointerS);
-    goto L18452;}}
- L6868: {
+    goto L18459;}}
+ L6875: {
   if ((536870912 < c_986X)) {
     push_exception_continuationB(5, 1);
     *((long *) (SstackS)) = arg2_468X;
@@ -9024,36 +9024,36 @@ long s48_restart(long proc_346X, long nargs_347X)
     *((long *) (SstackS)) = x_469X;
     SstackS = ((SstackS) + -4);
     arg0K0 = 2;
-    goto L16679;}
+    goto L16686;}
   else {
     SvalS = ((((0 - c_986X))<<2));
     Scode_pointerS = ((Scode_pointerS) + 1);
     arg1K0 = (Scode_pointerS);
-    goto L18452;}}
- L24551: {
+    goto L18459;}}
+ L24558: {
   val_1135X = arg0K0;
   SvalS = val_1135X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L13331: {
+  goto L18459;}
+ L13338: {
   arg0K0 = (*((long *) ((((char *) (-3 + foo_1094X))) + 4)));
-  goto L13315;}
- L26615: {
+  goto L13322;}
+ L26622: {
   index_1136X = arg0K0;
   channel_1137X = make_registered_channel(mode_1006X, arg2_1005X, index_1136X, key_1004X, &reason_1138X);
   if ((1 == channel_1137X)) {
     if ((3 == (3 & arg2_1005X))) {
-      if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg2_1005X))) + -4))))>>2))))) {
+      if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg2_1005X))) + -4))))>>2))))) {
         if ((1 == mode_1006X)) {
-          goto L26730;}
+          goto L26737;}
         else {
           if ((3 == mode_1006X)) {
-            goto L26730;}
+            goto L26737;}
           else {
             v_1139X = ps_close_fd(index_1136X);
             arg0K0 = v_1139X;
-            goto L26725;}}}
+            goto L26732;}}}
       else {
         push_exception_continuationB(reason_1138X, 1);
         *((long *) (SstackS)) = arg2_1005X;
@@ -9061,7 +9061,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         *((long *) (SstackS)) = (((mode_1006X)<<2));
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16679;}}
+        goto L16686;}}
     else {
       push_exception_continuationB(reason_1138X, 1);
       *((long *) (SstackS)) = arg2_1005X;
@@ -9069,23 +9069,23 @@ long s48_restart(long proc_346X, long nargs_347X)
       *((long *) (SstackS)) = (((mode_1006X)<<2));
       SstackS = ((SstackS) + -4);
       arg0K0 = 2;
-      goto L16679;}}
+      goto L16686;}}
   else {
     SvalS = channel_1137X;
     Scode_pointerS = ((Scode_pointerS) + 1);
     arg1K0 = (Scode_pointerS);
-    goto L18452;}}
- L26673: {
+    goto L18459;}}
+ L26680: {
   v_1140X = ps_open_fd((((char *)(((char *) (-3 + arg2_1005X))))), 1, &v_1141X);
   arg0K0 = v_1140X;
   arg0K1 = v_1141X;
-  goto L26686;}
- L26686: {
+  goto L26693;}
+ L26693: {
   channel_1142X = arg0K0;
   status_1143X = arg0K1;
   if ((status_1143X == NO_ERRORS)) {
     arg0K0 = channel_1142X;
-    goto L26615;}
+    goto L26622;}
   else {
     if ((status_1143X == ENOENT)) {
       push_exception_continuationB(10, 1);
@@ -9094,7 +9094,7 @@ long s48_restart(long proc_346X, long nargs_347X)
       *((long *) (SstackS)) = (((mode_1006X)<<2));
       SstackS = ((SstackS) + -4);
       arg0K0 = 2;
-      goto L16679;}
+      goto L16686;}
     else {
       push_exception_continuationB(25, 1);
       *((long *) (SstackS)) = arg2_1005X;
@@ -9110,8 +9110,8 @@ long s48_restart(long proc_346X, long nargs_347X)
       *((long *) (SstackS)) = x_1144X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 3;
-      goto L16679;}}}
- L37532: {
+      goto L16686;}}}
+ L37539: {
   waitP_1145X = arg2K0;
   start_1146X = ((arg4_1015X)>>2);
   count_1147X = ((arg3_1014X)>>2);
@@ -9119,26 +9119,26 @@ long s48_restart(long proc_346X, long nargs_347X)
     if ((3 == (3 & arg5_1016X))) {
       if ((0 == (128 & (*((long *) ((((char *) (-3 + arg5_1016X))) + -4)))))) {
         if ((3 == (3 & arg5_1016X))) {
-          if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg5_1016X))) + -4))))>>2))))) {
-            goto L36668;}
+          if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg5_1016X))) + -4))))>>2))))) {
+            goto L36675;}
           else {
-            goto L36660;}}
+            goto L36667;}}
         else {
-          goto L36660;}}
+          goto L36667;}}
       else {
         arg0K0 = 5;
-        goto L36551;}}
+        goto L36558;}}
     else {
       arg0K0 = 5;
-      goto L36551;}}
+      goto L36558;}}
   else {
     arg0K0 = 5;
-    goto L36551;}}
- L37078: {
+    goto L36558;}}
+ L37085: {
   length_1148X = arg0K0;
   if ((length_1148X < (start_1022X + count_1023X))) {
     arg0K0 = 7;
-    goto L36949;}
+    goto L36956;}
   else {
     got_1149X = ps_write_fd(((((*((long *) ((((char *) (-3 + channel_1024X))) + 8))))>>2)), ((((char *) (-3 + arg4_1020X))) + start_1022X), count_1023X, &pendingP_1150X, &status_1151X);
     if ((status_1151X == NO_ERRORS)) {
@@ -9149,12 +9149,12 @@ long s48_restart(long proc_346X, long nargs_347X)
         s48_Spending_interruptPS = 0;
         Senabled_interruptsS = 0;
         arg0K0 = 13;
-        goto L36949;}
+        goto L36956;}
       else {
         SvalS = (((got_1149X)<<2));
         Scode_pointerS = ((Scode_pointerS) + 1);
         arg1K0 = (Scode_pointerS);
-        goto L18452;}}
+        goto L18459;}}
     else {
       push_exception_continuationB(25, 1);
       *((long *) (SstackS)) = arg4_1020X;
@@ -9174,21 +9174,21 @@ long s48_restart(long proc_346X, long nargs_347X)
       *((long *) (SstackS)) = x_1153X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 5;
-      goto L16679;}}}
- L37074: {
+      goto L16686;}}}
+ L37081: {
   arg0K0 = ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg4_1020X))) + -4))))>>8));
-  goto L37078;}
- L33576: {
+  goto L37085;}
+ L33583: {
   val_1154X = arg0K0;
   SvalS = val_1154X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L12858: {
+  goto L18459;}
+ L12865: {
   previous_foo_1155X = arg0K0;
   foo_1156X = arg0K1;
   if ((1 == foo_1156X)) {
-    goto L23962;}
+    goto L23969;}
   else {
     s2_1157X = *((long *) (((char *) (-3 + foo_1156X))));
     len_1158X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + arg2_690X))) + -4))))>>8);
@@ -9199,50 +9199,50 @@ long s48_restart(long proc_346X, long nargs_347X)
           addr_1160X = (((char *) (-3 + table_1060X))) + (((index_1114X)<<2));
           S48_WRITE_BARRIER(table_1060X, addr_1160X, value_1159X);
           *((long *) addr_1160X) = value_1159X;
-          goto L23962;}
+          goto L23969;}
         else {
           val_1161X = *((long *) ((((char *) (-3 + foo_1156X))) + 12));
           addr_1162X = (((char *) (-3 + previous_foo_1155X))) + 12;
           S48_WRITE_BARRIER(previous_foo_1155X, addr_1162X, val_1161X);
           *((long *) addr_1162X) = val_1161X;
-          goto L23962;}}
+          goto L23969;}}
       else {
-        goto L12920;}}
+        goto L12927;}}
     else {
-      goto L12920;}}}
- L31138: {
+      goto L12927;}}}
+ L31145: {
   y_1163X = arg0K0;
   if ((y_1163X < (to_index_732X + count_733X))) {
-    goto L31156;}
+    goto L31163;}
   else {
     memcpy((void *)((((char *) (-3 + arg3_728X))) + to_index_732X), (void *)((((char *) (-3 + arg5_730X))) + from_index_731X),count_733X);
     SvalS = 13;
     Scode_pointerS = ((Scode_pointerS) + 1);
     arg1K0 = (Scode_pointerS);
-    goto L18452;}}
- L31134: {
+    goto L18459;}}
+ L31141: {
   arg0K0 = ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg3_728X))) + -4))))>>8));
-  goto L31138;}
- L11680: {
+  goto L31145;}
+ L11687: {
   if ((1 == thing_942X)) {
-    goto L11683;}
+    goto L11690;}
   else {
     if ((5 == thing_942X)) {
-      goto L11683;}
+      goto L11690;}
     else {
       if ((25 == thing_942X)) {
         arg3K0 = "()";
-        goto L11706;}
+        goto L11713;}
       else {
         if ((3 == (3 & thing_942X))) {
           if ((0 == (31 & ((((*((long *) ((((char *) (-3 + thing_942X))) + -4))))>>2))))) {
             arg3K0 = "(...)";
-            goto L11706;}
+            goto L11713;}
           else {
-            goto L11696;}}
+            goto L11703;}}
         else {
-          goto L11696;}}}}}
- L20819: {
+          goto L11703;}}}}}
+ L20826: {
   count_1164X = arg0K0;
   i_1165X = arg0K1;
   offset_1166X = arg0K2;
@@ -9250,7 +9250,7 @@ long s48_restart(long proc_346X, long nargs_347X)
     arg0K0 = i_1165X;
     arg0K1 = offset_1166X;
     arg0K2 = env_1121X;
-    goto L20802;}
+    goto L20809;}
   else {
     value_1167X = *((long *) ((((char *) (-3 + env_1121X))) + ((((*((unsigned char *) ((Scode_pointerS) + (1 + offset_1166X)))))<<2))));
     addr_1168X = (((char *) (-3 + new_env_766X))) + (((i_1165X)<<2));
@@ -9259,23 +9259,23 @@ long s48_restart(long proc_346X, long nargs_347X)
     arg0K0 = (-1 + count_1164X);
     arg0K1 = (1 + i_1165X);
     arg0K2 = (1 + offset_1166X);
-    goto L20819;}}
- L16946: {
+    goto L20826;}}
+ L16953: {
   Senabled_interruptsS = 0;
   if ((0 == ((Spending_interruptsS) & (Senabled_interruptsS)))) {
     s48_Spending_interruptPS = 0;
     if ((s48_Spending_eventsPS)) {
       s48_Spending_interruptPS = 1;
-      goto L16948;}
+      goto L16955;}
     else {
-      goto L16948;}}
+      goto L16955;}}
   else {
     s48_Spending_interruptPS = 1;
-    goto L16948;}}
- L17026: {
+    goto L16955;}}
+ L17033: {
   ps_error("interrupt handler is not a vector", 0);
-  goto L16946;}
- L8391: {
+  goto L16953;}
+ L8398: {
   *((long *) (SstackS)) = channel_1126X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = (*((long *) ((((char *) (-3 + channel_1126X))) + 16)));
@@ -9283,8 +9283,8 @@ long s48_restart(long proc_346X, long nargs_347X)
   *((long *) (SstackS)) = ((((Senabled_interruptsS))<<2));
   SstackS = ((SstackS) + -4);
   arg0K0 = 3;
-  goto L16932;}
- L15990: {
+  goto L16939;}
+ L15997: {
   if ((s48_Spending_interruptPS)) {
     if ((s48_Spending_eventsPS)) {
       s48_Spending_eventsPS = 0;
@@ -9294,25 +9294,25 @@ long s48_restart(long proc_346X, long nargs_347X)
       v_1169X = check_events0_return_value;
       if (v_1169X) {
         arg0K0 = stack_arg_count_1129X;
-        goto L16908;}
+        goto L16915;}
       else {
-        goto L15994;}}
+        goto L16001;}}
     else {
       arg0K0 = stack_arg_count_1129X;
-      goto L16908;}}
+      goto L16915;}}
   else {
-    goto L15994;}}
- L16047: {
+    goto L16001;}}
+ L16054: {
   okayP_1170X = arg2K0;
   key_1171X = arg0K1;
   if (okayP_1170X) {
     arg0K0 = key_1171X;
-    goto L16001;}
+    goto L16008;}
   else {
     ps_error("Scheme48 heap overflow", 0);
     arg0K0 = key_1171X;
-    goto L16001;}}
- L16412: {
+    goto L16008;}}
+ L16419: {
   v_1172X = arg0K0;
   merged_arg0K0 = v_1172X;
   merged_arg0K1 = stack_arg_count_788X;
@@ -9327,12 +9327,12 @@ long s48_restart(long proc_346X, long nargs_347X)
   SstackS = ((SstackS) + -4);
   arg0K0 = skip_1089X;
   arg0K1 = (3 + final_stack_arg_count_1134X);
-  goto L16375;}
- L26730: {
+  goto L16382;}
+ L26737: {
   v_1173X = ps_close_fd(index_1136X);
   arg0K0 = v_1173X;
-  goto L26725;}
- L26725: {
+  goto L26732;}
+ L26732: {
   status_1174X = arg0K0;
   if ((status_1174X == NO_ERRORS)) {
     push_exception_continuationB(reason_1138X, 1);
@@ -9341,7 +9341,7 @@ long s48_restart(long proc_346X, long nargs_347X)
     *((long *) (SstackS)) = (((mode_1006X)<<2));
     SstackS = ((SstackS) + -4);
     arg0K0 = 2;
-    goto L16679;}
+    goto L16686;}
   else {
     channel_close_error(status_1174X, index_1136X, arg2_1005X);
     push_exception_continuationB(reason_1138X, 1);
@@ -9350,27 +9350,27 @@ long s48_restart(long proc_346X, long nargs_347X)
     *((long *) (SstackS)) = (((mode_1006X)<<2));
     SstackS = ((SstackS) + -4);
     arg0K0 = 2;
-    goto L16679;}}
- L36668: {
-  if ((3 == (3 & arg5_1016X))) {
-    if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg5_1016X))) + -4))))>>2))))) {
-      arg0K0 = (-1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg5_1016X))) + -4))))>>8)));
-      goto L36680;}
-    else {
-      goto L36676;}}
-  else {
-    goto L36676;}}
- L36660: {
+    goto L16686;}}
+ L36675: {
   if ((3 == (3 & arg5_1016X))) {
     if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg5_1016X))) + -4))))>>2))))) {
-      goto L36668;}
+      arg0K0 = (-1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg5_1016X))) + -4))))>>8)));
+      goto L36687;}
+    else {
+      goto L36683;}}
+  else {
+    goto L36683;}}
+ L36667: {
+  if ((3 == (3 & arg5_1016X))) {
+    if ((18 == (31 & ((((*((long *) ((((char *) (-3 + arg5_1016X))) + -4))))>>2))))) {
+      goto L36675;}
     else {
       arg0K0 = 5;
-      goto L36551;}}
+      goto L36558;}}
   else {
     arg0K0 = 5;
-    goto L36551;}}
- L36551: {
+    goto L36558;}}
+ L36558: {
   reason_1175X = arg0K0;
   push_exception_continuationB(reason_1175X, 1);
   *((long *) (SstackS)) = arg5_1016X;
@@ -9381,63 +9381,63 @@ long s48_restart(long proc_346X, long nargs_347X)
   SstackS = ((SstackS) + -4);
   if (waitP_1145X) {
     arg0K0 = 5;
-    goto L36566;}
+    goto L36573;}
   else {
     arg0K0 = 1;
-    goto L36566;}}
- L23962: {
+    goto L36573;}}
+ L23969: {
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18452;}
- L12920: {
+  goto L18459;}
+ L12927: {
   arg0K0 = foo_1156X;
   arg0K1 = (*((long *) ((((char *) (-3 + foo_1156X))) + 12)));
-  goto L12858;}
- L11683: {
+  goto L12865;}
+ L11690: {
   if ((1 == thing_942X)) {
     arg3K0 = "#f";
-    goto L11706;}
+    goto L11713;}
   else {
     arg3K0 = "#t";
-    goto L11706;}}
- L11696: {
+    goto L11713;}}
+ L11703: {
   if ((3 == (3 & thing_942X))) {
     if ((2 == (31 & ((((*((long *) ((((char *) (-3 + thing_942X))) + -4))))>>2))))) {
       arg3K0 = "#(...)";
-      goto L11706;}
+      goto L11713;}
     else {
-      goto L11700;}}
+      goto L11707;}}
   else {
-    goto L11700;}}
- L16948: {
+    goto L11707;}}
+ L16955: {
   SvalS = (*((long *) ((((char *) (-3 + (Sinterrupt_handlersS)))) + (((i_1077X)<<2)))));
   obj_1176X = SvalS;
   if ((3 == (3 & obj_1176X))) {
     if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_1176X))) + -4))))>>2))))) {
-      goto L16965;}
+      goto L16972;}
     else {
-      goto L17051;}}
+      goto L17058;}}
   else {
-    goto L17051;}}
- L15994: {
-  arg1K0 = (Scode_pointerS);
-  goto L18452;}
+    goto L17058;}}
  L16001: {
+  arg1K0 = (Scode_pointerS);
+  goto L18459;}
+ L16008: {
   v_1177X = arg0K0;
   merged_arg0K0 = v_1177X;
   copy_stack_into_heap_return_tag = 3;
   goto copy_stack_into_heap;
  copy_stack_into_heap_return_3:
   if ((stack_slots_1128X < (64 + (((((SstackS) - (Sstack_limitS)))>>2))))) {
-    goto L15990;}
+    goto L15997;}
   else {
     ps_error("VM's stack is too small (how can this happen?)", 0);
-    goto L15990;}}
- L36680: {
+    goto L15997;}}
+ L36687: {
   length_1178X = arg0K0;
   if ((length_1178X < (start_1146X + count_1147X))) {
     arg0K0 = 7;
-    goto L36551;}
+    goto L36558;}
   else {
     got_1179X = ps_read_fd(((((*((long *) ((((char *) (-3 + x_1103X))) + 8))))>>2)), ((((char *) (-3 + arg5_1016X))) + start_1146X), count_1147X, waitP_1145X, &eofP_1180X, &pendingP_1181X, &status_1182X);
     if ((status_1182X == NO_ERRORS)) {
@@ -9445,7 +9445,7 @@ long s48_restart(long proc_346X, long nargs_347X)
         SvalS = 21;
         Scode_pointerS = ((Scode_pointerS) + 1);
         arg1K0 = (Scode_pointerS);
-        goto L18452;}
+        goto L18459;}
       else {
         if (pendingP_1181X) {
           addr_1183X = (((char *) (-3 + x_1103X))) + 16;
@@ -9454,12 +9454,12 @@ long s48_restart(long proc_346X, long nargs_347X)
           s48_Spending_interruptPS = 0;
           Senabled_interruptsS = 0;
           arg0K0 = 13;
-          goto L36551;}
+          goto L36558;}
         else {
           SvalS = (((got_1179X)<<2));
           Scode_pointerS = ((Scode_pointerS) + 1);
           arg1K0 = (Scode_pointerS);
-          goto L18452;}}}
+          goto L18459;}}}
     else {
       push_exception_continuationB(25, 1);
       *((long *) (SstackS)) = arg5_1016X;
@@ -9470,41 +9470,41 @@ long s48_restart(long proc_346X, long nargs_347X)
       SstackS = ((SstackS) + -4);
       if (waitP_1145X) {
         arg0K0 = 5;
-        goto L36603;}
+        goto L36610;}
       else {
         arg0K0 = 1;
-        goto L36603;}}}}
- L36676: {
+        goto L36610;}}}}
+ L36683: {
   arg0K0 = ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg5_1016X))) + -4))))>>8));
-  goto L36680;}
- L36566: {
+  goto L36687;}
+ L36573: {
   x_1184X = arg0K0;
   *((long *) (SstackS)) = x_1184X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = x_1103X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 5;
-  goto L16679;}
- L11700: {
+  goto L16686;}
+ L11707: {
   if ((3 == (3 & thing_942X))) {
     if ((3 == (31 & ((((*((long *) ((((char *) (-3 + thing_942X))) + -4))))>>2))))) {
       arg3K0 = "#{procedure}";
-      goto L11706;}
+      goto L11713;}
     else {
       arg3K0 = "???";
-      goto L11706;}}
+      goto L11713;}}
   else {
     arg3K0 = "???";
-    goto L11706;}}
- L16965: {
+    goto L11713;}}
+ L16972: {
   StemplateS = (SvalS);
   Slosing_opcodeS = (0 - i_1077X);
   arg0K0 = arg_count_1124X;
-  goto L16080;}
- L17051: {
+  goto L16087;}
+ L17058: {
   ps_error("interrupt handler is not a closure", 1, i_1077X);
-  goto L16965;}
- L36603: {
+  goto L16972;}
+ L36610: {
   x_1185X = arg0K0;
   *((long *) (SstackS)) = x_1185X;
   SstackS = ((SstackS) + -4);
@@ -9519,7 +9519,7 @@ long s48_restart(long proc_346X, long nargs_347X)
   *((long *) (SstackS)) = x_1186X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 6;
-  goto L16679;}
+  goto L16686;}
  loseD0: {
   message_370X = merged_arg3K0;{
   why_1187X = (((*((long *) ((SstackS) + (4 + (((nargs_743X)<<2)))))))>>2);
@@ -9529,52 +9529,52 @@ long s48_restart(long proc_346X, long nargs_347X)
   if ((0 == (3 & (*((long *) ((((char *) (-3 + current_template_1188X))) + 4)))))) {
     if ((current_template_1188X == (*((long *) ((((char *) (-3 + (Sbottom_of_stackS)))) + 8))))) {
       arg2K0 = 0;
-      goto L10531;}
+      goto L10538;}
     else {
       ps_write_integer(((((*((long *) ((((char *) (-3 + current_template_1188X))) + 4))))>>2)), out_1189X);
       arg2K0 = 1;
-      goto L10531;}}
+      goto L10538;}}
   else {
     arg2K0 = 0;
-    goto L10531;}}
- L10531: {
+    goto L10538;}}
+ L10538: {
   not_firstP_1190X = arg2K0;
   arg0K0 = (ScontS);
   arg2K1 = not_firstP_1190X;
-  goto L10538;}
- L10538: {
+  goto L10545;}
+ L10545: {
   cont_1191X = arg0K0;
   not_firstP_1192X = arg2K1;
   if ((3 == (3 & cont_1191X))) {
-    if ((9 == (31 & ((((*((long *) ((((char *) (-3 + cont_1191X))) + -4))))>>2))))) {
+    if ((10 == (31 & ((((*((long *) ((((char *) (-3 + cont_1191X))) + -4))))>>2))))) {
       template_1193X = *((long *) ((((char *) (-3 + cont_1191X))) + 8));
       if ((0 == (3 & (*((long *) ((((char *) (-3 + template_1193X))) + 4)))))) {
         if ((template_1193X == (*((long *) ((((char *) (-3 + (Sbottom_of_stackS)))) + 8))))) {
           arg2K0 = not_firstP_1192X;
-          goto L10547;}
+          goto L10554;}
         else {
           if (not_firstP_1192X) {
             ps_write_string(" <- ", out_1189X);
-            goto L10586;}
+            goto L10593;}
           else {
-            goto L10586;}}}
+            goto L10593;}}}
       else {
         arg2K0 = not_firstP_1192X;
-        goto L10547;}}
+        goto L10554;}}
     else {
-      goto L16698;}}
+      goto L16705;}}
   else {
-    goto L16698;}}
- L10547: {
+    goto L16705;}}
+ L10554: {
   v_1194X = arg2K0;
   arg0K0 = (*((long *) (((char *) (-3 + cont_1191X)))));
   arg2K1 = v_1194X;
-  goto L10538;}
- L10586: {
+  goto L10545;}
+ L10593: {
   ps_write_integer(((((*((long *) ((((char *) (-3 + template_1193X))) + 4))))>>2)), out_1189X);
   arg2K0 = 1;
-  goto L10547;}
- L16698: {
+  goto L10554;}
+ L16705: {
   { long ignoreXX;
   PS_WRITE_CHAR(10, (stderr), ignoreXX) }
   if ((why_1187X == 1)) {
@@ -9582,10 +9582,10 @@ long s48_restart(long proc_346X, long nargs_347X)
       ps_error(message_370X, 3, opcode_744X, why_1187X, ((((*((long *) (((char *) (-3 + (*((long *) ((SstackS) + (((nargs_743X)<<2)))))))))))>>2)));
       goto loseD0_return;}
     else {
-      goto L16722;}}
+      goto L16729;}}
   else {
-    goto L16722;}}
- L16722: {
+    goto L16729;}}
+ L16729: {
   ps_error(message_370X, 2, opcode_744X, why_1187X);
   goto loseD0_return;}
  loseD0_return:
@@ -9595,34 +9595,34 @@ long s48_restart(long proc_346X, long nargs_347X)
   }}
 
  check_events: {
-{ goto L40006;}
- L40006: {
+{ goto L40013;}
+ L40013: {
   type_1195X = s48_get_next_event(&channel_1196X, &status_1197X);
   if ((type_1195X == ALARM_EVENT)) {
     if ((1 == (Sinterrupted_templateS))) {
       Sinterrupted_templateS = (StemplateS);
       arg0K0 = 1;
-      goto L15883;}
+      goto L15890;}
     else {
       arg0K0 = 1;
-      goto L15883;}}
+      goto L15890;}}
   else {
     if ((type_1195X == KEYBOARD_INTERRUPT_EVENT)) {
       arg0K0 = 2;
-      goto L15883;}
+      goto L15890;}
     else {
       if ((type_1195X == IO_COMPLETION_EVENT)) {
         enqueue_channelB(channel_1196X, status_1197X);
         arg0K0 = 8;
-        goto L15883;}
+        goto L15890;}
       else {
         if ((type_1195X == OS_SIGNAL_EVENT)) {
           arg0K0 = 16;
-          goto L15883;}
+          goto L15890;}
         else {
           if ((type_1195X == NO_EVENT)) {
             arg0K0 = 0;
-            goto L15883;}
+            goto L15890;}
           else {
             if ((type_1195X == ERROR_EVENT)) {
               ps_write_string("OS error while getting event", (stderr));
@@ -9632,14 +9632,14 @@ long s48_restart(long proc_346X, long nargs_347X)
               { long ignoreXX;
               PS_WRITE_CHAR(10, (stderr), ignoreXX) }
               arg0K0 = 0;
-              goto L15883;}
+              goto L15890;}
             else {
               ps_write_string("unknown type of event", (stderr));
               { long ignoreXX;
               PS_WRITE_CHAR(10, (stderr), ignoreXX) }
               arg0K0 = 0;
-              goto L15883;}}}}}}}
- L15883: {
+              goto L15890;}}}}}}}
+ L15890: {
   v_1198X = arg0K0;
   Spending_interruptsS = (v_1198X | (Spending_interruptsS));
   if ((type_1195X == NO_EVENT)) {
@@ -9647,19 +9647,19 @@ long s48_restart(long proc_346X, long nargs_347X)
       s48_Spending_interruptPS = 0;
       if ((s48_Spending_eventsPS)) {
         s48_Spending_interruptPS = 1;
-        goto L15910;}
+        goto L15917;}
       else {
-        goto L15910;}}
+        goto L15917;}}
     else {
       s48_Spending_interruptPS = 1;
-      goto L15910;}}
+      goto L15917;}}
   else {
-    goto L40006;}}
- L15910: {
+    goto L40013;}}
+ L15917: {
   if ((s48_Spending_interruptPS)) {
     if ((s48_Spending_eventsPS)) {
       s48_Spending_eventsPS = 0;
-      goto L40006;}
+      goto L40013;}
     else {
       check_events0_return_value = 1;
       goto check_events_return;}}
@@ -9736,42 +9736,42 @@ long s48_restart(long proc_346X, long nargs_347X)
   *((long *) (SstackS)) = list_364X;
   SstackS = ((SstackS) + -4);
   if ((count_365X < (64 + (((((SstackS) - (Sstack_limitS)))>>2))))) {
-    goto L15299;}
+    goto L15306;}
   else {
     space_1205X = 1 + (((((Sstack_endS) - (SstackS)))>>2));
     v_1206X = AVAILABLEp(space_1205X);
     if (v_1206X) {
       arg2K0 = 1;
       arg0K1 = 0;
-      goto L15383;}
+      goto L15390;}
     else {
       collect_saving_temps(1, 1, &temp1_1207X);
       v_1208X = AVAILABLEp(space_1205X);
       if (v_1208X) {
         arg2K0 = 1;
         arg0K1 = 0;
-        goto L15383;}
+        goto L15390;}
       else {
         arg2K0 = 0;
         arg0K1 = 0;
-        goto L15383;}}}}
- L15299: {
+        goto L15390;}}}}
+ L15306: {
   SstackS = ((SstackS) + 4);
   list_1209X = *((long *) (SstackS));
   arg0K0 = count_365X;
   arg0K1 = list_1209X;
-  goto L15308;}
- L15383: {
+  goto L15315;}
+ L15390: {
   okayP_1210X = arg2K0;
   key_1211X = arg0K1;
   if (okayP_1210X) {
     arg0K0 = key_1211X;
-    goto L15334;}
+    goto L15341;}
   else {
     ps_error("Scheme48 heap overflow", 0);
     arg0K0 = key_1211X;
-    goto L15334;}}
- L15308: {
+    goto L15341;}}
+ L15315: {
   i_1212X = arg0K0;
   l_1213X = arg0K1;
   if ((0 < i_1212X)) {
@@ -9779,21 +9779,21 @@ long s48_restart(long proc_346X, long nargs_347X)
     SstackS = ((SstackS) + -4);
     arg0K0 = (-1 + i_1212X);
     arg0K1 = (*((long *) ((((char *) (-3 + l_1213X))) + 4)));
-    goto L15308;}
+    goto L15315;}
   else {
     push_list0_return_value = l_1213X;
     goto push_list_return;}}
- L15334: {
+ L15341: {
   v_1214X = arg0K0;
   merged_arg0K0 = v_1214X;
   copy_stack_into_heap_return_tag = 4;
   goto copy_stack_into_heap;
  copy_stack_into_heap_return_4:
   if ((count_365X < (64 + (((((SstackS) - (Sstack_limitS)))>>2))))) {
-    goto L15299;}
+    goto L15306;}
   else {
     ps_error("VM's stack is too small (how can this happen?)", 0);
-    goto L15299;}}
+    goto L15306;}}
  push_list_return:
   switch (push_list_return_tag) {
   case 0: goto push_list_return_0;
@@ -9806,46 +9806,46 @@ long s48_restart(long proc_346X, long nargs_347X)
   key_363X = merged_arg0K0;{
   arg1K0 = ((SstackS) + 4);
   arg0K1 = 0;
-  goto L13528;}
- L13528: {
+  goto L13535;}
+ L13535: {
   p_1215X = arg1K0;
   i_1216X = arg0K1;
   if ((2 == (3 & (*((long *) p_1215X))))) {
-    if ((22 == (*((long *) p_1215X)))) {
+    if ((26 == (*((long *) p_1215X)))) {
       arg0K0 = (-1 + i_1216X);
-      goto L13515;}
+      goto L13522;}
     else {
       arg0K0 = i_1216X;
-      goto L13515;}}
+      goto L13522;}}
   else {
     arg1K0 = (p_1215X + 4);
     arg0K1 = (1 + i_1216X);
-    goto L13528;}}
- L13515: {
+    goto L13535;}}
+ L13522: {
   arg_count_1217X = arg0K0;
   top_1218X = SstackS;
   if ((1 == (ScontS))) {
-    goto L13520;}
+    goto L13527;}
   else {
     merged_arg0K0 = key_363X;
     merged_arg0K1 = 1;
     really_preserve_continuation_return_tag = 1;
     goto really_preserve_continuation;
    really_preserve_continuation_return_1:
-    goto L13520;}}
- L13520: {
+    goto L13527;}}
+ L13527: {
   stob_1219X = ScontS;
   arg1K0 = ((((char *) (-3 + stob_1219X))) + -8);
   arg1K1 = (top_1218X + (((arg_count_1217X)<<2)));
-  goto L13553;}
- L13553: {
+  goto L13560;}
+ L13560: {
   loc_1220X = arg1K0;
   arg_1221X = arg1K1;
   if ((top_1218X < arg_1221X)) {
     *((long *) loc_1220X) = (*((long *) arg_1221X));
     arg1K0 = (loc_1220X + -4);
     arg1K1 = (arg_1221X + -4);
-    goto L13553;}
+    goto L13560;}
   else {
     SstackS = loc_1220X;
     goto copy_stack_into_heap_return;}}
@@ -9864,10 +9864,10 @@ long s48_restart(long proc_346X, long nargs_347X)
   p_1222X = SenvS;
   if ((3 == (3 & p_1222X))) {
     if ((p_1222X < (((long) (Sstack_beginS))))) {
-      goto L12704;}
+      goto L12711;}
     else {
       if (((((long) (Sstack_endS))) < p_1222X)) {
-        goto L12704;}
+        goto L12711;}
       else {
         merged_arg0K0 = (SenvS);
         merged_arg0K1 = (ScontS);
@@ -9878,15 +9878,15 @@ long s48_restart(long proc_346X, long nargs_347X)
        save_env_in_heap_return_1:
         v_1223X = save_env_in_heap0_return_value;
         SenvS = v_1223X;
-        goto L12704;}}}
+        goto L12711;}}}
   else {
-    goto L12704;}}
- L12704: {
+    goto L12711;}}
+ L12711: {
   end_1224X = *((long *) (((char *) (-3 + (Sbottom_of_stackS)))));
   arg0K0 = (ScontS);
   arg0K1 = (Sbottom_of_stackS);
-  goto L12657;}
- L12657: {
+  goto L12664;}
+ L12664: {
   cont_1225X = arg0K0;
   previous_1226X = arg0K1;
   if ((cont_1225X == (Sbottom_of_stackS))) {
@@ -9898,10 +9898,10 @@ long s48_restart(long proc_346X, long nargs_347X)
     p_1227X = *((long *) ((((char *) (-3 + cont_1225X))) + 12));
     if ((3 == (3 & p_1227X))) {
       if ((p_1227X < (((long) (Sstack_beginS))))) {
-        goto L12675;}
+        goto L12682;}
       else {
         if (((((long) (Sstack_endS))) < p_1227X)) {
-          goto L12675;}
+          goto L12682;}
         else {
           merged_arg0K0 = (*((long *) ((((char *) (-3 + cont_1225X))) + 12)));
           merged_arg0K1 = cont_1225X;
@@ -9910,10 +9910,10 @@ long s48_restart(long proc_346X, long nargs_347X)
           save_env_in_heap_return_tag = 2;
           goto save_env_in_heap;
          save_env_in_heap_return_2:
-          goto L12675;}}}
+          goto L12682;}}}
     else {
-      goto L12675;}}}
- L12675: {
+      goto L12682;}}}
+ L12682: {
   header_1228X = *((long *) ((((char *) (-3 + cont_1225X))) + -4));
   addr_1229X = ALLOCATE_SPACE((31 & (((header_1228X)>>2))), (4 + ((long)(((unsigned long)header_1228X)>>8))));
   data_addr_1230X = addr_1229X + 4;
@@ -9923,7 +9923,7 @@ long s48_restart(long proc_346X, long nargs_347X)
   *((long *) (((char *) (-3 + previous_1226X)))) = new_1231X;
   arg0K0 = (*((long *) (((char *) (-3 + new_1231X)))));
   arg0K1 = new_1231X;
-  goto L12657;}
+  goto L12664;}
  really_preserve_continuation_return:
   switch (really_preserve_continuation_return_tag) {
   case 0: goto really_preserve_continuation_return_0;
@@ -9939,8 +9939,8 @@ long s48_restart(long proc_346X, long nargs_347X)
   memcpy((void *)data_addr_1234X, (void *)(((char *) (-3 + env_360X))),((long)(((unsigned long)header_1232X)>>8)));
   new_1235X = 3 + (((long) data_addr_1234X));
   addr_1236X = ((char *) (-3 + env_360X));
-  S48_WRITE_BARRIER(env_360X, addr_1236X, 22);
-  *((long *) addr_1236X) = 22;
+  S48_WRITE_BARRIER(env_360X, addr_1236X, 26);
+  *((long *) addr_1236X) = 26;
   *((long *) ((((char *) (-3 + env_360X))) + -4)) = new_1235X;
   copy_env0_return_value = new_1235X;
   goto copy_env_return;}
@@ -9963,16 +9963,16 @@ long s48_restart(long proc_346X, long nargs_347X)
  copy_env_return_0:
   top_1237X = copy_env0_return_value;
   arg0K0 = top_1237X;
-  goto L11936;}
- L11936: {
+  goto L11943;}
+ L11943: {
   env_1238X = arg0K0;
   p_1239X = *((long *) (((char *) (-3 + env_1238X))));
   if ((3 == (3 & p_1239X))) {
     if ((p_1239X < (((long) (Sstack_beginS))))) {
-      goto L11955;}
+      goto L11962;}
     else {
       if (((((long) (Sstack_endS))) < p_1239X)) {
-        goto L11955;}
+        goto L11962;}
       else {
         merged_arg0K0 = (*((long *) (((char *) (-3 + env_1238X)))));
         merged_arg0K1 = key_358X;
@@ -9985,20 +9985,20 @@ long s48_restart(long proc_346X, long nargs_347X)
         S48_WRITE_BARRIER(env_1238X, addr_1241X, new_1240X);
         *((long *) addr_1241X) = new_1240X;
         arg0K0 = new_1240X;
-        goto L11936;}}}
+        goto L11943;}}}
   else {
-    goto L11955;}}
- L11955: {
+    goto L11962;}}
+ L11962: {
   arg0K0 = cont_357X;
-  goto L11959;}
- L11959: {
+  goto L11966;}
+ L11966: {
   cont_1242X = arg0K0;
   env_1243X = *((long *) ((((char *) (-3 + cont_1242X))) + 12));
   if ((3 == (3 & env_1243X))) {
     if ((3 == (3 & (*((long *) ((((char *) (-3 + env_1243X))) + -4)))))) {
       *((long *) ((((char *) (-3 + cont_1242X))) + 12)) = (*((long *) ((((char *) (-3 + env_1243X))) + -4)));
       arg0K0 = (*((long *) (((char *) (-3 + cont_1242X)))));
-      goto L11959;}
+      goto L11966;}
     else {
       save_env_in_heap0_return_value = top_1237X;
       goto save_env_in_heap_return;}}
@@ -10020,34 +10020,34 @@ long s48_restart(long proc_346X, long nargs_347X)
   if (v_1245X) {
     arg2K0 = 1;
     arg0K1 = start_354X;
-    goto L14274;}
+    goto L14281;}
   else {
     temp0_1246X = collect_saving_temps(start_354X, 1, &temp1_1247X);
     v_1248X = AVAILABLEp(space_1244X);
     if (v_1248X) {
       arg2K0 = 1;
       arg0K1 = temp0_1246X;
-      goto L14274;}
+      goto L14281;}
     else {
       arg2K0 = 0;
       arg0K1 = temp0_1246X;
-      goto L14274;}}}
- L14274: {
+      goto L14281;}}}
+ L14281: {
   okayP_1249X = arg2K0;
   temp_1250X = arg0K1;
   if (okayP_1249X) {
     arg0K0 = temp_1250X;
-    goto L14248;}
+    goto L14255;}
   else {
     ps_error("Scheme48 heap overflow", 0);
     arg0K0 = temp_1250X;
-    goto L14248;}}
- L14248: {
+    goto L14255;}}
+ L14255: {
   start_1251X = arg0K0;
   arg0K0 = start_1251X;
   arg0K1 = count_355X;
-  goto L14257;}
- L14257: {
+  goto L14264;}
+ L14264: {
   args_1252X = arg0K0;
   count_1253X = arg0K1;
   if ((0 == count_1253X)) {
@@ -10063,7 +10063,7 @@ long s48_restart(long proc_346X, long nargs_347X)
     *((long *) ((((char *) (-3 + x_1256X))) + 4)) = args_1252X;
     arg0K0 = x_1256X;
     arg0K1 = (-1 + count_1253X);
-    goto L14257;}}
+    goto L14264;}}
  pop_args_GlistS_return:
   switch (pop_args_GlistS_return_tag) {
   case 0: goto pop_args_GlistS_return_0;
@@ -10086,29 +10086,29 @@ long s48_restart(long proc_346X, long nargs_347X)
     if (v_1258X) {
       arg2K0 = 1;
       arg0K1 = list_352X;
-      goto L14153;}
+      goto L14160;}
     else {
       temp0_1259X = collect_saving_temps(list_352X, 1, &temp1_1260X);
       v_1261X = AVAILABLEp(space_1257X);
       if (v_1261X) {
         arg2K0 = 1;
         arg0K1 = temp0_1259X;
-        goto L14153;}
+        goto L14160;}
       else {
         arg2K0 = 0;
         arg0K1 = temp0_1259X;
-        goto L14153;}}}}
- L14153: {
+        goto L14160;}}}}
+ L14160: {
   okayP_1262X = arg2K0;
   temp_1263X = arg0K1;
   if (okayP_1262X) {
     arg0K0 = temp_1263X;
-    goto L14111;}
+    goto L14118;}
   else {
     ps_error("Scheme48 heap overflow", 0);
     arg0K0 = temp_1263X;
-    goto L14111;}}
- L14111: {
+    goto L14118;}}
+ L14118: {
   list_1264X = arg0K0;
   a_1265X = *((long *) (((char *) (-3 + list_1264X))));
   addr_1266X = ALLOCATE_SPACE(0, 12);
@@ -10118,8 +10118,8 @@ long s48_restart(long proc_346X, long nargs_347X)
   *((long *) ((((char *) (-3 + x_1267X))) + 4)) = 25;
   arg0K0 = (*((long *) ((((char *) (-3 + list_1264X))) + 4)));
   arg0K1 = x_1267X;
-  goto L14126;}
- L14126: {
+  goto L14133;}
+ L14133: {
   l_1268X = arg0K0;
   last_1269X = arg0K1;
   if ((25 == l_1268X)) {
@@ -10137,7 +10137,7 @@ long s48_restart(long proc_346X, long nargs_347X)
     *((long *) addr_1273X) = x_1272X;
     arg0K0 = (*((long *) ((((char *) (-3 + l_1268X))) + 4)));
     arg0K1 = x_1272X;
-    goto L14126;}}
+    goto L14133;}}
  copy_listS_return:
   switch (copy_listS_return_tag) {
   case 0: goto copy_listS_return_0;
@@ -10168,17 +10168,17 @@ long s48_restart(long proc_346X, long nargs_347X)
   marker_350X = merged_arg0K0;{
   thread_1277X = Scurrent_threadS;
   if ((3 == (3 & thread_1277X))) {
-    if ((8 == (31 & ((((*((long *) ((((char *) (-3 + thread_1277X))) + -4))))>>2))))) {
+    if ((9 == (31 & ((((*((long *) ((((char *) (-3 + thread_1277X))) + -4))))>>2))))) {
       if ((1 < ((((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + thread_1277X))) + -4))))>>8))))>>2)))) {
         arg0K0 = (*((long *) ((((char *) (-3 + thread_1277X))) + 4)));
-        goto L10227;}
+        goto L10234;}
       else {
-        goto L10277;}}
+        goto L10284;}}
     else {
-      goto L10277;}}
+      goto L10284;}}
   else {
-    goto L10277;}}
- L10227: {
+    goto L10284;}}
+ L10234: {
   env_1278X = arg0K0;
   if ((3 == (3 & env_1278X))) {
     if ((0 == (31 & ((((*((long *) ((((char *) (-3 + env_1278X))) + -4))))>>2))))) {
@@ -10190,32 +10190,32 @@ long s48_restart(long proc_346X, long nargs_347X)
             goto get_current_port_return;}
           else {
             arg0K0 = (*((long *) ((((char *) (-3 + env_1278X))) + 4)));
-            goto L10227;}}
+            goto L10234;}}
         else {
-          goto L10299;}}
+          goto L10306;}}
       else {
-        goto L10299;}}
+        goto L10306;}}
     else {
-      goto L10299;}}
+      goto L10306;}}
   else {
-    goto L10299;}}
- L10277: {
+    goto L10306;}}
+ L10284: {
   ps_error("current thread is not a record", 0);
   get_current_port0_return_value = v_1280X;
   goto get_current_port_return;}
- L10299: {
+ L10306: {
   if ((25 == env_1278X)) {
     if (((((marker_350X)>>2)) == 1)) {
       arg3K0 = "dynamic environment doesn't have current-output-port";
-      goto L10253;}
+      goto L10260;}
     else {
       arg3K0 = "dynamic environment doesn't have current-input-port";
-      goto L10253;}}
+      goto L10260;}}
   else {
     ps_error("dynamic environment is not a proper list", 0);
     get_current_port0_return_value = v_1281X;
     goto get_current_port_return;}}
- L10253: {
+ L10260: {
   v_1282X = arg3K0;
   ps_error(v_1282X, 0);
   get_current_port0_return_value = v_1283X;
@@ -10233,8 +10233,8 @@ long s48_restart(long proc_346X, long nargs_347X)
   arg0K1 = 0;
   arg0K2 = list_349X;
   arg2K3 = 0;
-  goto L10094;}
- L10094: {
+  goto L10101;}
+ L10101: {
   fast_1284X = arg0K0;
   len_1285X = arg0K1;
   slow_1286X = arg0K2;
@@ -10256,13 +10256,13 @@ long s48_restart(long proc_346X, long nargs_347X)
             arg0K1 = (1 + len_1285X);
             arg0K2 = (*((long *) ((((char *) (-3 + slow_1286X))) + 4)));
             arg2K3 = 0;
-            goto L10094;}}
+            goto L10101;}}
         else {
           arg0K0 = (*((long *) ((((char *) (-3 + fast_1284X))) + 4)));
           arg0K1 = (1 + len_1285X);
           arg0K2 = slow_1286X;
           arg2K3 = 1;
-          goto L10094;}}
+          goto L10101;}}
       else {
         okay_argument_list0_return_value = 0;
         okay_argument_list1_return_value = 0;
@@ -10283,20 +10283,20 @@ long s48_restart(long proc_346X, long nargs_347X)
   x_1289X = strlen((char *) string_1288X);
   if ((x_1289X < 256)) {
     arg0K0 = x_1289X;
-    goto L9602;}
+    goto L9609;}
   else {
     arg0K0 = 256;
-    goto L9602;}}
- L9602: {
+    goto L9609;}}
+ L9609: {
   len_1290X = arg0K0;
   len_1291X = 1 + len_1290X;
-  addr_1292X = ALLOCATE_SPACE(16, (4 + len_1291X));
-  *((long *) addr_1292X) = (66 + (((len_1291X)<<8)));
+  addr_1292X = ALLOCATE_SPACE(17, (4 + len_1291X));
+  *((long *) addr_1292X) = (70 + (((len_1291X)<<8)));
   string_1293X = 3 + (((long) (addr_1292X + 4)));
   *((unsigned char *) ((((char *) (-3 + string_1293X))) + len_1290X)) = 0;
   arg0K0 = 0;
-  goto L9612;}
- L9612: {
+  goto L9619;}
+ L9619: {
   i_1294X = arg0K0;
   if ((i_1294X == len_1290X)) {
     get_error_string0_return_value = string_1293X;
@@ -10304,7 +10304,7 @@ long s48_restart(long proc_346X, long nargs_347X)
   else {
     *((unsigned char *) ((((char *) (-3 + string_1293X))) + i_1294X)) = ((*(string_1288X + i_1294X)));
     arg0K0 = (1 + i_1294X);
-    goto L9612;}}
+    goto L9619;}}
  get_error_string_return:
   switch (get_error_string_return_tag) {
   case 0: goto get_error_string_return_0;
@@ -10407,8 +10407,8 @@ long s48_call_startup_procedure(char **startup_vector_1298X, long startup_vector
   Sinterrupted_templateS = 1;
   arg0K0 = 0;
   arg0K1 = 0;
-  goto L15617;}
- L15617: {
+  goto L15624;}
+ L15624: {
   i_1301X = arg0K0;
   size_1302X = arg0K1;
   if ((i_1301X == startup_vector_length_1299X)) {
@@ -10417,41 +10417,41 @@ long s48_call_startup_procedure(char **startup_vector_1298X, long startup_vector
     if (v_1304X) {
       arg2K0 = 1;
       arg0K1 = 0;
-      goto L15654;}
+      goto L15661;}
     else {
       collect_saving_temps(1, 1, &temp1_1305X);
       v_1306X = AVAILABLEp(space_1303X);
       if (v_1306X) {
         arg2K0 = 1;
         arg0K1 = 0;
-        goto L15654;}
+        goto L15661;}
       else {
         arg2K0 = 0;
         arg0K1 = 0;
-        goto L15654;}}}
+        goto L15661;}}}
   else {
     arg0K0 = (1 + i_1301X);
     arg0K1 = (1 + (size_1302X + ((((4 + (strlen((char *) (*(startup_vector_1298X + i_1301X))))))>>2))));
-    goto L15617;}}
- L15654: {
+    goto L15624;}}
+ L15661: {
   okayP_1307X = arg2K0;
   key_1308X = arg0K1;
   if (okayP_1307X) {
     arg0K0 = key_1308X;
-    goto L15632;}
+    goto L15639;}
   else {
     ps_error("Scheme48 heap overflow", 0);
     arg0K0 = key_1308X;
-    goto L15632;}}
- L15632: {
+    goto L15639;}}
+ L15639: {
   key_1309X = arg0K0;
   len_1310X = ((startup_vector_length_1299X)<<2);
   addr_1311X = ALLOCATE_SPACE(2, (4 + len_1310X));
   *((long *) addr_1311X) = (10 + (((len_1310X)<<8)));
   vector_1312X = 3 + (((long) (addr_1311X + 4)));
   arg0K0 = 0;
-  goto L15690;}
- L15690: {
+  goto L15697;}
+ L15697: {
   i_1313X = arg0K0;
   if ((i_1313X == startup_vector_length_1299X)) {
     *((long *) (SstackS)) = vector_1312X;
@@ -10460,37 +10460,37 @@ long s48_call_startup_procedure(char **startup_vector_1298X, long startup_vector
     x_1315X = fileno((stdout));
     if ((x_1315X < y_1314X)) {
       arg0K0 = y_1314X;
-      goto L14526;}
+      goto L14533;}
     else {
       arg0K0 = x_1315X;
-      goto L14526;}}
+      goto L14533;}}
   else {
     value_1316X = enter_string((*(startup_vector_1298X + i_1313X)), key_1309X);
     addr_1317X = (((char *) (-3 + vector_1312X))) + (((i_1313X)<<2));
     S48_WRITE_BARRIER(vector_1312X, addr_1317X, value_1316X);
     *((long *) addr_1317X) = value_1316X;
     arg0K0 = (1 + i_1313X);
-    goto L15690;}}
- L14526: {
+    goto L15697;}}
+ L14533: {
   y_1318X = arg0K0;
   x_1319X = fileno((stdin));
   if ((x_1319X < y_1318X)) {
     arg0K0 = y_1318X;
-    goto L14528;}
+    goto L14535;}
   else {
     arg0K0 = x_1319X;
-    goto L14528;}}
- L14528: {
+    goto L14535;}}
+ L14535: {
   v_1320X = arg0K0;
   x_1321X = Snumber_of_channelsS;
   y_1322X = 1 + v_1320X;
   if ((x_1321X < y_1322X)) {
     arg0K0 = y_1322X;
-    goto L14530;}
+    goto L14537;}
   else {
     arg0K0 = x_1321X;
-    goto L14530;}}
- L14530: {
+    goto L14537;}}
+ L14537: {
   v_1323X = arg0K0;
   Snumber_of_channelsS = v_1323X;
   v_1324X = fileno((stdin));
@@ -10499,54 +10499,54 @@ long s48_call_startup_procedure(char **startup_vector_1298X, long startup_vector
   Spending_channels_tailS = 1;
   if ((NULL == (Svm_channelsS))) {
     ps_error("out of memory, unable to continue", 0);
-    goto L14552;}
+    goto L14559;}
   else {
-    goto L14552;}}
- L14552: {
+    goto L14559;}}
+ L14559: {
   v_1325X = Svm_channelsS;
   length_1326X = Snumber_of_channelsS;
   arg0K0 = 0;
-  goto L14600;}
- L14600: {
+  goto L14607;}
+ L14607: {
   i_1327X = arg0K0;
   if ((i_1327X < length_1326X)) {
     *(v_1325X + i_1327X) = 1;
     arg0K0 = (1 + i_1327X);
-    goto L14600;}
+    goto L14607;}
   else {
     space_1328X = 3 * (7 + ((((4 + (strlen((char *) "standard output"))))>>2)));
     v_1329X = AVAILABLEp(space_1328X);
     if (v_1329X) {
       arg2K0 = 1;
       arg0K1 = 0;
-      goto L14614;}
+      goto L14621;}
     else {
       collect_saving_temps(1, 1, &temp1_1330X);
       v_1331X = AVAILABLEp(space_1328X);
       if (v_1331X) {
         arg2K0 = 1;
         arg0K1 = 0;
-        goto L14614;}
+        goto L14621;}
       else {
         arg2K0 = 0;
         arg0K1 = 0;
-        goto L14614;}}}}
- L14614: {
+        goto L14621;}}}}
+ L14621: {
   okayP_1332X = arg2K0;
   key_1333X = arg0K1;
   if (okayP_1332X) {
     arg0K0 = key_1333X;
-    goto L14558;}
+    goto L14565;}
   else {
     ps_error("Scheme48 heap overflow", 0);
     arg0K0 = key_1333X;
-    goto L14558;}}
- L14558: {
+    goto L14565;}}
+ L14565: {
   key_1334X = arg0K0;
   channel_1335X = fileno((stdin));
   b_1336X = enter_string("standard input", key_1334X);
-  addr_1337X = ALLOCATE_SPACE(5, 24);
-  *((long *) addr_1337X) = 5142;
+  addr_1337X = ALLOCATE_SPACE(6, 24);
+  *((long *) addr_1337X) = 5146;
   x_1338X = 3 + (((long) (addr_1337X + 4)));
   *((long *) (((char *) (-3 + x_1338X)))) = 4;
   *((long *) ((((char *) (-3 + x_1338X))) + 4)) = b_1336X;
@@ -10556,8 +10556,8 @@ long s48_call_startup_procedure(char **startup_vector_1298X, long startup_vector
   *((Svm_channelsS) + channel_1335X) = x_1338X;
   channel_1339X = fileno((stderr));
   b_1340X = enter_string("standard error", key_1334X);
-  addr_1341X = ALLOCATE_SPACE(5, 24);
-  *((long *) addr_1341X) = 5142;
+  addr_1341X = ALLOCATE_SPACE(6, 24);
+  *((long *) addr_1341X) = 5146;
   x_1342X = 3 + (((long) (addr_1341X + 4)));
   *((long *) (((char *) (-3 + x_1342X)))) = 8;
   *((long *) ((((char *) (-3 + x_1342X))) + 4)) = b_1340X;
@@ -10567,8 +10567,8 @@ long s48_call_startup_procedure(char **startup_vector_1298X, long startup_vector
   *((Svm_channelsS) + channel_1339X) = x_1342X;
   channel_1343X = fileno((stdout));
   b_1344X = enter_string("standard output", key_1334X);
-  addr_1345X = ALLOCATE_SPACE(5, 24);
-  *((long *) addr_1345X) = 5142;
+  addr_1345X = ALLOCATE_SPACE(6, 24);
+  *((long *) addr_1345X) = 5146;
   x_1346X = 3 + (((long) (addr_1345X + 4)));
   *((long *) (((char *) (-3 + x_1346X)))) = 8;
   *((long *) ((((char *) (-3 + x_1346X))) + 4)) = b_1344X;
@@ -10602,8 +10602,8 @@ Sexternal_exceptionPS = 0;
 Sexternal_root_stackS = NULL;
 Sexternal_root_stack_baseS = NULL;
 Spermanent_external_rootsS = NULL;
-Sgc_root_procS = HtopD8911;
-Spost_gc_cleanupS = HtopD8904;
+Sgc_root_procS = HtopD8931;
+Spost_gc_cleanupS = HtopD8924;
 s48_Scallback_return_stack_blockS = 1;
 s48_Spending_eventsPS = 0;
 }