diff --git a/retropikzel/pffi/gauche.scm b/retropikzel/pffi/gauche.scm
index 91837a6..3102bbd 100644
--- a/retropikzel/pffi/gauche.scm
+++ b/retropikzel/pffi/gauche.scm
@@ -11,7 +11,7 @@
                        pffi-pointer-get
                        pffi-string->pointer
                        pffi-pointer->string
-                       pffi-define))
+                       pffi-define-function))
 
 (select-module retropikzel.pffi.gauche)
 (dynamic-load "retropikzel/pffi/gauche-pffi")