X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-odbc%2Fodbc-api.lisp;fp=db-odbc%2Fodbc-api.lisp;h=1e26c4591ef38334a1b8cf01c90c5cb80965e475;hp=a65f6a0f63662b710e71af34fb30a253b54d7fff;hb=ec7fc12be004c1f6ed38271169fb6be0c17d4974;hpb=3695e84c9884de90334a248d328400c4e8afa50c

diff --git a/db-odbc/odbc-api.lisp b/db-odbc/odbc-api.lisp
index a65f6a0..1e26c45 100644
--- a/db-odbc/odbc-api.lisp
+++ b/db-odbc/odbc-api.lisp
@@ -926,7 +926,7 @@ as possible second argument) to the desired representation of date/time/timestam
                                    (error 'clsql:sql-database-error :message "wrong type. preliminary."))
                             while
                             (and (= res $SQL_SUCCESS_WITH_INFO)
-                                 (> out-len +max-precision+))
+                                 (>= out-len +max-precision+))
                             do (setf res  (%sql-get-data hstmt column-nr c-type data-ptr
                                                          +max-precision+ out-len-ptr)
                                      out-len (deref-pointer out-len-ptr #.$ODBC-LONG-TYPE)))