[Mouton]

To fix latest that shows unwanted dirs:
open ioDUPE.itcl and add 3 lines in it:

proc sitenew {section number} {
global dupe ioB zs
if {[catch {set iolog [open $dupe(iolog) r]}]} {return 0}
set content [split [read $iolog] \r\n]; close $iolog
set newdirs [lsearch -all -inline -glob $content "* NEWDIR: *"]
set pos 0
foreach newdir $newdirs {
	foreach dir $zs(subdirs) {
		if {[string match -nocase "*/$dir" [lindex $newdir 5]]} {set newdirs [lreplace $newdirs $pos $pos]; incr pos -1}
	}
	foreach dir $zs(excluded,dupe) {
		if {[string match $dir [lindex $newdir 5]]} {set newdirs [lreplace $newdirs $pos $pos]; incr pos -1}
	}
	incr pos 1
}