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.196 -r1.197
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	15 Feb 2018 14:40:29 -0000	1.196
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	20 Mar 2018 21:09:17 -0000	1.197
@@ -111,7 +111,11 @@
 ad_proc -public portal::mount_point {} {
     caches the mount point
 } {
-    return [util_memoize portal::mount_point_no_cache]
+    set key ::portal::mount_point
+    if {[info exists $key]} {
+        return [set $key]
+    }
+    return [set $key [portal::mount_point_no_cache]]
 }
 
 ad_proc -public portal::automount_point {} {