Index: openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl,v
diff -u -N -r1.22.2.11 -r1.22.2.12
--- openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	30 Oct 2021 12:06:43 -0000	1.22.2.11
+++ openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	15 Mar 2022 12:01:53 -0000	1.22.2.12
@@ -229,7 +229,7 @@
     if {$script eq "" && [info exists ::xotcl::currentScript]} {
       set script $::xotcl::currentScript
     }
-    set root_dir [acs_root_dir]
+    set root_dir $::acs::rootdir
     set root_length [string length $root_dir]
     if { $root_dir eq [string range $script 0 $root_length-1]} {
       set script [string range $script $root_length+1 end]