diff --git a/.bzrignore b/.bzrignore
index bfbc335..7c34736 100644
--- a/.bzrignore
+++ b/.bzrignore
@@ -5,3 +5,4 @@
 .bzrignore
 .bzrignore
 ./ikarus.boot.back
+.DS_Store
diff --git a/runtime/ikarus b/runtime/ikarus
index 085e629..2ed6187 100755
Binary files a/runtime/ikarus and b/runtime/ikarus differ
diff --git a/runtime/ikarus-collect.c b/runtime/ikarus-collect.c
index c2e92d0..b140c06 100644
--- a/runtime/ikarus-collect.c
+++ b/runtime/ikarus-collect.c
@@ -11,7 +11,6 @@
 #include <errno.h>
 
 #define forward_ptr ((ikp)-1)
-//#define DEBUG_STACK 0
 #define minimum_heap_size (pagesize * 1024 * 4)
 #define maximum_heap_size (pagesize * 1024 * 8)
 #define minimum_stack_size (pagesize * 128)
@@ -553,16 +552,16 @@ static void collect_stack(gc_t* gc, ikp top, ikp end){
       for(i=0; i<bytes_in_mask; i++, fp-=8){
         unsigned char m = mask[i];
 #if DEBUG_STACK
-        fprintf(stderr, "m=0x%x\n", m);
+        fprintf(stderr, "m[%d]=0x%x\n", i, m);
 #endif
-        if(m & 0x01) { fp[-0] = add_object(gc, fp[-0], "frame2"); }
-        if(m & 0x02) { fp[-1] = add_object(gc, fp[-1], "frame3"); }
-        if(m & 0x04) { fp[-2] = add_object(gc, fp[-2], "frame4"); }
-        if(m & 0x08) { fp[-3] = add_object(gc, fp[-3], "frame5"); }
-        if(m & 0x10) { fp[-4] = add_object(gc, fp[-4], "frame6"); }
-        if(m & 0x20) { fp[-5] = add_object(gc, fp[-5], "frame7"); }
-        if(m & 0x40) { fp[-6] = add_object(gc, fp[-6], "framea"); }
-        if(m & 0x80) { fp[-7] = add_object(gc, fp[-7], "frameb"); }
+        if(m & 0x01) { fp[-0] = add_object(gc, fp[-0], "frame0"); }
+        if(m & 0x02) { fp[-1] = add_object(gc, fp[-1], "frame1"); }
+        if(m & 0x04) { fp[-2] = add_object(gc, fp[-2], "frame2"); }
+        if(m & 0x08) { fp[-3] = add_object(gc, fp[-3], "frame3"); }
+        if(m & 0x10) { fp[-4] = add_object(gc, fp[-4], "frame4"); }
+        if(m & 0x20) { fp[-5] = add_object(gc, fp[-5], "frame5"); }
+        if(m & 0x40) { fp[-6] = add_object(gc, fp[-6], "frame6"); }
+        if(m & 0x80) { fp[-7] = add_object(gc, fp[-7], "frame7"); }
       }
     }
     top += framesize;
diff --git a/runtime/ikarus-main.c b/runtime/ikarus-main.c
index 61b7f58..9345ca1 100644
--- a/runtime/ikarus-main.c
+++ b/runtime/ikarus-main.c
@@ -27,12 +27,14 @@ int main(int argc, char** argv){
     char* fasl_file = argv[i];
     ik_fasl_load(pcb, fasl_file);
   }
+  /*
   fprintf(stderr, "collect time: %d.%03d utime, %d.%03d stime (%d collections)\n", 
-  pcb->collect_utime.tv_sec, 
-  pcb->collect_utime.tv_usec/1000, 
-  pcb->collect_stime.tv_sec, 
-  pcb->collect_stime.tv_usec/1000,
-  pcb->collection_id );
+                  pcb->collect_utime.tv_sec, 
+                  pcb->collect_utime.tv_usec/1000, 
+                  pcb->collect_stime.tv_sec, 
+                  pcb->collect_stime.tv_usec/1000,
+                  pcb->collection_id );
+                  */
   ik_delete_pcb(pcb);
   return 0;
 }
diff --git a/runtime/ikarus-runtime.c b/runtime/ikarus-runtime.c
index 85c5696..da40c8e 100644
--- a/runtime/ikarus-runtime.c
+++ b/runtime/ikarus-runtime.c
@@ -746,7 +746,7 @@ ikrt_open_output_file(ikp fname, ikp flagptr, ikpcb* pcb){
   int flags;
   int f = unfix(flagptr);
   if(f == 0){
-    flags = O_WRONLY;
+    flags = O_WRONLY | O_CREAT;
   } else if(f == 1){
     unlink(string_data(fname));
     flags = O_WRONLY | O_CREAT;
@@ -762,7 +762,7 @@ ikrt_open_output_file(ikp fname, ikp flagptr, ikpcb* pcb){
   int fd = open(string_data(fname), flags,
                 S_IRUSR | S_IWUSR | S_IRGRP | S_IROTH);
   if(fd == -1){
-    fprintf(stderr, "openfile failed!\n");
+    fprintf(stderr, "openfile failed: %s\n", strerror(errno));
     return false_object;
   } else {
     return fix(fd);