Index: tkWinWm.c
===================================================================
RCS file: /cvsroot/tk/win/tkWinWm.c,v
retrieving revision 1.8
diff -c -r1.8 tkWinWm.c
*** tkWinWm.c	1999/04/16 01:51:54	1.8
--- tkWinWm.c	1999/06/17 19:39:54
***************
*** 518,524 ****
  TkWinWmCleanup(hInstance)
      HINSTANCE hInstance;
  {
!     ThreadSpecificData *tsdPtr = (ThreadSpecificData *) 
              Tcl_GetThreadData(&dataKey, sizeof(ThreadSpecificData));
  
      if (!tsdPtr->initialized) {
--- 518,537 ----
  TkWinWmCleanup(hInstance)
      HINSTANCE hInstance;
  {
!     ThreadSpecificData *tsdPtr;
! 
!     /*
!      * If we're using stubs to access the Tcl library, and they
!      * haven't been initialized, we can't call Tcl_GetThreadData.
!      */
! 
! #ifdef USE_TCL_STUBS
!     if (tclStubsPtr == NULL) {
!         return;
!     }
! #endif
! 
!     tsdPtr = (ThreadSpecificData *) 
              Tcl_GetThreadData(&dataKey, sizeof(ThreadSpecificData));
  
      if (!tsdPtr->initialized) {