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.50 -r1.51
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	7 Sep 2008 04:56:12 -0000	1.50
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	23 Sep 2008 20:39:49 -0000	1.51
@@ -1621,8 +1621,8 @@
     }
 
     set locations [list $insecure_location $secure_location]
-    if { [info exists alt_insecure_location] && [parameter::get -parameter SuppressHttpPort -package_id [apm_package_id_from_key acs-tcl]] } {
+    if { [info exists alt_insecure_location] && [parameter::get -parameter SuppressHttpPort -package_id [apm_package_id_from_key acs-tcl] -default 0] } {
         lappend $alt_insecure_location
     }
     return  $locations
-}
\ No newline at end of file
+}