Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.127 -r1.128
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	30 Oct 2010 21:43:01 -0000	1.127
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	18 Sep 2012 09:15:11 -0000	1.128
@@ -2006,7 +2006,7 @@
     @see ad_get_cookie
 } {
     set headers [ad_conn outputheaders]
-    if { $replace ne "f" } {
+    if { $replace } {
 	# Try to find an already-set cookie named $name.
 	for { set i 0 } { $i < [ns_set size $headers] } { incr i } {
 	    if { ![string compare [string tolower [ns_set key $headers $i]] "set-cookie"] && \
@@ -2030,7 +2030,7 @@
     if { $discard ne "f" } {
 	append cookie "; Discard"
     } elseif { $max_age eq "inf" } {
-        if { $expire ne "t" } {
+        if { !$expire } {
             # netscape seemed unhappy with huge max-age, so we use
             # expires which seems to work on both netscape and IE
             append cookie "; Expires=Mon, 01-Jan-2035 01:00:00 GMT"
@@ -2039,15 +2039,15 @@
         append cookie "; Max-Age=$max_age; Expires=[util::cookietime [expr {[ns_time] + $max_age}]]"
     }
 
-    if {$expire eq "t"} {
+    if {$expire} {
         append cookie "; Expires=Tue, 01-Jan-1980 01:00:00 GMT"
     }
 
     if { $domain ne "" } {
 	append cookie "; Domain=$domain"
     }
 
-    if { $secure ne "f" } {
+    if { $secure } {
 	append cookie "; Secure"
     }