Ticket #10571: 10571.patch

98c98,106
<                               return -code error "Image error: Another version of $iname (${iversion}_${irevision}${ivariants}) is already active."
---
>                               # if the force option was given, deactivate the existing version first
>                               if { $force } { 
>                                       # if the deactivation fails, pass on the error message
>                                       if {[catch {deactivate $iname ${iversion}_${irevision} $optionslist} result]} {
>                                               return -code error $result
>                                       }
>                               } else {
>                                       return -code error "Image error: Another version of $iname (${iversion}_${irevision}${ivariants}) is already active."
>                               }