map-patch-to-bugs.tcl