Index: openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl,v
diff -u -r1.70 -r1.71
--- openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	23 Oct 2024 10:41:13 -0000	1.70
+++ openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	24 Oct 2024 16:17:46 -0000	1.71
@@ -565,6 +565,9 @@
         set script $::ad_conn(file)
         ns_log notice "ad_proc: get script name for proc '$proc_name' from ad_conn(file): $script"
     }
+    if {$script eq "" && [info exists ::xotcl::currentScript]} {
+        set script $::xotcl::currentScript
+    }
     set root_length [string length $::acs::rootdir]
     if { $::acs::rootdir eq [string range $script 0 $root_length-1] } {
         set script [string range $script $root_length+1 end]