diff --git a/lib/ypsilon-compat.ikarus.ss b/lib/ypsilon-compat.ikarus.ss
index 92c3986..88d7937 100644
--- a/lib/ypsilon-compat.ikarus.ss
+++ b/lib/ypsilon-compat.ikarus.ss
@@ -120,8 +120,8 @@
              (cond
                [(= i n) p]
                [else
-                (pointer-set-c-int! p (* i pointer-size)
-                  (pointer->integer (check-char* who (vector-ref x i))))
+                (pointer-set-c-pointer! p (* i pointer-size)
+                  (check-char* who (vector-ref x i)))
                 (f (+ i 1))]))))]
       [else (die who "not a char**" x)]))
 
diff --git a/scheme/last-revision b/scheme/last-revision
index fdd3a56..2bdd710 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1765
+1766