*** tclMain.c.orig	Thu Nov  3 15:02:54 2011
--- tclMain.c	Thu Nov  3 15:04:12 2011
***************
*** 460,472 ****
      }
  
      /*
!      * We're running interactively. Source a user-specific startup file if the
!      * application specified one and if the file exists.
       */
  
!     Tcl_SourceRCFile(interp);
!     if (Tcl_LimitExceeded(interp)) {
! 	goto done;
      }
  
      /*
--- 460,475 ----
      }
  
      /*
!      * No script file was specified on the command line.
!      * If we're running interactively, source a user-specific 
!      * startup file if the application specified one and if the file exists.
       */
  
!     if (tty) {
! 	Tcl_SourceRCFile(interp);
! 	if (Tcl_LimitExceeded(interp)) {
! 	    goto done;
! 	}
      }
  
      /*
