Modified: branches/release_2_0/base/src/registry2.0/portimage.tcl (79864 => 79865)
--- branches/release_2_0/base/src/registry2.0/portimage.tcl 2011-06-28 19:30:51 UTC (rev 79864)
+++ branches/release_2_0/base/src/registry2.0/portimage.tcl 2011-06-28 19:34:32 UTC (rev 79865)
@@ -463,7 +463,7 @@
# if we're forcing the activation, then we move any existing
# files to a backup file, both in the filesystem and in the
# registry
- if { [file exists $file] } {
+ if { ![catch {file type $file}] } {
set bakfile "${file}${baksuffix}"
ui_warn "File $file already exists. Moving to: $bakfile."
file rename -force -- $file $bakfile