Index: openacs-4/packages/acs-developer-support/www/css-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/www/css-edit.tcl,v
diff -u -r1.2 -r1.2.2.1
--- openacs-4/packages/acs-developer-support/www/css-edit.tcl	5 Dec 2010 13:45:21 -0000	1.2
+++ openacs-4/packages/acs-developer-support/www/css-edit.tcl	26 Oct 2013 09:34:14 -0000	1.2.2.1
@@ -41,7 +41,7 @@
 	if {$item_id ne ""} {
 	    append revision_html "<ol>"
 	    db_foreach revision {select revision_id, publish_date, description from cr_revisions where item_id = :item_id order by publish_date desc} {
-		if { [content::revision::is_live -revision_id $revision_id] eq "t" } {
+		if { [content::revision::is_live -revision_id $revision_id] == "t" } {
 		    set make_live "<strong>that's live!</strong>"
 		} else {
 		    set return_url_2 [ad_return_url]
Index: openacs-4/packages/calendar/www/cal-item-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/cal-item-view.tcl,v
diff -u -r1.24 -r1.24.4.1
--- openacs-4/packages/calendar/www/cal-item-view.tcl	6 Mar 2009 23:28:05 -0000	1.24
+++ openacs-4/packages/calendar/www/cal-item-view.tcl	26 Oct 2013 09:33:21 -0000	1.24.4.1
@@ -18,7 +18,7 @@
 
 # Honor the related link redirection facility long implemented in acs-events, but
 # ignored by calendar.
-if { $cal_item(redirect_to_rel_link_p) eq "t" &&
+if { $cal_item(redirect_to_rel_link_p) == "t" &&
      $cal_item(related_link_url) ne "" } {
     ad_returnredirect $cal_item(related_link_url)
     ad_script_abort
Index: openacs-4/packages/calendar/www/mini-calendar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/mini-calendar.tcl,v
diff -u -r1.20.2.5 -r1.20.2.6
--- openacs-4/packages/calendar/www/mini-calendar.tcl	3 Oct 2013 07:39:46 -0000	1.20.2.5
+++ openacs-4/packages/calendar/www/mini-calendar.tcl	26 Oct 2013 09:33:21 -0000	1.20.2.6
@@ -152,7 +152,7 @@
     set day_number [expr {$days_in_last_month - $active_days_before_month + 1}]
 
     for {set julian_date $calendar_starts_with_julian_date} {$julian_date <= $last_julian_date + 7} {incr julian_date} {
-        if {$julian_date > $last_julian_date_in_month && $end_of_week_p eq "t" } {
+        if {$julian_date > $last_julian_date_in_month && $end_of_week_p == "t" } {
             break
         }
         set today_p f
Index: openacs-4/packages/faq/www/admin/q_and_a-new-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq/www/admin/q_and_a-new-2.tcl,v
diff -u -r1.5.2.1 -r1.5.2.2
--- openacs-4/packages/faq/www/admin/q_and_a-new-2.tcl	3 Oct 2013 09:08:36 -0000	1.5.2.1
+++ openacs-4/packages/faq/www/admin/q_and_a-new-2.tcl	26 Oct 2013 09:29:55 -0000	1.5.2.2
@@ -23,7 +23,7 @@
 set user_id [ad_conn user_id]
 set creation_ip [ad_conn host]
 
-if {$insert_p eq "t" } {
+if {$insert_p == "t" } {
 
   
 
Index: openacs-4/packages/general-comments/www/comment-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/comment-add-3.tcl,v
diff -u -r1.9.8.3 -r1.9.8.4
--- openacs-4/packages/general-comments/www/comment-add-3.tcl	3 Oct 2013 08:41:29 -0000	1.9.8.3
+++ openacs-4/packages/general-comments/www/comment-add-3.tcl	26 Oct 2013 09:29:55 -0000	1.9.8.4
@@ -47,7 +47,7 @@
     -category $category \
     -content $content
 
-if { $attach_p eq "f" && $return_url ne "" } {
+if { $attach_p == "f" && $return_url ne "" } {
     ad_returnredirect $return_url
 } else {
     ad_returnredirect "view-comment?[export_vars { comment_id return_url }]"