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.73 -r1.74
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	20 Aug 2008 21:13:19 -0000	1.73
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	25 Aug 2008 10:39:37 -0000	1.74
@@ -1710,8 +1710,12 @@
   } {
     upvar $tz_var tz
     set tz 00
-    if {![regexp {^([^.]+)[.][0-9]*([+-][0-9]*)$} $timestamp _ timestamp tz]} {
-      regexp {^([^.]+)([+-][0-9]*)$} $timestamp _ timestamp tz
+    # Oracle style format like 2008-08-25 (no TZ)
+    if {![regexp {^([0-9]+-[0-9]+-[0-9]+)$} $timestamp _ timestamp]} {
+      # PostgreSQL type ANSI format
+      if {![regexp {^([^.]+)[.][0-9]*([+-][0-9]*)$} $timestamp _ timestamp tz]} {
+        regexp {^([^.]+)([+-][0-9]*)$} $timestamp _ timestamp tz
+      }
     }
     return $timestamp
   }