diff --git a/fdt.tcl b/fdt.tcl
index a98afd2b0936f0537e9416f8481c09a56060a19b..50a898850a5aa434b4b27f008d1d4be7a5699892 100644
--- a/fdt.tcl
+++ b/fdt.tcl
@@ -645,6 +645,13 @@ proc fdt:apply { w dialog } {
 	    }
 	    if { $canwrite } {
 		puts "bedpostx $bedpost(directory) -n $bedpost(nfibres) -w $bedpost(weight)  -b $bedpost(burnin)"
+                
+                set filebase $bedpost(directory)/bedpostcom
+	        set logfile "${filebase}_log.tcl"
+	        set log [open "$logfile" w]
+	        puts $log "bedpostx $bedpost(directory) -n $bedpost(nfibres) -w $bedpost(weight)  -b $bedpost(burnin)"
+                close $log
+
 		fdt_monitor $w "${FSLDIR}/bin/bedpostx $bedpost(directory) -n $bedpost(nfibres) -w $bedpost(weight)  -b $bedpost(burnin)"
 	    }
 	}