Index: openacs-4/packages/file-storage/tcl/test/tclwebtest-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/test/tclwebtest-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/file-storage/tcl/test/tclwebtest-procs.tcl	15 Dec 2006 22:45:32 -0000	1.3
+++ openacs-4/packages/file-storage/tcl/test/tclwebtest-procs.tcl	29 Aug 2007 14:59:31 -0000	1.4
@@ -33,7 +33,7 @@
     
     set response 0
     
-    tclwebtest::link follow {New folder}
+    tclwebtest::link follow {New Folder}
     
     tclwebtest::form find ~n "folder-ae"
     tclwebtest::field find ~n "folder_name"
Index: openacs-4/packages/file-storage/www/folder-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-chunk.tcl,v
diff -u -N -r1.41 -r1.42
--- openacs-4/packages/file-storage/www/folder-chunk.tcl	15 Jun 2007 19:37:13 -0000	1.41
+++ openacs-4/packages/file-storage/www/folder-chunk.tcl	29 Aug 2007 14:59:32 -0000	1.42
@@ -245,8 +245,8 @@
     set views ""
     if {[apm_package_installed_p views]} {
 	array set views_arr [views::get -object_id $object_id] 
-	if {$views_arr(views) ne ""} {
-	    set views " $views_arr(views) / $views_arr(unique_views)"
+	if {$views_arr(views_count) ne ""} {
+	    set views " $views_arr(views_count) / $views_arr(unique_views)"
 	}
     }