Index: openacs-4/packages/news/www/admin/revision-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/revision-add-3.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/news/www/admin/revision-add-3.tcl	26 Dec 2009 23:50:53 -0000	1.10
+++ openacs-4/packages/news/www/admin/revision-add-3.tcl	30 Sep 2013 10:51:35 -0000	1.11
@@ -24,7 +24,7 @@
 # Avoid any driver/bindvar nonsense regarding "." in a variable name
 set mime_type ${publish_body.format}
 
-if {[string equal $permanent_p "t"] } {
+if {$permanent_p eq "t"} {
     set archive_date_ansi [db_null]
 }