diff --git a/scheme/ikarus.pointers.ss b/scheme/ikarus.pointers.ss
index b5d1d40..3b3dc8c 100644
--- a/scheme/ikarus.pointers.ss
+++ b/scheme/ikarus.pointers.ss
@@ -186,17 +186,19 @@
                                     (f (+ i 1))))))))))]
         [else
          (case t
-           [(unsigned-char)   int?]
-           [(signed-char)     int?]
-           [(unsigned-short)  int?]
-           [(signed-short)    int?]
-           [(unsigned-int)    int?]
-           [(signed-int)      int?]
-           [(unsigned-long)   int?]
-           [(signed-long)     int?]
-           [(float)           flonum?]
-           [(double)          flonum?]
-           [(pointer)         pointer?]
+           [(unsigned-char)      int?]
+           [(signed-char)        int?]
+           [(unsigned-short)     int?]
+           [(signed-short)       int?]
+           [(unsigned-int)       int?]
+           [(signed-int)         int?]
+           [(unsigned-long)      int?]
+           [(signed-long)        int?]
+           [(unsigned-long-long) int?]
+           [(signed-long-long)   int?]
+           [(float)              flonum?]
+           [(double)             flonum?]
+           [(pointer)            pointer?]
            [else (die who "invalid type" t)])]))
     checker)
  
@@ -209,18 +211,20 @@
         [(vector? x) (vector-map convert x)]
         [else
          (case x 
-           [(void)            1]
-           [(unsigned-char)   2]
-           [(signed-char)     3]
-           [(unsigned-short)  4]
-           [(signed-short)    5]
-           [(unsigned-int)    6]
-           [(signed-int)      7]
-           [(unsigned-long)   8]
-           [(signed-long)     9]
-           [(float)          10]
-           [(double)         11]
-           [(pointer)        12]
+           [(void)                1]
+           [(unsigned-char)       2]
+           [(signed-char)         3]
+           [(unsigned-short)      4]
+           [(signed-short)        5]
+           [(unsigned-int)        6]
+           [(signed-int)          7]
+           [(unsigned-long)       8]
+           [(signed-long)         9]
+           [(unsigned-long-long) 10]
+           [(signed-long-long)   11]
+           [(float)              12]
+           [(double)             13]
+           [(pointer)            14]
            [else (die who "invalid type" x)])]))
     (unless (list? argtypes)
       (die who "arg types is not a list" argtypes))
diff --git a/scheme/last-revision b/scheme/last-revision
index 4f5ed40..76aca5d 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1763
+1764
diff --git a/src/ikarus-ffi.c b/src/ikarus-ffi.c
index 6e6dff4..b32ecfc 100644
--- a/src/ikarus-ffi.c
+++ b/src/ikarus-ffi.c
@@ -60,9 +60,11 @@ scheme_to_ffi_type_cast(ikptr nptr){
       case  7: return &ffi_type_sint32;
       case  8: return (sizeof(long)==4)?&ffi_type_uint32:&ffi_type_uint64;
       case  9: return (sizeof(long)==4)?&ffi_type_sint32:&ffi_type_sint64;
-      case 10: return &ffi_type_float;
-      case 11: return &ffi_type_double;
-      case 12: return &ffi_type_pointer;
+      case 10: return &ffi_type_uint64;
+      case 11: return &ffi_type_sint64;
+      case 12: return &ffi_type_float;
+      case 13: return &ffi_type_double;
+      case 14: return &ffi_type_pointer;
       default: 
         fprintf(stderr, "INVALID ARG %ld", n);
         exit(-1);
@@ -79,6 +81,9 @@ alloc_room_for_type(ffi_type* t){
 }
 
 extern long extract_num(ikptr x);
+extern long long extract_num_longlong(ikptr x);
+extern ikptr sll_to_number(signed long long n, ikpcb* pcb);
+extern ikptr ull_to_number(unsigned long long n, ikpcb* pcb);
 
 static void scheme_to_ffi_value_cast(ffi_type*, ikptr, ikptr, void*);
 
@@ -122,11 +127,14 @@ scheme_to_ffi_value_cast(ffi_type* t, ikptr nptr, ikptr p, void* r) {
       case  8: // ffi_type_uint64;
       case  9: 
        { *((long*)r) = extract_num(p); return; }
-      case 10: //return &ffi_type_float;
+      case 10:
+      case 11:
+       { *((long long*)r) = extract_num_longlong(p); return; }
+      case 12: //return &ffi_type_float;
        { *((float*)r) = flonum_data(p); return; }
-      case 11: //return &ffi_type_double;
+      case 13: //return &ffi_type_double;
        { *((double*)r) = flonum_data(p); return; }
-      case 12: //return &ffi_type_pointer;
+      case 14: //return &ffi_type_pointer;
        { *((void**)r) = (void*)ref(p, off_pointer_data); return; }
       default: 
         fprintf(stderr, "INVALID ARG %ld", n);
@@ -151,9 +159,11 @@ ffi_to_scheme_value_cast(int n, void* p, ikpcb* pcb) {
     case  7: return s_to_number(*((signed int*)p), pcb);
     case  8: return u_to_number(*((unsigned long*)p), pcb);
     case  9: return s_to_number(*((signed long*)p), pcb);
-    case 10: return d_to_number(*((float*)p), pcb);
-    case 11: return d_to_number(*((double*)p), pcb);
-    case 12: return make_pointer((long)*((void**)p), pcb);
+    case 10: return ull_to_number(*((unsigned long long*)p), pcb);
+    case 11: return sll_to_number(*((signed long long*)p), pcb);
+    case 12: return d_to_number(*((float*)p), pcb);
+    case 13: return d_to_number(*((double*)p), pcb);
+    case 14: return make_pointer((long)*((void**)p), pcb);
     default: 
       fprintf(stderr, "INVALID ARG %d", n);
       exit(-1);
diff --git a/src/ikarus-pointers.c b/src/ikarus-pointers.c
index a47bb4e..8a6f457 100644
--- a/src/ikarus-pointers.c
+++ b/src/ikarus-pointers.c
@@ -251,7 +251,7 @@ s_to_number(signed long n, ikpcb* pcb) {
   return bn+vector_tag;
 }
   
-static ikptr
+ikptr
 sll_to_number(signed long long n, ikpcb* pcb) {
   if (((signed long long)(signed long) n) == n) {
     return s_to_number(n, pcb);