*** generic/tkFrame.c.orig	Tue Aug 10 07:06:01 1999
--- generic/tkFrame.c	Sun Jan 16 17:43:03 2000
***************
*** 238,243 ****
--- 238,244 ----
   *
   *--------------------------------------------------------------
   */
+ extern TkStubs tkStubs;
  
  int
  TkCreateFrame(clientData, interp, argc, argv, toplevel, appName)
***************
*** 261,266 ****
--- 262,271 ----
      unsigned int mask;
      Colormap colormap;
      Visual *visual;
+     if ((Tcl_InitStubs(interp, "8.1", 0) == NULL) ||
+ 	    (Tcl_PkgProvideEx(interp, "Tk", TK_VERSION, (ClientData) &tkStubs) != TCL_OK)) {
+ 	return TCL_ERROR;
+     }
  
      if (argc < 2) {
  	Tcl_AppendResult(interp, "wrong # args: should be \"",
