Index: openacs-4/packages/acs-lang/www/admin/localized-message-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/localized-message-new.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-lang/www/admin/localized-message-new.tcl	4 Jun 2006 00:45:40 -0000	1.8
+++ openacs-4/packages/acs-lang/www/admin/localized-message-new.tcl	10 Jan 2007 21:22:04 -0000	1.9
@@ -35,7 +35,7 @@
 # locale. If not, we can't allow the creation of a new localized 
 # message.
 
-if { ![string equal $current_locale $default_locale] } {
+if { $current_locale ne $default_locale } {
     ad_return_error "Can only create messages in the default locale" "Can only create messages in the default locale"
     ad_script_abort
 }
@@ -64,7 +64,7 @@
     element set_value message_new locale $current_locale
     element set_value message_new message_key $message_key
     element set_value message_new return_url $return_url
-    if { [empty_string_p $message_key] } {
+    if { $message_key eq "" } {
         set focus message_new.message_key
     } else {
         set focus message_new.message