Index: openacs-4/packages/file-manager/tcl/file-manager-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-manager/tcl/file-manager-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/file-manager/tcl/file-manager-procs.tcl	9 May 2018 15:33:31 -0000	1.7
+++ openacs-4/packages/file-manager/tcl/file-manager-procs.tcl	26 Nov 2024 09:23:38 -0000	1.8
@@ -12,7 +12,7 @@
 proc fm_pageroot_relative_path {path} {
     set match ""
     set local ""
-    regexp "[ns_info pageroot](.+)" $path match local
+    regexp "[ns_server pagedir](.+)" $path match local
     return $local
 }
 
@@ -68,7 +68,7 @@
     # Grab the path relative to the pageroot and create a linked list
     # of path components for the top of the directory listing
 
-    set pageroot [ns_info pageroot]
+    set pageroot [ns_server pagedir]
 
     if [string equal -nocase $pageroot $path_full] {
         # we're at the top of the directory listing already