Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v
diff -u -r1.50.2.18 -r1.50.2.19
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	22 Sep 2014 09:30:51 -0000	1.50.2.18
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	9 Dec 2014 09:38:53 -0000	1.50.2.19
@@ -172,14 +172,15 @@
     # PostgreSQL
     #
     set pg_version [::xo::dc get_value get_version {
-      select substring(version() from 'PostgreSQL #"[0-9]+.[0-9+]#".%' for '#')   }]
+      select substring(version() from 'PostgreSQL #"[0-9]+.[0-9]+#"%' for '#')   }]
     ns_log notice "--Postgres Version $pg_version"      
     if {$pg_version < 8.2} {
       ns_log notice "--Postgres Version $pg_version older than 8.2, use locks"
       #
       # We define a locking function, really locking the tables...
       #
       CrClass instproc lock {tablename mode} {
+        ::xo::dc dml fix_content_length "update cr_revisions "
         ::xo::dc lock_objects "LOCK TABLE $tablename IN $mode MODE"
       }
     } else {