  	pFIELD <- mallocBytes (#const sizeof(FIELD))	
  	res <- sqlAllocStmt hDBC ((#ptr FIELD, hSTMT) pFIELD)
  	unless (sqlSuccess res) (free pFIELD)
-@@ -258,10 +266,7 @@
+@@ -267,10 +270,7 @@
  	let handleResult res = do
  		unless (sqlSuccess res) (free pFIELD)
  		handleSqlResult (#const SQL_HANDLE_STMT) hSTMT res

 	sqlNumResultCols hSTMT ((#ptr FIELD, fieldsCount) pFIELD) >>= handleResult
 	count <- (#peek FIELD, fieldsCount) pFIELD
 	(fields, bufSize) <- getFieldDefs hSTMT pFIELD 1 count
@@ -286,25 +291,32 @@
 				(fields, fullBufSize) <- getFieldDefs hSTMT pFIELD (n+1) count
 				return ((name,sqlType,toBool nullable):fields, max bufSize fullBufSize)
 				

 		) where
 
 import Data.Word(Word32, Word16)
@@ -256,9 +259,9 @@
 	sqlFreeStmt hSTMT 0 >>= handleSqlResult (#const SQL_HANDLE_STMT) hSTMT
 	free pFIELD
 
