*** tar.tcl.orig	2006-06-23 15:55:32.000000000 +0200
--- tar.tcl	2006-06-23 15:55:52.000000000 +0200
*************** proc ::tar::parseOpts {acc opts} {
*** 23,29 ****
          set name [string trimleft [lindex $opts $i] -]
          if {![info exists flags($name)]} {return -code error "unknown option \"$name\""}
          if {$flags($name) > 0} {
!             set flags [lrange $opts [expr {$i + 1}] [expr {$i + $flags($name)}]]
              incr i $flags($name)
          } else {
              set $name 1
--- 23,29 ----
          set name [string trimleft [lindex $opts $i] -]
          if {![info exists flags($name)]} {return -code error "unknown option \"$name\""}
          if {$flags($name) > 0} {
!             set $name [lrange $opts [expr {$i + 1}] [expr {$i + $flags($name)}]]
              incr i $flags($name)
          } else {
              set $name 1
