--- Tcl.cc~	Tue Dec  3 03:52:20 1996
+++ Tcl.cc	Tue Oct 26 14:41:59 1999
@@ -66,6 +66,7 @@
 {
 	instance_.tcl_ = tcl;
 	instance_.application_ = application;
+	Tcl_Init(tcl);
 }
 
 void Tcl::evalc(const char* s)
