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 -N -r1.72.2.23 -r1.72.2.24
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	3 Feb 2015 13:44:10 -0000	1.72.2.23
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	19 Mar 2015 10:15:12 -0000	1.72.2.24
@@ -371,7 +371,7 @@
 namespace eval ::xo {
   # 
   # Make reporting back of the version numbers of the most important 
-  # nvolved components easier.
+  # involved components easier.
   #
   proc report_version_numbers {{pkg_list {acs-kernel xotcl-core xotcl-request-monitor xowiki s5 xoportal xowf}}} {
     append _ "Database: "
@@ -402,6 +402,19 @@
     }
     return $_
   }
+
+  proc pg_version {} {
+    #
+    # Return 2 digit version number (suitable for number compare
+    # operations) from PostgreSQL or 0.0 if not available
+    #
+    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
+  }
 }
 
 #ns_log notice "--T [info commands ::ttrace::isenabled]"