Index: openacs-4/packages/categories/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/widget-procs.tcl,v
diff -u -r1.28 -r1.29
--- openacs-4/packages/categories/tcl/widget-procs.tcl	9 May 2018 15:33:30 -0000	1.28
+++ openacs-4/packages/categories/tcl/widget-procs.tcl	28 Jun 2018 13:57:36 -0000	1.29
@@ -192,8 +192,12 @@
     return [lang::util::localize $output]
 }
 
-ad_proc -public template::data::validate::category { value_ref message_ref } {
-    # author: Timo Hentschel (timo@timohentschel.de)
+ad_proc -public template::data::validate::category {
+    value_ref
+    message_ref
+} {
+    @author Timo Hentschel (timo@timohentschel.de)
+} {
 
     upvar 2 $message_ref message $value_ref values
     set invalid_values [list]
@@ -217,9 +221,11 @@
     return $result 
 }
 
-ad_proc -public template::data::transform::category { element_ref } {
-    # author: Timo Hentschel (timo@timohentschel.de)
-
+ad_proc -public template::data::transform::category {
+    element_ref
+} {
+    @author Timo Hentschel (timo@timohentschel.de)
+} {
     upvar $element_ref element
     set values [ns_querygetall $element(id)]