Index: openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl,v
diff -u -N -r1.57 -r1.58
--- openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	25 Jul 2018 20:42:48 -0000	1.57
+++ openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	25 Jul 2018 20:58:32 -0000	1.58
@@ -1003,7 +1003,7 @@
 
     @param subsite_id Id of the subsite
     @param theme Name of the theme (theme key)
-    @param pretty_theme Pretty Name (of the theme)
+    @param pretty_name Pretty Name (of the theme)
 
     @author Gustaf Neumann
 } {
Index: openacs-4/packages/acs-templating/tcl/head-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/head-procs.tcl,v
diff -u -N -r1.39 -r1.40
--- openacs-4/packages/acs-templating/tcl/head-procs.tcl	21 May 2018 16:40:47 -0000	1.39
+++ openacs-4/packages/acs-templating/tcl/head-procs.tcl	25 Jul 2018 20:58:32 -0000	1.40
@@ -284,7 +284,7 @@
     @author Gustaf Neumann
     @creation-date 2018-03-09
 
-    @param uri resource
+    @param resource uri resource
     @see ::template::head::includes
 } {
     return [info exists ::template::head::included($resource)]
Index: openacs-4/packages/acs-templating/tcl/list-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/list-procs.tcl,v
diff -u -N -r1.91 -r1.92
--- openacs-4/packages/acs-templating/tcl/list-procs.tcl	25 Jul 2018 13:05:43 -0000	1.91
+++ openacs-4/packages/acs-templating/tcl/list-procs.tcl	25 Jul 2018 20:58:32 -0000	1.92
@@ -703,7 +703,7 @@
     -name:required
     -comma:boolean
 } {
-    @param  and     Set this flag if you want the result to start with an ',' if the list of from clauses returned is non-empty.
+    @param  comma     Set this flag if you want the result to start with an ',' if the list of from clauses returned is non-empty.
 } {
     # Get an upvar'd reference to list_properties
     get_reference -name $name
@@ -725,7 +725,7 @@
     -name:required
     -comma:boolean
 } {
-    @param  and     Set this flag if you want the result to start with a ',' if the list of select clauses returned is non-empty.
+    @param  comma     Set this flag if you want the result to start with a ',' if the list of select clauses returned is non-empty.
 } {
     # Get an upvar'd reference to list_properties
     get_reference -name $name
@@ -747,7 +747,7 @@
     -name:required
     -comma:boolean
 } {
-    @param  and     Set this flag if you want the result to start with an ',' if the list of from clauses returned is non-empty.
+    @param  comma     Set this flag if you want the result to start with an ',' if the list of from clauses returned is non-empty.
 } {
     # Get an upvar'd reference to list_properties
     get_reference -name $name
@@ -781,7 +781,7 @@
     -name:required
     -comma:boolean
 } {
-    @param  and     Set this flag if you want the result to start with a ',' if the list of select clauses returned is non-empty.
+    @param  comma     Set this flag if you want the result to start with a ',' if the list of select clauses returned is non-empty.
 } {
     # Get an upvar'd reference to list_properties
     get_reference -name $name