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 -N -r1.130 -r1.131
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	27 Dec 2012 17:21:50 -0000	1.130
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	29 Mar 2013 16:32:45 -0000	1.131
@@ -1937,8 +1937,8 @@
     if { $include_set_cookies eq "t" } {
 	set headers [ad_conn outputheaders]
 	for { set i 0 } { $i < [ns_set size $headers] } { incr i } {
-	    if { ![string compare [string tolower [ns_set key $headers $i]] "set-cookie"] && \
-		    [regexp "^$name=(\[^;\]*)" [ns_set value $headers $i] "" "value"] } {
+	    if { [string tolower [ns_set key $headers $i]] eq "set-cookie" && \
+		     [regexp "^$name=(\[^;\]*)" [ns_set value $headers $i] match value] } {
 		return $value
 	    }
 	}