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.58 -r1.59
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	14 Mar 2008 20:04:57 -0000	1.58
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	17 Mar 2008 00:28:58 -0000	1.59
@@ -697,7 +697,7 @@
       # for now, we simply return a constant "unknown", otherwise the
       # argument would be required
       return [db_list_of_lists [my qn get_function_params] {
-	select args.argument_name, 'unknown'
+	select args.argument_name, 'NULL'
         from user_arguments args
         where args.position > 0
         and args.object_name = upper(:object_name)
@@ -1637,7 +1637,8 @@
   } {
     upvar $tz_var tz
     set tz 00
-    regexp {^([^.]+)[.]?[0-9]*([+-][0-9]*)$} $timestamp _ timestamp tz
+    #regexp {^([^.]+)[.]?[0-9]*([+-][0-9]*)$} $timestamp _ timestamp tz
+    regexp {^([^.]+)[.][0-9]*([+-][0-9]*)$} $timestamp _ timestamp tz
     return $timestamp
   }
 }