Index: cffi/src/odbc/ffi-support.lisp
===================================================================
--- cffi/src/odbc/ffi-support.lisp	(revision cffi,5)
+++ cffi/src/odbc/ffi-support.lisp	(revision cffi,8)
@@ -5,9 +5,8 @@
 
 (defun get-string (ptr length) 
-  (cffi:foreign-string-to-lisp ptr length nil)
-  )
+  (cffi:foreign-string-to-lisp ptr :count length))
 
 (defun get-string-nts (ptr)
-  (cffi:foreign-string-to-lisp ptr MOST-POSITIVE-FIXNUM t))
+  (cffi:foreign-string-to-lisp ptr :max-chars MOST-POSITIVE-FIXNUM))
 
 (defun put-string (ptr vector)