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.4 -r1.5
--- openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	17 Sep 2007 00:48:52 -0000	1.4
+++ openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	25 Jun 2012 14:46:52 -0000	1.5
@@ -75,7 +75,7 @@
       if {$script eq "" && [info exists ::xotcl::currentScript]} {
 	set script $::xotcl::currentScript
       }
-      set root_dir [nsv_get acs_properties root_directory]
+      set root_dir [acs_root_dir]
       set root_length [string length $root_dir]
       if { $root_dir eq [string range $script 0 [expr {$root_length - 1}]]} {
         set script [string range $script [expr {$root_length + 1}] end]