Index: vendor/src/odbc/parameter.lisp
===================================================================
--- vendor/src/odbc/parameter.lisp	(revision vendor,6)
+++ vendor/src/odbc/parameter.lisp	(revision vendor,8)
@@ -114,7 +114,5 @@
      (put-string (slot-value param 'value-ptr) ""))
     (t
-     (cffi:lisp-string-to-foreign value
-                                  (slot-value param 'value-ptr)
-                                  (1+ (length value)))
+     (put-string (slot-value param 'value-ptr) value)
      (setf (cffi:mem-ref (slot-value param 'ind-ptr) 'sql-len)
            (length value)))))