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.58 -r1.148.2.59
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	4 Jan 2023 11:34:30 -0000	1.148.2.58
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	5 Jan 2023 16:50:25 -0000	1.148.2.59
@@ -710,7 +710,7 @@
       #
       set c 0; set l ""; set last 0
       set execArgs {}; set prepArgs {}
-      foreach pair [regexp -all -inline -indices {[^:]:[a-zA-Z0_9_]+\M} $sql ] {
+      foreach pair [regexp -all -inline -indices {[^:a-zA-Z0_9_]:[a-zA-Z0_9_]+\M} $sql] {
         lassign $pair from to
         lappend execArgs [string range $sql $from+1 $to]
         lappend prepArgs unknown