Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v
diff -u -r1.148.2.15 -r1.148.2.16
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	9 Aug 2019 19:45:14 -0000	1.148.2.15
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	22 Nov 2019 16:11:32 -0000	1.148.2.16
@@ -510,7 +510,7 @@
     set qn [uplevel [list [self] qn $qn]]
     #
     # The prepare statement in the next line works probably only with
-    # inline sql statements.
+    # inline SQL statements.
     #
     #if {[info exists prepare]} {set sql [:prepare -dbn $dbn -argtypes $prepare $sql]}
     #ns_log notice "### [list ::db_foreach -dbn $dbn $qn $sql $body {*}$bindOpt]"
@@ -646,7 +646,7 @@
   ::xo::db::DB-postgresql instproc prepare {-handle:required {-argtypes ""} sql} {
     #
     # Define a md5 key for the prepared statement in nsv based on the
-    # sql statement.
+    # SQL statement.
     #
     set key [ns_md5 $sql]
 
@@ -978,7 +978,7 @@
     -check_function
     sql_file
   } {
-    Load the sql file, if the kernel is older than the specified
+    Load the SQL file, if the kernel is older than the specified
     version, and the version of the specified package is older, and
     the check_function does not exist in function_args.
     <p>