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.60 -r1.61
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	25 Mar 2008 22:49:10 -0000	1.60
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	28 Mar 2008 22:04:53 -0000	1.61
@@ -1635,8 +1635,9 @@
   } {
     upvar $tz_var tz
     set tz 00
-    #regexp {^([^.]+)[.]?[0-9]*([+-][0-9]*)$} $timestamp _ timestamp tz
-    regexp {^([^.]+)[.][0-9]*([+-][0-9]*)$} $timestamp _ timestamp tz
+    if {![regexp {^([^.]+)[.][0-9]*([+-][0-9]*)$} $timestamp _ timestamp tz]} {
+      regexp {^([^.]+)([+-][0-9]*)$} $timestamp _ timestamp tz
+    }
     return $timestamp
   }
 }