*** generic/tkArgv.c.orig	Fri Apr 16 03:51:10 1999
--- generic/tkArgv.c	Sun Jan 16 17:43:02 2000
***************
*** 91,96 ****
--- 91,100 ----
      size_t length;		/* Number of characters in current argument. */
      int i;
  
+     if (Tcl_InitStubs(interp, "8.1", 0) == NULL) {
+ 	return TCL_ERROR;
+     }
+ 
      if (flags & TK_ARGV_DONT_SKIP_FIRST_ARG) {
  	srcIndex = dstIndex = 0;
  	argc = *argcPtr;
