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.17 -r1.148.2.18
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	9 Dec 2019 11:03:18 -0000	1.148.2.17
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	8 Mar 2020 16:56:47 -0000	1.148.2.18
@@ -42,7 +42,7 @@
   ::xo::db::SQL instproc map_datatype {type} {
     # If a mapping is not found we keep the type unaltered, but this
     # will currently break acs_attributes_datatype_fk when creating
-    # acs_attributes with a unmapped type.
+    # acs_attributes with an unmapped type.
     return [::xo::dc get_value map "
      select database_type from acs_datatypes
       where datatype = :type" $type]
@@ -1790,7 +1790,7 @@
     # new procs
     if {[::xo::db::sql::util info commands get_default] ne ""} {
       require proc unique {-table -col} {
-        # Unique could be there by a index too
+        # Unique could be there by an index too
         set idxname [::xo::dc mk_sql_constraint_name $table $col un_idx]
         if {[::xo::db::sql::util index_exists -name $idxname]} return
         if {![::xo::db::sql::util unique_exists -table $table -column $col]} {