Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v
diff -u -N -r1.100 -r1.101
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	8 Jun 2018 14:01:08 -0000	1.100
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	14 Jun 2018 08:46:42 -0000	1.101
@@ -822,6 +822,7 @@
             # subsite.
             #
             set url /
+            set host_node_id [dict get [site_node::get_from_url -url $url] node_id]
             set subsite_id [site_node::get_object_id -node_id $host_node_id]
         }
         if {$UseHostnameDomainforReg} {