Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -r1.31 -r1.32
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	17 May 2003 10:39:21 -0000	1.31
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	13 Aug 2003 11:14:35 -0000	1.32
@@ -366,9 +366,13 @@
         }
 
         set list_of_ns_sets [db_list_of_ns_sets select_folder_contents {}]
-        
+
         foreach set $list_of_ns_sets {
             # in plain Tcl:
+            # set last_modified_ansi [lc_time_system_to_conn $last_modified_ansi]
+            ns_set put $set last_modified_ansi [lc_time_system_to_conn [ns_set get $set last_modifed_ansi]] 
+
+            # in plain Tcl:
             # set last_modified [lc_time_fmt $last_modified_ansi "%x %X"]
             ns_set put $set last_modified [lc_time_fmt [ns_set get $set last_modified_ansi] "%x %X"]