Index: openacs-4/packages/acs-lang/www/admin/audit-include.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/audit-include.tcl,v
diff -u -r1.7.2.1 -r1.7.2.2
--- openacs-4/packages/acs-lang/www/admin/audit-include.tcl	19 Dec 2019 15:28:42 -0000	1.7.2.1
+++ openacs-4/packages/acs-lang/www/admin/audit-include.tcl	19 Dec 2019 15:32:52 -0000	1.7.2.2
@@ -1,3 +1,11 @@
+ad_include_contract {
+    Display message key audits when translating a message key.
+} {
+    package_key:token,notnull
+    message_key:token,notnull
+    current_locale:token,notnull
+}
+
 set trail_counter 0
 
 set new_message [db_string current_message { select message from lang_messages where locale = :current_locale and package_key = :package_key and message_key = :message_key } -default ""]
Index: openacs-4/packages/acs-lang/www/admin/lookups-include.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/Attic/lookups-include.tcl,v
diff -u -r1.5 -r1.5.2.1
--- openacs-4/packages/acs-lang/www/admin/lookups-include.tcl	7 Aug 2017 23:47:57 -0000	1.5
+++ openacs-4/packages/acs-lang/www/admin/lookups-include.tcl	19 Dec 2019 15:37:14 -0000	1.5.2.1
@@ -1,4 +1,9 @@
-# Include takes arguments full_key and message_key_list
+ad_include_contract {
+    Display message key occurrences on the system.
+} {
+    package_key:token,notnull
+    message_key_list:notnull
+}
 
 set full_key_pattern "${package_key}.([join $message_key_list "|"])"
 
Index: openacs-4/packages/acs-lang/www/admin/message-usage-include.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/message-usage-include.tcl,v
diff -u -r1.8 -r1.8.2.1
--- openacs-4/packages/acs-lang/www/admin/message-usage-include.tcl	29 Dec 2017 11:26:06 -0000	1.8
+++ openacs-4/packages/acs-lang/www/admin/message-usage-include.tcl	19 Dec 2019 15:41:44 -0000	1.8.2.1
@@ -1,10 +1,15 @@
-# @input message_key
-# @input package_key
-#
-# @author Peter Marklund (peter@collaboraid.biz)
-# @author Lars Pind (lars@collaboraid.biz)
-# @cvs-id $Id$
+ad_include_contract {
+    Display occurrences of specified message key. Used while
+    translating.
 
+    @author Peter Marklund (peter@collaboraid.biz)
+    @author Lars Pind (lars@collaboraid.biz)
+    @cvs-id $Id$
+} {
+    message_key:token,notnull
+    package_key:token,notnull
+}
+
 set full_key "$package_key.$message_key"
 
 # Since acs-lang.localization- messages use the lc_get proc (that