Index: openacs-4/packages/xowiki/www/admin/list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/list.tcl,v
diff -u -N -r1.37 -r1.38
--- openacs-4/packages/xowiki/www/admin/list.tcl	7 Aug 2017 23:48:31 -0000	1.37
+++ openacs-4/packages/xowiki/www/admin/list.tcl	22 Jan 2018 18:42:59 -0000	1.38
@@ -8,11 +8,11 @@
 
   @param object_type show objects of this class and its subclasses
 } -parameter {
-  {-object_type:optional}
-  {-orderby:optional "last_modified,desc"}
+  {-object_type:token,optional}
+  {-orderby:token,optional "last_modified,desc"}
 }
 
-set context   [list index]
+set context [list index]
 
 # if object_type is specified, only list entries of this type;
 # otherwise show types and subtypes of $supertype