Index: src/tclsqlite.c
==================================================================
--- src/tclsqlite.c
+++ src/tclsqlite.c
@@ -9,11 +9,11 @@
 **    May you share freely, never taking more than you give.
 **
 *************************************************************************
 ** A TCL Interface to SQLite
 **
-** $Id: tclsqlite.c,v 1.124 2005/05/05 10:30:30 drh Exp $
+** $Id: tclsqlite.c,v 1.125 2005/05/20 09:40:56 danielk1977 Exp $
 */
 #ifndef NO_TCL     /* Omit this whole file if TCL is unavailable */
 
 #include "sqliteInt.h"
 #include "hash.h"
@@ -271,10 +271,12 @@
       Tcl_DStringAppendElement(&cmd, sqlite3_value_text(argv[i]));
     }
   }
   rc = Tcl_EvalEx(p->interp, Tcl_DStringValue(&cmd), Tcl_DStringLength(&cmd),
                   TCL_EVAL_DIRECT);
+  Tcl_DStringFree(&cmd);
+
   if( rc && rc!=TCL_RETURN ){
     sqlite3_result_error(context, Tcl_GetStringResult(p->interp), -1); 
   }else{
     Tcl_Obj *pVar = Tcl_GetObjResult(p->interp);
     int n;
@@ -282,11 +284,10 @@
     char *zType = pVar->typePtr ? pVar->typePtr->name : "";
     char c = zType[0];
     if( c=='b' && strcmp(zType,"bytearray")==0 ){
       data = Tcl_GetByteArrayFromObj(pVar, &n);
       sqlite3_result_blob(context, data, n, SQLITE_TRANSIENT);
-      Tcl_IncrRefCount(pVar);
     }else if( (c=='b' && strcmp(zType,"boolean")==0) ||
           (c=='i' && strcmp(zType,"int")==0) ){
       Tcl_GetIntFromObj(0, pVar, &n);
       sqlite3_result_int(context, n);
     }else if( c=='d' && strcmp(zType,"double")==0 ){
@@ -294,11 +295,10 @@
       Tcl_GetDoubleFromObj(0, pVar, &r);
       sqlite3_result_double(context, r);
     }else{
       data = Tcl_GetStringFromObj(pVar, &n);
       sqlite3_result_text(context, data, n, SQLITE_TRANSIENT);
-      Tcl_IncrRefCount(pVar);
     }
   }
 }
 
 #ifndef SQLITE_OMIT_AUTHORIZATION