Index: kitsh/buildsrc/kitsh-0.0/main.c
==================================================================
--- kitsh/buildsrc/kitsh-0.0/main.c
+++ kitsh/buildsrc/kitsh-0.0/main.c
@@ -2,15 +2,11 @@
 #include <tcl.h>
 
 int TclKit_AppInit(Tcl_Interp *interp);
 
 int main(int argc, char **argv) {
-	Tcl_Interp *x;
-
-	x = Tcl_CreateInterp();
-
 	Tcl_Main(argc, argv, TclKit_AppInit);
 
 	/* If Tcl_Main() returns, something went wrong */
 	return(1);
 }
 #endif