*** tclExecute.c	2001/04/07 03:15:38	1.21
--- tclExecute.c	2001/04/20 01:32:03
***************
*** 4083,4089 ****
  
      if (!(iPtr->flags & RAND_SEED_INITIALIZED)) {
  	iPtr->flags |= RAND_SEED_INITIALIZED;
! 	iPtr->randSeed = TclpGetClicks();
  
  	/*
  	 * Make sure 1 <= randSeed <= (2^31) - 2.  See below.
--- 4083,4094 ----
  
      if (!(iPtr->flags & RAND_SEED_INITIALIZED)) {
  	iPtr->flags |= RAND_SEED_INITIALIZED;
! 
! 	/*
! 	 * take into consideration the thread this interp is running in.
! 	 */
! 
! 	iPtr->randSeed = TclpGetClicks() + ((long) Tcl_GetCurrentThread() << 12);
  
  	/*
  	 * Make sure 1 <= randSeed <= (2^31) - 2.  See below.