Index: tcc4tcl.c
==================================================================
--- tcc4tcl.c
+++ tcc4tcl.c
@@ -37,15 +37,11 @@
 	TCCState *s ;
 
 	ts = (struct TclTCCState *) cdata;
 	s = ts->s;
 
-	/* We can delete the compiler if the output was not to memory */
-	if (s->output_type != TCC_OUTPUT_MEMORY) {
-		tcc_delete(s);
-		ts->s = NULL;
-	}
+	ts->s = NULL;
 
 	ckfree((void *) ts);
 }
 
 static int Tcc4tclHandleCmd ( ClientData cdata, Tcl_Interp *interp, int objc, Tcl_Obj * CONST objv[]){