258a259,260
>     if {[info exists data(hsb,packInProgress)]} { return }
> 
266c268,269
<                 set data(hsb,packed) 1
---
> 	        set data(hsb,packInProgress) 1
> 	        set data(hsb,packed) 1
272a276,278
>     if {[info exists data(hsb,packInProgress)]} {
>         unset data(hsb,packInProgress)
>     }
281a288,290
>     if {[info exists data(vsb,packInProgress)]} { return }
> 
> 
289a299
> 	        set data(vsb,packInProgress) 1
295a306,308
>     if {[info exists data(vsb,packInProgress)]} {
>         unset data(vsb,packInProgress)
>     }
