Index: openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl,v
diff -u -r1.54.2.8 -r1.54.2.9
--- openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	21 Jul 2020 14:02:09 -0000	1.54.2.8
+++ openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	25 Aug 2020 13:38:12 -0000	1.54.2.9
@@ -781,8 +781,13 @@
     {-message_key ""}
     {-prefix ""}
     {-text:required}
+    {-object_id ""}
 } {
     Internationalising of Attributes. This is done by storing the attribute with its acs-lang key
+
+    @param object_id bind the newly created message key to this
+                     acs_object id. Upon object's deletion, the
+                     message key will be deleted as well.
 } {
 
     # If the package acs-translations is installed do the conversion
@@ -802,7 +807,9 @@
 	}
 
 	# Register the language keys
-	lang::message::register en_US $package_key $message_key $text
+	lang::message::register \
+            -object_id $object_id \
+            en_US $package_key $message_key $text
 	if {$locale ne ""} {
 	    lang::message::register $locale $package_key $message_key $text
 	}