Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v
diff -u -r1.93.2.31 -r1.93.2.32
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	19 Nov 2020 21:21:13 -0000	1.93.2.31
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	6 Dec 2020 08:20:27 -0000	1.93.2.32
@@ -428,7 +428,7 @@
     # Return 2 digit version number (suitable for number compare
     # operations) from PostgreSQL or 0.0 if not available
     #
-    return [acs::per_thread_cache -key xotcl-core.pg_version {
+    return [acs::per_thread_cache eval -key xotcl-core.pg_version {
       set version 0.0
       if {[db_driverkey {}] eq "postgresql"} {
         set version_string [db_string dbqd.null.get_version {select version() from dual}]