Index: openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl,v
diff -u -r1.88.2.16 -r1.88.2.17
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	21 Apr 2017 14:22:45 -0000	1.88.2.16
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	22 Apr 2017 18:11:54 -0000	1.88.2.17
@@ -796,7 +796,7 @@
 
     set function_name "__exec_${unique_id}_${fname}"
 
-    # insert tcl variable values (Openacs - Dan)
+    # insert Tcl variable values (OpenACS - Dan)
     if {$sql ne $pre_sql } {
         set sql [uplevel 2 [list subst -nobackslashes $sql]]
     }
@@ -895,7 +895,7 @@
 ad_proc -private db_bind_var_substitution { sql { bind "" } } {
 
     This proc emulates the bind variable substitution in the postgresql driver.
-    Since this is a temporary hack, we do it in tcl instead of hacking up the
+    Since this is a temporary hack, we do it in Tcl instead of hacking up the
     driver to support plsql calls.  This is only used for the db_exec_plpgsql
     function.
 
@@ -1016,7 +1016,7 @@
 
     set sql [db_qd_replace_sql $statement_name $pre_sql]
 
-    # insert tcl variable values (Openacs - Dan)
+    # insert Tcl variable values (OpenACS - Dan)
     if {$sql ne $pre_sql } {
         set sql [uplevel $ulevel [list subst -nobackslashes $sql]]
     }
@@ -1959,7 +1959,7 @@
     } elseif {$command eq "blob_dml_file"} {
         # PostgreSQL:
         db_with_handle -dbn $dbn db {
-            # another ugly hack to avoid munging tcl files.
+            # another ugly hack to avoid munging Tcl files.
             # __lob_id needs to be set inside of a query (.xql) file for this
             # to work.  Say for example that you need to create a lob. In
             # Oracle, you would do something like:
@@ -3128,7 +3128,7 @@
             set full_statement_name [db_qd_get_fullname $statement_name]
             set sql [db_qd_replace_sql $full_statement_name $pre_sql]
 
-            # insert tcl variable values (borrowed from Dan W - olah)
+            # insert Tcl variable values (borrowed from Dan W - olah)
             if {$sql ne $pre_sql } {
                 set sql [uplevel 2 [list subst -nobackslashes $sql]]
             }
@@ -3209,7 +3209,7 @@
 
     set sql [db_qd_replace_sql $statement_name $pre_sql]
 
-    # insert tcl variable values (Openacs - Dan)
+    # insert Tcl variable values (OpenACS - Dan)
     if {$sql ne $pre_sql } {
         set sql [uplevel $ulevel [list subst -nobackslashes $sql]]
     }
@@ -3333,7 +3333,7 @@
     # Query Dispatcher (OpenACS - ben)
     set sql [db_qd_replace_sql $statement_name $pre_sql]
 
-    # insert tcl variable values (Openacs - Dan)
+    # insert Tcl variable values (OpenACS - Dan)
     if {$sql ne $pre_sql } {
         set sql [uplevel $ulevel [list subst -nobackslashes $sql]]
     }