--- base/src/port/portindex.tcl.orig	2008-02-23 17:39:16.000000000 -0700
+++ base/src/port/portindex.tcl	2008-08-06 14:49:08.000000000 -0600
@@ -136,9 +136,10 @@
 }
 
 puts "Creating software index in $outdir"
-set fd [open [file join $outdir PortIndex] w]
+set fd [open [file join $outdir PortIndex.regen] w]
 mporttraverse pindex $directory
 close $fd
+file rename -force PortIndex.regen PortIndex
 puts "\nTotal number of ports parsed:\t$stats(total)\
       \nPorts successfully parsed:\t[expr $stats(total) - $stats(failed)]\t\
       \nPorts failed:\t\t\t$stats(failed)\n"