Index: init.tcl
===================================================================
RCS file: /cvsroot/tcl/library/init.tcl,v
retrieving revision 1.33
diff -c -r1.33 init.tcl
*** init.tcl	1999/08/19 02:59:40	1.33
--- init.tcl	1999/09/21 22:10:06
***************
*** 493,500 ****
      }
      set auto_execs($name) ""
  
!     if {[lsearch -exact {cls copy date del erase dir echo mkdir md rename 
! 	    ren rmdir rd time type ver vol} $name] != -1} {
  	return [set auto_execs($name) [list $env(COMSPEC) /c $name]]
      }
  
--- 493,511 ----
      }
      set auto_execs($name) ""
  
!     switch $tcl_platform(os) {
!         "Windows NT" {
!             # NT has different shell built-ins, notably 'start'
!             set shellBuiltins [list cls copy date del erase dir echo mkdir \
!                     md rename ren rmdir rd start time type ver vol]
!         }
!         default {
!             set shellBuiltins [list cls copy date del erase dir echo mkdir \
!                     md rename ren rmdir rd time type ver vol]
!         }
!     }
! 
!     if {[lsearch -exact $shellBuiltins $name] != -1} {
  	return [set auto_execs($name) [list $env(COMSPEC) /c $name]]
      }