Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v
diff -u -r1.193.2.8 -r1.193.2.9
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	22 Apr 2017 12:33:27 -0000	1.193.2.8
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	30 Jun 2017 17:51:56 -0000	1.193.2.9
@@ -103,7 +103,7 @@
 ad_proc -private portal::mount_point_no_cache {} {
     Returns the mount point of the portal package.
     Sometimes we need to know this for like <include>ing
-    templates from tcl
+    templates from Tcl
 } {
     return [site_node::get_url_from_object_id -object_id [get_package_id]]
 }
@@ -1110,9 +1110,9 @@
 ad_proc -public portal::list_pages_tcl_list {
     {-portal_id:required}
 } {
-    Returns a tcl list of the page_ids for the given portal_id
+    Returns a Tcl list of the page_ids for the given portal_id
 
-    @return tcl list of the pages
+    @return Tcl list of the pages
     @param portal_id
 } {
     set foo [list]