Index: openacs-4/packages/new-portal/tcl/portal-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-init.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/new-portal/tcl/portal-init.tcl	22 May 2018 13:22:23 -0000	1.3
@@ -0,0 +1,13 @@
+
+#
+### Portal immutable properties
+#
+
+set ::portal::package_key "new-portal"
+set ::portal::get_package_id [apm_package_id_from_key $::portal::package_key]
+set ::portal::www_path /packages/${::portal::package_key}/www
+set ::portal::mount_point [site_node::get_url_from_object_id \
+                               -object_id $::portal::get_package_id]
+set ::portal::automount_point "portal"
+
+###
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.206 -r1.207
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	22 May 2018 10:06:59 -0000	1.206
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	22 May 2018 13:22:23 -0000	1.207
@@ -76,22 +76,19 @@
 
 # The management is not responsible for the results of multi-mounting
 
-set ::portal::package_key "new-portal"
 ad_proc -private portal::package_key {} {
     Returns the package_key
 } {
     return $::portal::package_key
 }
 
-set ::portal::get_package_id [apm_package_id_from_key $::portal::package_key]
 ad_proc -public portal::get_package_id {} {
     returns the package ID
 } {
     return $::portal::get_package_id
 }
 
 # Work around for template::util::url_to_file
-set ::portal::www_path /packages/${::portal::package_key}/www
 ad_proc -private portal::www_path {} {
     Returns the path of the www dir of the portal package. We
     need this for stupid template tricks.
@@ -102,14 +99,9 @@
 ad_proc -public portal::mount_point {} {
     caches the mount point
 } {
-    if {![info exists ::portal::mount_point]} {
-        set ::portal::mount_point [site_node::get_url_from_object_id \
-                                       -object_id $::portal::get_package_id]
-    }    
     return $::portal::mount_point
 }
 
-set ::portal::automount_point "portal"
 ad_proc -public portal::automount_point {} {
     packages such as dotlrn can automount the portal here
 } {