Index: openacs-4/packages/ams/www/attribute-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/www/attribute-add.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/ams/www/attribute-add.tcl	25 May 2005 10:47:53 -0000	1.3
+++ openacs-4/packages/ams/www/attribute-add.tcl	26 May 2005 07:02:22 -0000	1.4
@@ -117,9 +117,11 @@
     # If Timo manages to get the service contract with babblefish or dict.leo.org working
     # We might have an automatic translation first :).
     set user_locale [lang::user::locale]
-    if {$user_locale != "en_US"} {
-        lang::message::register $user_locale ams $message_key $pretty_name
-        lang::message::register $user_locale ams "${message_key}_plural" $pretty_plural
+    if {[exists_and_not_null user_locale]} {
+        if {$user_locale != "en_US"} {
+            lang::message::register $user_locale ams $message_key $pretty_name
+            lang::message::register $user_locale ams "${message_key}_plural" $pretty_plural
+        }
     }
 
     # Replace the pretty_name and pretty_plural with the message key, so it is inserted correctly in the database