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.72.2.24 -r1.72.2.25
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	19 Mar 2015 10:15:12 -0000	1.72.2.24
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	19 Mar 2015 10:19:54 -0000	1.72.2.25
@@ -408,12 +408,16 @@
     # Return 2 digit version number (suitable for number compare
     # operations) from PostgreSQL or 0.0 if not available
     #
+    set key ::xo::pg_version
+    if {[info exists $key]} {
+      return [set $key]
+    }
     set version 0.0
     if {[db_driverkey {}] eq "postgresql"} {
       set version_string [db_string dbqd.null.get_version {select version() from dual}]
       regexp {PostgreSQL ([0-9]+[.][0-9+])} $version_string . version
     }
-    return $version
+    return [set $key $version]
   }
 }