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.60 -r1.148.2.61
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	9 Jan 2023 10:53:34 -0000	1.148.2.60
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	9 Jan 2023 16:51:11 -0000	1.148.2.61
@@ -718,16 +718,16 @@
       # replaced text.
       #
       set strings [regexp -all -inline {'(\\'|[^'])*'} $sql]
-      regsub -all {'(\\'|[^'])*'} $sql "#__string__#" sql
+      regsub -all {'(\\'|[^'])*'} $sql "#__string__#" sql_prep
 
-      foreach pair [regexp -all -inline -indices {[^:]:[a-zA-Z0_9_]+\M} $sql] {
+      foreach pair [regexp -all -inline -indices {[^:]:[a-zA-Z0_9_]+\M} $sql_prep] {
         lassign $pair from to
-        lappend execArgs [string range $sql $from+1 $to]
+        lappend execArgs [string range $sql_prep $from+1 $to]
         lappend prepArgs unknown
-        append l [string range $sql $last $from] \$[incr c]
+        append l [string range $sql_prep $last $from] \$[incr c]
         set last [incr to]
       }
-      append l [string range $sql $last end]
+      append l [string range $sql_prep $last end]
 
       #
       # Put back the substituted strings in the prepared SQL.