Index: openacs-4/packages/categories/www/cadmin/master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/master.tcl,v
diff -u -N -r1.12 -r1.12.2.1
--- openacs-4/packages/categories/www/cadmin/master.tcl	7 Aug 2017 23:48:05 -0000	1.12
+++ openacs-4/packages/categories/www/cadmin/master.tcl	20 Dec 2019 17:06:20 -0000	1.12.2.1
@@ -1,12 +1,13 @@
-#
-# author: Timo Hentschel (timo@timohentschel.de)
-#
+ad_page_contract {
 
-if { ![info exists change_locale] } {
-    set change_locale t
+    @author Timo Hentschel (timo@timohentschel.de)
+
+} {
+    {change_locale:boolean "t"}
+    {locale:token "[ad_conn locale]"}
 }
 
-if {(![info exists locale] || $locale eq "")} {
+if {$locale eq ""} {
     #set locale [parameter::get -parameter DefaultLocale -default en_US]
     set locale [ad_conn locale]
 }