diff --git a/src/ikarus.boot b/src/ikarus.boot
index 673b918..8b44f42 100644
Binary files a/src/ikarus.boot and b/src/ikarus.boot differ
diff --git a/src/libcompile.ss b/src/libcompile.ss
index 3fa533a..7278a6c 100644
--- a/src/libcompile.ss
+++ b/src/libcompile.ss
@@ -3063,7 +3063,7 @@
   (define disp-tcbucket-key   4)
   (define disp-tcbucket-val   8)
   (define disp-tcbucket-next 12)
-  (define tcbucket-size      24)
+  (define tcbucket-size      16)
   (define record-ptag  5)
   (define record-pmask 7)
   (define disp-record-rtd     0)
@@ -3933,8 +3933,6 @@
               (movl eax (mem disp-tcbucket-val apr))
               (movl (Simple (cadddr arg*)) eax)
               (movl eax (mem disp-tcbucket-next apr))
-              (movl (int 0) (mem 16 apr))
-              (movl (int 0) (mem 20 apr))
               (movl apr eax)
               (addl (int vector-tag) eax)
               (addl (int (align tcbucket-size)) apr)
diff --git a/src/makefile.ss b/src/makefile.ss
index 5dc2497..1b58cf1 100755
--- a/src/makefile.ss
+++ b/src/makefile.ss
@@ -115,8 +115,8 @@
     $make-call-with-values-procedure $make-values-procedure
     do-overflow $make-tcbucket $tcbucket-next $tcbucket-key
     $tcbucket-val $set-tcbucket-next!  $set-tcbucket-val!
-    $set-tcbucket-tconc!  $tcbucket-dlink-prev $tcbucket-dlink-next
-    $set-tcbucket-dlink-prev!  $set-tcbucket-dlink-next!  call/cf
+    $set-tcbucket-tconc!  
+    call/cf
     trace-symbol! untrace-symbol!  make-traced-procedure
     fixnum->string 
     $interrupted? $unset-interrupted! $do-event