Index: openacs-4/packages/acs-templating/tcl/tag-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/tag-init.tcl,v
diff -u -r1.39.2.12 -r1.39.2.13
--- openacs-4/packages/acs-templating/tcl/tag-init.tcl	28 Oct 2016 20:31:56 -0000	1.39.2.12
+++ openacs-4/packages/acs-templating/tcl/tag-init.tcl	22 Apr 2017 18:15:50 -0000	1.39.2.13
@@ -235,7 +235,7 @@
 template_tag list { chunk params } {
 
   # the list tag accepts a value so that it may be used without a data
-  # source in the tcl script
+  # source in the Tcl script
 
   set value [ns_set iget $params value]
 
@@ -253,7 +253,7 @@
 
   } else {
 
-    # Expect a data source from the tcl script
+    # Expect a data source from the Tcl script
     set name [template::get_attribute list $params name]
     template::adp_append_code "\nset {$name:rowcount} \[llength \${$name}\]\n"
   }
@@ -779,7 +779,7 @@
 }
 
 
-# DanW: implements a switch statement just like in tcl
+# DanW: implements a switch statement just like in Tcl
 # use as follows:
 #
 # <switch flag=regexp @some_var@>