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.103.2.29 -r1.103.2.30
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	1 Feb 2017 00:40:38 -0000	1.103.2.29
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	2 Feb 2017 22:24:08 -0000	1.103.2.30
@@ -657,7 +657,8 @@
     # defined per pg sesson in a namespaced per-thread variable, which
     # survives multiple queries.
     #
-    set varName ::xo::prepared($handle,$key)
+    #set varName ::xo::prepared($handle,$key)
+    set varName __prepared($key)    
     if {![info exists $varName]} {
       #
       # We have to check for the prepared statement and to create the