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.74.2.21 -r1.74.2.22
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	19 Oct 2014 19:46:13 -0000	1.74.2.21
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	19 Nov 2014 07:22:26 -0000	1.74.2.22
@@ -1393,7 +1393,7 @@
 
     @author Peter Marklund
 } {
-    return [expr {[get_https_port] ne ""}]
+    return [expr {[get_https_port] ni {"" 0}}]
 }
 
 ad_proc -public security::secure_conn_p {} {