cvs diff genStubs.tcl (in directory D:\TclPro_WS\tcl\tools)
Index: genStubs.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/tools/genStubs.tcl,v
retrieving revision 1.8
diff -c -r1.8 genStubs.tcl
*** genStubs.tcl	2001/05/02 20:42:37	1.8
--- genStubs.tcl	2001/08/16 01:49:55
***************
*** 182,190 ****
      set in [open ${file} r]
      set out [open ${file}.new w]
  
-     # Always write out the file with LF termination
-     fconfigure $out -translation lf
- 
      while {![eof $in]} {
  	set line [gets $in]
  	if {[regexp {!BEGIN!} $line]} {
--- 182,187 ----