Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v
diff -u -N -r1.202 -r1.203
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	9 May 2018 15:33:32 -0000	1.202
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	16 May 2018 15:23:55 -0000	1.203
@@ -306,7 +306,7 @@
     }
 
     # Necessary hack to work around the acs-templating system
-    set __adp_stub "[get_server_root][www_path]/."
+    set __adp_stub "[acs_root_dir][www_path]/."
     set {master_template} \"master\"
 
     # Compile and evaluate the template
@@ -730,7 +730,7 @@
     # Templating system hacks
     #
 
-    set __adp_stub "[get_server_root][www_path]/."
+    set __adp_stub "[acs_root_dir][www_path]/."
     set master_template \"master\"
 
     set code [template::adp_compile -string $template]
@@ -1874,7 +1874,7 @@
                 <P>
                 </form>
             }]
-            set __adp_stub "[get_server_root][www_path]/."
+            set __adp_stub "[acs_root_dir][www_path]/."
             set {master_template} \"master\"
 
             set code [template::adp_compile -string $template]
@@ -2320,7 +2320,7 @@
 
     uplevel 1 {
         set template "<include src=\"$__ts\" cf=\"$__cflist\">"
-        set __adp_stub "[get_server_root]/packages/$__pk/www/."
+        set __adp_stub "[acs_root_dir]/packages/$__pk/www/."
         set code [template::adp_compile -string $template]
         set output [template::adp_eval code]
         return $output