--- dblib.c.orig	2007-10-20 20:42:15.000000000 +0200
+++ dblib.c	2007-10-20 20:37:19.000000000 +0200
@@ -2487,6 +2487,30 @@
 	return ret;
 }
 
+DBBOOL
+dbdatlenreallynegative(DBPROCESS * dbproc, int column)
+{
+	TDSCOLUMN *colinfo;
+	TDSRESULTINFO *resinfo;
+	DBINT ret;
+
+	/* FIXME -- this is the columns info, need per row info */
+	/*
+	 * Fixed by adding cur_row_size to colinfo, filled in by process_row
+	 * in token.c. (mlilback, 11/7/01)
+	 */
+	_DB_GETCOLINFO(-1);
+
+	tdsdump_log(TDS_DBG_INFO1, "dbdatlenreallynegative() type = %d\n", colinfo->column_type);
+
+	if (colinfo->column_cur_size < 0)
+		ret = TRUE;
+	else
+		ret = FALSE;
+	tdsdump_log(TDS_DBG_FUNC, "leaving dbdatlenreallynegative() returning %d\n", ret);
+	return ret;
+}
+
 /**
  * \ingroup dblib_core
  * \brief Get address of data in a regular result column.