Index: openacs-4/packages/acs-content-repository/tcl/content-folder-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-folder-procs.tcl,v
diff -u -r1.5.2.1 -r1.5.2.2
--- openacs-4/packages/acs-content-repository/tcl/content-folder-procs.tcl	21 Dec 2004 18:22:33 -0000	1.5.2.1
+++ openacs-4/packages/acs-content-repository/tcl/content-folder-procs.tcl	6 Jan 2005 17:48:37 -0000	1.5.2.2
@@ -21,7 +21,7 @@
     {-description ""}
     {-creation_user ""}
     {-creation_ip ""}
-    {-creation_date ""}
+    -creation_date
     {-context_id ""}
     {-package_id ""}
 } {
@@ -59,9 +59,12 @@
     # FIXME or should this use package instantiate object which is a
     # little smarter
     set var_list [list]
-    foreach var [list folder_id name label description parent_id context_id package_id creation_date] {
+    foreach var [list folder_id name label description parent_id context_id package_id] {
 	lappend var_list [list $var [set $var]]
     }
+    if {[exists_and_not_null creation_date]} {
+        lappend var_list [list creation_date $creation_date]
+    }
     set folder_id [package_instantiate_object \
 		     -creation_user $creation_user \
 		     -creation_ip $creation_ip \