=== modified file 'src/ikarus-ffi.c'
--- src/ikarus-ffi.c	2008-09-26 06:46:07 +0000
+++ src/ikarus-ffi.c	2008-10-24 15:59:31 +0000
@@ -169,7 +169,7 @@
   ffi_abi abi = FFI_DEFAULT_ABI;
   unsigned int nargs = unfix(ref(argstptr, off_vector_length));
   ffi_type** argtypes = alloc(sizeof(ffi_type*), nargs+1);
-  int i;
+  unsigned int i;
   for(i=0; i<nargs; i++){
     ikptr argt = ref(argstptr, off_vector_data + i*wordsize);
     argtypes[i] = scheme_to_ffi_type_cast(argt);
@@ -188,7 +188,7 @@
 }
 
 
-        
+#ifdef DEBUG_FFI
 static void
 dump_stack(ikpcb* pcb, char* msg) {
   fprintf(stderr, "====================  %s\n", msg);
@@ -201,6 +201,7 @@
     p += wordsize;
   }
 }
+#endif
 
 
 /* FIXME: handle stack overflow */
@@ -321,10 +322,10 @@
   ikptr typevec = ref(data, off_vector_data + 2 * wordsize);
   ikptr rtype   = ref(data, off_vector_data + 3 * wordsize);
   ffi_cif* cif = (ffi_cif*) ref(cifptr, off_pointer_data);
-  void* fn = (void*) ref(funptr, off_pointer_data);
+  void (*fn)() = FFI_FN(ref(funptr, off_pointer_data));
   unsigned int n = unfix(ref(argsvec, off_vector_length));
   void** avalues = alloc(sizeof(void*), n+1);
-  int i;
+  unsigned int i;
   for(i=0; i<n; i++){
     ffi_type* t = cif->arg_types[i];
     ikptr at = ref(typevec, off_vector_data + i * wordsize);
@@ -401,7 +402,7 @@
   ikptr code_ptr = code_entry - off_code_data;
 
   pcb->frame_pointer = pcb->frame_base;
-  int i;
+  unsigned int i;
   for(i = 0; i < n; i++){
     ikptr argt = ref(argtypes_conv, off_vector_data + i*wordsize);
     void* argp = args[i];

=== modified file 'src/ikarus-numerics.c'
--- src/ikarus-numerics.c	2008-10-04 05:59:34 +0000
+++ src/ikarus-numerics.c	2008-10-24 15:33:15 +0000
@@ -801,7 +801,7 @@
     pcb->root0 = &s1;
     pcb->root1 = &s2;
     ikptr res = ik_safe_alloc(pcb, align(disp_bignum_data + n1 * wordsize));
-    bzero((void*)res+disp_bignum_data, n1*wordsize);
+    bzero((void*)(res+disp_bignum_data), n1*wordsize);
     pcb->root0 = 0;
     pcb->root1 = 0;
     long int burrow =