Patch by Dieter Maurer to make things work for Tcl/Tk 8.1 (tested with

8.1.1).  His approach doesn't work with Tcl/Tk 8.2, so I've placed it
inside #if TKMAJORMINOR == 8001 and #endif.  See also his patch for
tkappinit.c.