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 -N -r1.113 -r1.114
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	24 Dec 2017 12:28:07 -0000	1.113
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	1 Feb 2018 21:58:01 -0000	1.114
@@ -355,7 +355,7 @@
     if {$sql eq ""} {set sql [:get_sql $qn]}
     if {$bind ne ""} {set bindOpt [list -bind $bind]} {set bindOpt ""}
     set flat [:uplevel [list ::dbi_rows -columns __columns {*}$bindOpt -- $sql]]
-    if {[:uplevel {llength $__columns}] > 1} {error "query is returing more than one column"}
+    if {[:uplevel {llength $__columns}] > 1} {error "query is returning more than one column"}
     return $flat
   }
   ::xo::db::DBI instproc dml {{-dbn ""} {-bind ""} -prepare qn sql} {