Index: openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl,v
diff -u -r1.72 -r1.73
--- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	28 Oct 2024 14:58:41 -0000	1.72
+++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	14 Oct 2025 13:28:15 -0000	1.73
@@ -39,8 +39,12 @@
                         -default ${:default}]
       }
 
+  set defaultLogDir [file dirname [file rootname [ns_config ns/parameters ServerLog]]]
+  if {$defaultLogDir eq "."} {
+    set defaultLogDir [ns_config ns/parameters logdir]
+  }
   package_parameter log-dir \
-      -default [file dirname [file rootname [ns_config ns/parameters ServerLog]]]
+      -default $defaultLogDir
 
   package_parameter do_double_click_prevention -default on
   package_parameter do_slowdown_overactive     -default off
@@ -97,6 +101,19 @@
     :open
   }
 
+  Class create AsyncLogFile -parameter {filename {mode a}}
+
+  AsyncLogFile instproc init {} {
+    try {
+      if {![info exists :filename]} {
+        set :filename $::logdir/[namespace tail [self]]
+      }
+      :open
+    } on error {errorMsg} {
+      ns_log Error opening async log lead to: '$errorMsg'
+    }
+  }
+
   if {[acs::icanuse ns_asynclogfile]} {
     #
     # Use NaviServer builtin async disk writer.