diff --git a/include/ircaux.h b/include/ircaux.h
index af363ca..4027504 100644
--- a/include/ircaux.h
+++ b/include/ircaux.h
@@ -16,10 +16,6 @@
 #include "irc.h"
 #include "irc_std.h"
 #include <stdio.h>
-#ifdef WANT_TCL
-#undef USE_TCLALLOC
-#include <tcl.h>
-#endif
 
 typedef int comp_len_func (char *, char *, int);
 typedef int comp_func (char *, char *);
diff --git a/include/tcl_bx.h b/include/tcl_bx.h
index 692b90c..8816694 100644
--- a/include/tcl_bx.h
+++ b/include/tcl_bx.h
@@ -26,7 +26,7 @@ void tcl_load (char *, char *, char *, char *);
 
 #ifdef WANT_TCL
 
-
+#define USE_NON_CONST
 #include <tcl.h>
 extern Tcl_Interp *tcl_interp;
 void check_tcl_tand (char *, char *, char *);
diff --git a/source/fset.c b/source/fset.c
index 9610f93..51730eb 100644
--- a/source/fset.c
+++ b/source/fset.c
@@ -11,6 +11,7 @@ CVS_REVISION(fset_c)
 #include "misc.h"
 #include "list.h"
 #include "vars.h"
+#include "tcl_bx.h"
 #define MAIN_SOURCE
 #include "modval.h"
 
diff --git a/source/tcl_public.c b/source/tcl_public.c
index 637c081..e5f9a02 100644
--- a/source/tcl_public.c
+++ b/source/tcl_public.c
@@ -1435,7 +1435,7 @@ struct timeval now1;
 			{
 				for (i=0; i<argc; i++) 
 					Tcl_DStringAppendElement(&ds,argv[i]);
-				free(argv);
+				ckfree((char *)argv);
 				code=Tcl_Eval(tcl_interp,Tcl_DStringValue(&ds));
 				/* code=Tcl_Eval(tcl_interp,mark->cmd); */
 				Tcl_DStringFree(&ds);