*** fileutil.tcl.orig	Tue Feb 18 14:37:07 2003
--- fileutil.tcl	Tue Feb 18 14:41:23 2003
***************
*** 416,422 ****
          {r.arg  ""  "use time from ref_file"}
          {t.arg  -1  "use specified time"}
      }
!     array set params [::cmdline::getoptions args $options]
  
      # process -a and -m options
      set set_atime [set set_mtime "true"]
--- 416,423 ----
          {r.arg  ""  "use time from ref_file"}
          {t.arg  -1  "use specified time"}
      }
!     set usage ": [lindex [info level 0] 0] \[options] filename ...\noptions:"
!     array set params [::cmdline::getoptions args $options $usage]
  
      # process -a and -m options
      set set_atime [set set_mtime "true"]
