diff --git a/ffi-tools/ffi-tools.scm b/ffi-tools/ffi-tools.scm
index 3908a7e..8350a8e 100644
--- a/ffi-tools/ffi-tools.scm
+++ b/ffi-tools/ffi-tools.scm
@@ -69,7 +69,7 @@
     (format "~a = s48_enter_integer(~a);~%"
 	    (constant-c-value-name c) (constant-c-name c)))
    ((constant-type-string? c)
-    (format "~a = s48_enter_integer(~a);~%"
+    (format "~a = s48_enter_string(~a);~%"
 	    (constant-c-value-name c) (constant-c-name c)))
    (else
     (error "Don't know how to handle this constant type: "