diff --git a/site_ansto/instrument/bilby/config/chopper/sct_astrium_chopper.tcl b/site_ansto/instrument/bilby/config/chopper/sct_astrium_chopper.tcl
index cd7e8f18..4a45f219 100644
--- a/site_ansto/instrument/bilby/config/chopper/sct_astrium_chopper.tcl
+++ b/site_ansto/instrument/bilby/config/chopper/sct_astrium_chopper.tcl
@@ -10,9 +10,12 @@ proc ::scobj::astrium_chopper::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/astrium_chopper_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/astrium_chopper_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/bilby/config/motors/sct_shutters.tcl b/site_ansto/instrument/bilby/config/motors/sct_shutters.tcl
index d409f38e..1c0bbc93 100644
--- a/site_ansto/instrument/bilby/config/motors/sct_shutters.tcl
+++ b/site_ansto/instrument/bilby/config/motors/sct_shutters.tcl
@@ -10,9 +10,12 @@ proc ::scobj::shutters::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/shutters_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/shutters_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/bilby/config/motors/sct_tank.tcl b/site_ansto/instrument/bilby/config/motors/sct_tank.tcl
index 8f0019e6..b03db167 100644
--- a/site_ansto/instrument/bilby/config/motors/sct_tank.tcl
+++ b/site_ansto/instrument/bilby/config/motors/sct_tank.tcl
@@ -10,9 +10,12 @@ proc ::scobj::tank::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/tank_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/tank_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/beamline/sct_he3_polanal.tcl b/site_ansto/instrument/config/beamline/sct_he3_polanal.tcl
index 9a14dbc6..654db951 100644
--- a/site_ansto/instrument/config/beamline/sct_he3_polanal.tcl
+++ b/site_ansto/instrument/config/beamline/sct_he3_polanal.tcl
@@ -21,9 +21,12 @@ proc ::scobj::he3_polanal::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/he3_polanal_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/he3_polanal_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/magneticField/sct_bruker.tcl b/site_ansto/instrument/config/environment/magneticField/sct_bruker.tcl
index 7133d86f..7093b2d7 100644
--- a/site_ansto/instrument/config/environment/magneticField/sct_bruker.tcl
+++ b/site_ansto/instrument/config/environment/magneticField/sct_bruker.tcl
@@ -10,9 +10,12 @@ proc ::scobj::bruker::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/bruker_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/bruker_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/magneticField/sct_green_magnet_labview.tcl b/site_ansto/instrument/config/environment/magneticField/sct_green_magnet_labview.tcl
index fda8bef5..87111df6 100644
--- a/site_ansto/instrument/config/environment/magneticField/sct_green_magnet_labview.tcl
+++ b/site_ansto/instrument/config/environment/magneticField/sct_green_magnet_labview.tcl
@@ -10,9 +10,12 @@ proc ::scobj::green_magnet_labview::debug_log {tc_root debug_level debug_string}
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/green_magnet_labview_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/green_magnet_labview_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/magneticField/sct_oxford12tlv.tcl b/site_ansto/instrument/config/environment/magneticField/sct_oxford12tlv.tcl
index 4b5dedc3..7efab920 100644
--- a/site_ansto/instrument/config/environment/magneticField/sct_oxford12tlv.tcl
+++ b/site_ansto/instrument/config/environment/magneticField/sct_oxford12tlv.tcl
@@ -10,9 +10,12 @@ proc ::scobj::oxford12tlv::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/oxford12tlv_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/oxford12tlv_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/magneticField/sct_tsi_smc.tcl b/site_ansto/instrument/config/environment/magneticField/sct_tsi_smc.tcl
index e3607e66..5a2910aa 100644
--- a/site_ansto/instrument/config/environment/magneticField/sct_tsi_smc.tcl
+++ b/site_ansto/instrument/config/environment/magneticField/sct_tsi_smc.tcl
@@ -10,9 +10,12 @@ proc ::scobj::tsi_smc::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/tsi_smc_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/tsi_smc_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/sct_agilent_33220A.tcl b/site_ansto/instrument/config/environment/sct_agilent_33220A.tcl
index e608d917..c410636d 100644
--- a/site_ansto/instrument/config/environment/sct_agilent_33220A.tcl
+++ b/site_ansto/instrument/config/environment/sct_agilent_33220A.tcl
@@ -10,9 +10,12 @@ proc ::scobj::agilent_33220A::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/agilent_33220A_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/agilent_33220A_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/sct_hiden_xcs.tcl b/site_ansto/instrument/config/environment/sct_hiden_xcs.tcl
index 766a81af..67164b2e 100644
--- a/site_ansto/instrument/config/environment/sct_hiden_xcs.tcl
+++ b/site_ansto/instrument/config/environment/sct_hiden_xcs.tcl
@@ -10,9 +10,12 @@ proc ::scobj::hiden_xcs::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/hiden_xcs_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/hiden_xcs_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/sct_huber_pilot.tcl b/site_ansto/instrument/config/environment/sct_huber_pilot.tcl
index 105af927..b4f6384b 100644
--- a/site_ansto/instrument/config/environment/sct_huber_pilot.tcl
+++ b/site_ansto/instrument/config/environment/sct_huber_pilot.tcl
@@ -13,9 +13,12 @@ proc ::scobj::huber_pilot::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/huber_pilot_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/huber_pilot_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/sct_isotech_ps.tcl b/site_ansto/instrument/config/environment/sct_isotech_ps.tcl
index f007fc82..5c6ac839 100644
--- a/site_ansto/instrument/config/environment/sct_isotech_ps.tcl
+++ b/site_ansto/instrument/config/environment/sct_isotech_ps.tcl
@@ -10,9 +10,12 @@ proc ::scobj::isotech_ps::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/isotech_ps_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/isotech_ps_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/sct_keithley_m2700.tcl b/site_ansto/instrument/config/environment/sct_keithley_m2700.tcl
index 5a76d00e..72fda1ad 100644
--- a/site_ansto/instrument/config/environment/sct_keithley_m2700.tcl
+++ b/site_ansto/instrument/config/environment/sct_keithley_m2700.tcl
@@ -10,9 +10,12 @@ proc ::scobj::keithley_m2700::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/keithley_m2700_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/keithley_m2700_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/sct_knauer_pump.tcl b/site_ansto/instrument/config/environment/sct_knauer_pump.tcl
index 2e04881a..47d7d8a5 100644
--- a/site_ansto/instrument/config/environment/sct_knauer_pump.tcl
+++ b/site_ansto/instrument/config/environment/sct_knauer_pump.tcl
@@ -10,9 +10,12 @@ proc ::scobj::knauer_pump::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/knauer_pump_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/knauer_pump_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/sct_mvp_valve.tcl b/site_ansto/instrument/config/environment/sct_mvp_valve.tcl
index a721bcb8..7fd5c536 100644
--- a/site_ansto/instrument/config/environment/sct_mvp_valve.tcl
+++ b/site_ansto/instrument/config/environment/sct_mvp_valve.tcl
@@ -10,9 +10,12 @@ proc ::scobj::mvp_valve::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/mvp_valve_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/mvp_valve_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/sct_nhq_200.tcl b/site_ansto/instrument/config/environment/sct_nhq_200.tcl
index eb583049..fad4bcc3 100644
--- a/site_ansto/instrument/config/environment/sct_nhq_200.tcl
+++ b/site_ansto/instrument/config/environment/sct_nhq_200.tcl
@@ -10,9 +10,12 @@ proc ::scobj::nhq_200::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/nhq_200_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/nhq_200_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/sct_omron_hldc.tcl b/site_ansto/instrument/config/environment/sct_omron_hldc.tcl
index 7fc25189..ae036bb1 100644
--- a/site_ansto/instrument/config/environment/sct_omron_hldc.tcl
+++ b/site_ansto/instrument/config/environment/sct_omron_hldc.tcl
@@ -10,9 +10,12 @@ proc ::scobj::omron_hldc::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/omron_hldc_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/omron_hldc_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/sct_protekmm.tcl b/site_ansto/instrument/config/environment/sct_protekmm.tcl
index fa30a279..27dfa4e3 100644
--- a/site_ansto/instrument/config/environment/sct_protekmm.tcl
+++ b/site_ansto/instrument/config/environment/sct_protekmm.tcl
@@ -10,9 +10,12 @@ proc ::scobj::protekmm::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/protekmm_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/protekmm_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/sct_syringe_pump.tcl b/site_ansto/instrument/config/environment/sct_syringe_pump.tcl
index 37969f1b..3388b868 100644
--- a/site_ansto/instrument/config/environment/sct_syringe_pump.tcl
+++ b/site_ansto/instrument/config/environment/sct_syringe_pump.tcl
@@ -10,9 +10,12 @@ proc ::scobj::syringe_pump::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/syringe_pump_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/syringe_pump_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/temperature/sct_eurotherm_3200.tcl b/site_ansto/instrument/config/environment/temperature/sct_eurotherm_3200.tcl
index e4b2358e..b4e7aea2 100644
--- a/site_ansto/instrument/config/environment/temperature/sct_eurotherm_3200.tcl
+++ b/site_ansto/instrument/config/environment/temperature/sct_eurotherm_3200.tcl
@@ -10,9 +10,12 @@ proc ::scobj::eurotherm_3200::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/eurotherm_3200_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/eurotherm_3200_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/temperature/sct_eurotherm_m2000.tcl b/site_ansto/instrument/config/environment/temperature/sct_eurotherm_m2000.tcl
index 54ab2503..72775280 100644
--- a/site_ansto/instrument/config/environment/temperature/sct_eurotherm_m2000.tcl
+++ b/site_ansto/instrument/config/environment/temperature/sct_eurotherm_m2000.tcl
@@ -10,9 +10,12 @@ proc ::scobj::eurotherm_m2000::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/eurotherm_m2000_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/eurotherm_m2000_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/temperature/sct_julabo_lh45_gen.tcl b/site_ansto/instrument/config/environment/temperature/sct_julabo_lh45_gen.tcl
index 922c20ef..1e41640b 100644
--- a/site_ansto/instrument/config/environment/temperature/sct_julabo_lh45_gen.tcl
+++ b/site_ansto/instrument/config/environment/temperature/sct_julabo_lh45_gen.tcl
@@ -10,9 +10,12 @@ proc ::scobj::julabo_lh45_gen::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/julabo_lh45_gen_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/julabo_lh45_gen_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/temperature/sct_lakeshore_218.tcl b/site_ansto/instrument/config/environment/temperature/sct_lakeshore_218.tcl
index 7f78f926..ad9cfe8e 100644
--- a/site_ansto/instrument/config/environment/temperature/sct_lakeshore_218.tcl
+++ b/site_ansto/instrument/config/environment/temperature/sct_lakeshore_218.tcl
@@ -10,9 +10,12 @@ proc ::scobj::lakeshore_218::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/lakeshore_218_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/lakeshore_218_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/temperature/sct_lakeshore_m370.tcl b/site_ansto/instrument/config/environment/temperature/sct_lakeshore_m370.tcl
index ec3b507e..2fb85022 100644
--- a/site_ansto/instrument/config/environment/temperature/sct_lakeshore_m370.tcl
+++ b/site_ansto/instrument/config/environment/temperature/sct_lakeshore_m370.tcl
@@ -10,9 +10,12 @@ proc ::scobj::lakeshore_m370::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/lakeshore_m370_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/lakeshore_m370_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/temperature/sct_ls336.tcl b/site_ansto/instrument/config/environment/temperature/sct_ls336.tcl
index 92c82679..fcbfd4aa 100644
--- a/site_ansto/instrument/config/environment/temperature/sct_ls336.tcl
+++ b/site_ansto/instrument/config/environment/temperature/sct_ls336.tcl
@@ -10,9 +10,12 @@ proc ::scobj::ls336::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/ls336_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/ls336_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/temperature/sct_ls340.tcl b/site_ansto/instrument/config/environment/temperature/sct_ls340.tcl
index ddf1c8c7..0dc417e8 100644
--- a/site_ansto/instrument/config/environment/temperature/sct_ls340.tcl
+++ b/site_ansto/instrument/config/environment/temperature/sct_ls340.tcl
@@ -10,9 +10,12 @@ proc ::scobj::ls340::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/ls340_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/ls340_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/temperature/sct_mercury_base.tcl b/site_ansto/instrument/config/environment/temperature/sct_mercury_base.tcl
index 576e4163..6e3c8e2b 100644
--- a/site_ansto/instrument/config/environment/temperature/sct_mercury_base.tcl
+++ b/site_ansto/instrument/config/environment/temperature/sct_mercury_base.tcl
@@ -10,9 +10,12 @@ proc ::scobj::mercury_base::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/mercury_base_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/mercury_base_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/temperature/sct_mercury_level.tcl b/site_ansto/instrument/config/environment/temperature/sct_mercury_level.tcl
index f995489d..aba8da0e 100644
--- a/site_ansto/instrument/config/environment/temperature/sct_mercury_level.tcl
+++ b/site_ansto/instrument/config/environment/temperature/sct_mercury_level.tcl
@@ -10,9 +10,12 @@ proc ::scobj::mercury_level::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/mercury_level_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/mercury_level_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/temperature/sct_mercury_pres.tcl b/site_ansto/instrument/config/environment/temperature/sct_mercury_pres.tcl
index c71bf29c..26bcb2f9 100644
--- a/site_ansto/instrument/config/environment/temperature/sct_mercury_pres.tcl
+++ b/site_ansto/instrument/config/environment/temperature/sct_mercury_pres.tcl
@@ -10,9 +10,12 @@ proc ::scobj::mercury_pres::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/mercury_pres_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/mercury_pres_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/temperature/sct_mercury_scpi.tcl b/site_ansto/instrument/config/environment/temperature/sct_mercury_scpi.tcl
index 1e025d09..ad1618f9 100644
--- a/site_ansto/instrument/config/environment/temperature/sct_mercury_scpi.tcl
+++ b/site_ansto/instrument/config/environment/temperature/sct_mercury_scpi.tcl
@@ -10,9 +10,12 @@ proc ::scobj::mercury_scpi::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/mercury_scpi_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/mercury_scpi_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/temperature/sct_mercury_temp.tcl b/site_ansto/instrument/config/environment/temperature/sct_mercury_temp.tcl
index ce3c9d40..d4d54adb 100644
--- a/site_ansto/instrument/config/environment/temperature/sct_mercury_temp.tcl
+++ b/site_ansto/instrument/config/environment/temperature/sct_mercury_temp.tcl
@@ -10,9 +10,12 @@ proc ::scobj::mercury_temp::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/mercury_temp_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/mercury_temp_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/temperature/sct_mercury_valve.tcl b/site_ansto/instrument/config/environment/temperature/sct_mercury_valve.tcl
index 41c27428..099d7e09 100644
--- a/site_ansto/instrument/config/environment/temperature/sct_mercury_valve.tcl
+++ b/site_ansto/instrument/config/environment/temperature/sct_mercury_valve.tcl
@@ -10,9 +10,12 @@ proc ::scobj::mercury_valve::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/mercury_valve_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/mercury_valve_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/temperature/sct_nprvasm2.tcl b/site_ansto/instrument/config/environment/temperature/sct_nprvasm2.tcl
index c51ea237..cc3ca0b4 100644
--- a/site_ansto/instrument/config/environment/temperature/sct_nprvasm2.tcl
+++ b/site_ansto/instrument/config/environment/temperature/sct_nprvasm2.tcl
@@ -10,9 +10,12 @@ proc ::scobj::nprvasm2::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/nprvasm2_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/nprvasm2_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/temperature/sct_pfeiffer_hg.tcl b/site_ansto/instrument/config/environment/temperature/sct_pfeiffer_hg.tcl
index 635e141a..72343960 100644
--- a/site_ansto/instrument/config/environment/temperature/sct_pfeiffer_hg.tcl
+++ b/site_ansto/instrument/config/environment/temperature/sct_pfeiffer_hg.tcl
@@ -13,9 +13,12 @@ proc ::scobj::pfeiffer_hg::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/pfeiffer_hg_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/pfeiffer_hg_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/temperature/sct_srs_sr630.tcl b/site_ansto/instrument/config/environment/temperature/sct_srs_sr630.tcl
index 4287b27d..da3e1158 100644
--- a/site_ansto/instrument/config/environment/temperature/sct_srs_sr630.tcl
+++ b/site_ansto/instrument/config/environment/temperature/sct_srs_sr630.tcl
@@ -10,9 +10,12 @@ proc ::scobj::srs_sr630::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/srs_sr630_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/srs_sr630_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/temperature/sct_watlow_mpm.tcl b/site_ansto/instrument/config/environment/temperature/sct_watlow_mpm.tcl
index 3f077f9d..f0d92d9d 100644
--- a/site_ansto/instrument/config/environment/temperature/sct_watlow_mpm.tcl
+++ b/site_ansto/instrument/config/environment/temperature/sct_watlow_mpm.tcl
@@ -10,9 +10,12 @@ proc ::scobj::watlow_mpm::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/watlow_mpm_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/watlow_mpm_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/temperature/sct_watlow_mrm.tcl b/site_ansto/instrument/config/environment/temperature/sct_watlow_mrm.tcl
index ef75df4c..6addd245 100644
--- a/site_ansto/instrument/config/environment/temperature/sct_watlow_mrm.tcl
+++ b/site_ansto/instrument/config/environment/temperature/sct_watlow_mrm.tcl
@@ -10,9 +10,12 @@ proc ::scobj::watlow_mrm::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/watlow_mrm_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/watlow_mrm_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/temperature/sct_watlow_mst4.tcl b/site_ansto/instrument/config/environment/temperature/sct_watlow_mst4.tcl
index b4c66ef3..7d786863 100644
--- a/site_ansto/instrument/config/environment/temperature/sct_watlow_mst4.tcl
+++ b/site_ansto/instrument/config/environment/temperature/sct_watlow_mst4.tcl
@@ -10,9 +10,12 @@ proc ::scobj::watlow_mst4::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/watlow_mst4_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/watlow_mst4_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/temperature/sct_west4100.tcl b/site_ansto/instrument/config/environment/temperature/sct_west4100.tcl
index 0b439f99..94dda30a 100644
--- a/site_ansto/instrument/config/environment/temperature/sct_west4100.tcl
+++ b/site_ansto/instrument/config/environment/temperature/sct_west4100.tcl
@@ -10,9 +10,12 @@ proc ::scobj::west4100::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/west4100_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/west4100_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/environment/temperature/sct_west_6100.tcl b/site_ansto/instrument/config/environment/temperature/sct_west_6100.tcl
index ad5e0ae0..5a818e53 100644
--- a/site_ansto/instrument/config/environment/temperature/sct_west_6100.tcl
+++ b/site_ansto/instrument/config/environment/temperature/sct_west_6100.tcl
@@ -10,9 +10,12 @@ proc ::scobj::west_6100::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/west_6100_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/west_6100_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/robots/sct_epson_pandp.tcl b/site_ansto/instrument/config/robots/sct_epson_pandp.tcl
index ed7ab845..ae97c235 100644
--- a/site_ansto/instrument/config/robots/sct_epson_pandp.tcl
+++ b/site_ansto/instrument/config/robots/sct_epson_pandp.tcl
@@ -10,9 +10,12 @@ proc ::scobj::epson_pandp::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/epson_pandp_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/epson_pandp_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]
diff --git a/site_ansto/instrument/config/source/sct_reactor_status.tcl b/site_ansto/instrument/config/source/sct_reactor_status.tcl
index c62fc253..292c8a57 100644
--- a/site_ansto/instrument/config/source/sct_reactor_status.tcl
+++ b/site_ansto/instrument/config/source/sct_reactor_status.tcl
@@ -10,9 +10,12 @@ proc ::scobj::reactor_status::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/reactor_status_[basename ${tc_root}].log" "a"]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
-      puts ${fd} "${line}"
+      set now [clock seconds]
+      set ts [clock format ${now} -format "%Y%m%d"]
+      set log_file_name "../log/reactor_status_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]