Index: combined/src/odbc/odbc-main.lisp
===================================================================
--- combined/src/odbc/odbc-main.lisp	(revision combined,5)
+++ combined/src/odbc/odbc-main.lisp	(revision combined,6)
@@ -467,5 +467,4 @@
 ;; this functions works only, since we store at value-ptr the position
 ;; of the parameter
-;; dso--
 (defun sql-param-data-position (hstmt)
   (with-temporary-allocations
@@ -474,7 +473,7 @@
                    (%sql-param-data hstmt ptr))))
       (values res (if (= res $SQL_NEED_DATA)
-                      (cffi:mem-ref (cffi:mem-ref ptr :pointer) :int32))))))
-                                        ; TODO: The :int32 above
-                                        ; should probably be changed!
+                      (cffi:mem-ref (cffi:mem-ref ptr :pointer) :long))))))
+
+
 
 (defmethod exec-prepared-query ((query prepared-statement) &rest parameters)