$NetBSD: patch-aj,v 1.1 1999/05/23 22:23:02 he Exp $

--- Tcl.cc.old	Mon May 24 00:18:47 1999
+++ Tcl.cc	Mon May 24 00:17:27 1999
@@ -63,10 +63,11 @@
 
 void Tcl::init(Tcl_Interp* tcl, const char* application)
 {
 	instance_.tcl_ = tcl;
 	instance_.application_ = application;
+	Tcl_Init(tcl);
 }
 
 void Tcl::evalc(const char* s)
 {
 	u_int n = strlen(s) + 1;