*** cmdline.tcl~	Thu Oct 11 12:05:25 2001
--- cmdline.tcl	Wed Oct 17 18:06:50 2001
***************
*** 147,158 ****
      set argc [llength $argv]
      while {[set err [cmdline::getopt argv $opts opt arg]]} {
  	if {$err < 0} {
! 	    error [cmdline::usage $optlist $usage]
  	}
  	set result($opt) $arg
      }
      if {[info exist result(?)] || [info exists result(help)]} {
! 	error [cmdline::usage $optlist $usage]
      }
      return [array get result]
  }
--- 147,158 ----
      set argc [llength $argv]
      while {[set err [cmdline::getopt argv $opts opt arg]]} {
  	if {$err < 0} {
! 	    error "$arg\n[cmdline::usage $optlist $usage]"
  	}
  	set result($opt) $arg
      }
      if {[info exist result(?)] || [info exists result(help)]} {
! 	return -code -1 [cmdline::usage $optlist $usage]
      }
      return [array get result]
  }
