diff --git a/fdt.tcl b/fdt.tcl
index b4a7e652d90b5d221ab581473965f8754ebbcf91..1275a32f81308567bfc2ac919d7ac71d9df25b7c 100644
--- a/fdt.tcl
+++ b/fdt.tcl
@@ -780,8 +780,7 @@ proc fdt:apply { w dialog } {
 	    puts $log "set probtrack(reference) $probtrack(reference)"
 	    puts $log "set probtrack(output) $probtrack(output)"
        	    if { $canwrite } {
-       		set copylog "fdt.log"
-
+       		set copylog "$probtrack(output)/fdt.log"
 	        if { $probtrack(waypoint_yn) == 1 } {
                     fdt_exp w $w.data.targets.wf.tf.targets $probtrack(output)/waypoints.txt
 		    puts $log "set probtrack(waypoint_yn) $probtrack(waypoint_yn)"