Index: openacs-4/packages/acs-lang/www/admin/message-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/message-list.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/acs-lang/www/admin/message-list.tcl	3 Jul 2006 12:29:50 -0000	1.11
+++ openacs-4/packages/acs-lang/www/admin/message-list.tcl	10 Jan 2007 21:22:04 -0000	1.12
@@ -66,7 +66,7 @@
              and deleted_p = 't') as num_deleted
     from dual
 }
-set num_untranslated [expr $num_messages - $num_translated]
+set num_untranslated [expr {$num_messages - $num_translated}]
 set num_messages_pretty [lc_numeric $num_messages]
 set num_translated_pretty [lc_numeric $num_translated]
 set num_untranslated_pretty [lc_numeric $num_untranslated]
@@ -145,7 +145,7 @@
 
 multirow foreach show_opts {
     set selected_p [string equal $show $value]
-    if { [string equal $value "all"] } {
+    if {$value eq "all"} {
         set url "[ad_conn url]?[export_vars { locale package_key }]"
     } else { 
         set url "[ad_conn url]?[export_vars { locale package_key {show $value} }]"