Index: combined/src/odbc/parameter.lisp
===================================================================
--- combined/src/odbc/parameter.lisp	(revision combined,2.1.5)
+++ combined/src/odbc/parameter.lisp	(revision combined,2.1.11)
@@ -293,5 +293,4 @@
             )
           (progn
-            ;; (break)
             (setf (cffi:mem-ref (slot-value param 'ind-ptr) 'sql-len)
                   (length value))
@@ -426,5 +425,6 @@
     ;; we store the position there
     (setf buffer-length (cffi:foreign-type-size 'sql-pointer))
-    (setf value-ptr (cffi:foreign-alloc 'sql-pointer))))
+    (setf value-ptr (cffi:foreign-alloc 'sql-pointer)))
+)
 
 (defmethod set-parameter-value ((param blob-parameter) value)
@@ -437,5 +437,6 @@
               (slot-value param 'position))
       (setf (cffi:mem-ref (slot-value param 'ind-ptr) 'sql-len)
-              (%sql-len-data-at-exec (length value))))))
+              (%sql-len-data-at-exec (length value)))
+      )))
 
 (defmethod send-parameter-data ((param blob-parameter) hstmt)
@@ -443,5 +444,5 @@
          (len (length temp-val))
          (buffer (cffi:foreign-alloc :uchar
-                                               :count (if (zerop len) 1 len))))
+                                     :count (if (zerop len) 1 len))))
     (put-byte-vector buffer
                  temp-val)