Index: src/port1.0/portutil.tcl
===================================================================
--- src/port1.0/portutil.tcl	(revision 58248)
+++ src/port1.0/portutil.tcl	(working copy)
@@ -893,7 +893,7 @@
             return -code error "reinplace permissions failed"
         }
 
-        if {[catch {file copy -force $tmpfile $file} error]} {
+        if {[catch {exec cp $tmpfile $file} error]} {
             global errorInfo
             ui_debug "$errorInfo"
             ui_error "reinplace: $error"