Index: openacs-4/packages/acs-lang/www/admin/package-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/package-list.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-lang/www/admin/package-list.tcl	26 Feb 2005 16:00:10 -0000	1.6
+++ openacs-4/packages/acs-lang/www/admin/package-list.tcl	10 Jan 2007 21:22:04 -0000	1.7
@@ -61,7 +61,7 @@
             group  by package_key) q
     order  by package_key
 } {
-    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]
@@ -92,7 +92,7 @@
     {locale:text(hidden) {value $locale}}
 }
 
-if { ![string equal $default_locale $current_locale] } {
+if { $default_locale ne $current_locale } {
     ad_form -extend -name search -form {
         {search_locale:text(select)
             {options $search_locales}