Index: openacs-4/packages/acs-lang/www/admin/localized-message-new.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/localized-message-new.adp,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-lang/www/admin/localized-message-new.adp	14 Aug 2003 16:06:20 -0000	1.7
+++ openacs-4/packages/acs-lang/www/admin/localized-message-new.adp	22 Oct 2003 16:27:37 -0000	1.8
@@ -1,7 +1,7 @@
 <master>
  <property name="title">Edit a message</property>
  <property name="context">@context;noquote@</property>
- <property name="focus">message_new.message_key</property>
+ <property name="focus">@focus;noquote@</property>
 
 <formtemplate id="message_new"></formtemplate>
 
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.4 -r1.5
--- openacs-4/packages/acs-lang/www/admin/localized-message-new.tcl	14 Aug 2003 16:06:20 -0000	1.4
+++ openacs-4/packages/acs-lang/www/admin/localized-message-new.tcl	22 Oct 2003 16:27:37 -0000	1.5
@@ -11,7 +11,7 @@
 } {
     locale
     package_key
-} -properties {
+    {message_key ""}
 }
 
 
@@ -59,8 +59,14 @@
 
 if { [form is_request message_new] } {
 
-    element set_properties message_new package_key -value $package_key
-    element set_properties message_new locale -value $current_locale
+    element set_value message_new package_key $package_key
+    element set_value message_new locale $current_locale
+    element set_value message_new message_key $message_key
+    if { [empty_string_p $message_key] } {
+        set focus message_new.message_key
+    } else {
+        set focus message_new.message
+    }
 
 } else {