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 -r1.29.2.2 -r1.29.2.3
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	2 Mar 2004 10:44:36 -0000	1.29.2.2
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	5 Mar 2004 10:33:58 -0000	1.29.2.3
@@ -1350,7 +1350,13 @@
     
     @author Peter Marklund
 } {
-    return [parameter::get_from_package_key -boolean -parameter RestrictLoginToSSLP -package_key acs-kernel]
+    if { ![security::https_available_p] } {
+	return 0
+    }
+    return [parameter::get \
+		-boolean \
+		-parameter RestrictLoginToSSLP \
+		-package_id [acs_acs_kernel_id]]
 }
 
 ad_proc -public security::require_secure_conn {} {