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.50 -r1.51
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	6 Nov 2007 23:04:18 -0000	1.50
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	26 Nov 2007 08:53:27 -0000	1.51
@@ -198,8 +198,10 @@
   
   if {[db_driverkey ""] eq "postgresql"} {
 
+    #
+    # PostgresSQL specific functions
+    #
 
-
     sql proc map_function_name {sql} {
       return $sql
     }
@@ -208,6 +210,7 @@
       switch -- $type {
         string    { set type text }
         long_text { set type text }
+        date      { set type timestampz }
       }
       return $type
     }
@@ -1603,7 +1606,7 @@
   } {
     upvar $tz_var tz
     set tz 00
-    regexp {^([^.]+)[.][0-9]+(.*)$} $timestamp _ timestamp tz
+    regexp {^([^.]+)[.]?[0-9]*([+-][0-9]*)$} $timestamp _ timestamp tz
     return $timestamp
   }
 }