Index: openacs-4/packages/acs-bootstrap-installer/installer/install.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/installer/install.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/packages/acs-bootstrap-installer/installer/install.tcl	25 Jan 2005 23:51:57 -0000	1.8
+++ openacs-4/packages/acs-bootstrap-installer/installer/install.tcl	26 Jan 2005 21:07:23 -0000	1.9
@@ -154,10 +154,7 @@
 
 # set the Main Site RestrictToSSL parameter
 
-set main_site_id [db_string main_site_id_select { 
-    select package_id from apm_packages
-    where instance_name = 'Main Site' 
-}]
+set main_site_id [subsite::main_site_id]
 
 ad_parameter -set "acs-admin/*" -package_id $main_site_id RestrictToSSL
 ad_parameter -set $new_registrations -package_id $main_site_id NewRegistrationEmailAddress