diff --git a/scheme/last-revision b/scheme/last-revision
index e4cda12..ca9d3da 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1868
+1869
diff --git a/src/ikarus-exec.c b/src/ikarus-exec.c
index ddf2ab0..ed1281e 100644
--- a/src/ikarus-exec.c
+++ b/src/ikarus-exec.c
@@ -40,6 +40,9 @@ ikptr ik_exec_code(ikpcb* pcb, ikptr code_ptr, ikptr argcount, ikptr cp){
     fprintf(stderr, "exec framesize=0x%016lx  ksize=%ld  rp=0x%016lx\n", 
         framesize, k->size, rp);
 #endif
+    if(framesize == 0){
+      framesize = ref(top, wordsize);
+    }
     if(framesize <= 0){
       fprintf(stderr, "invalid framesize %ld\n", framesize);
       exit(-10);