Index: combined/src/odbc/ffi-support.lisp
===================================================================
--- combined/src/odbc/ffi-support.lisp	(revision combined,5)
+++ combined/src/odbc/ffi-support.lisp	(revision combined,7.1.1)
@@ -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)