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 -r1.61.2.13 -r1.61.2.14
--- openacs-4/packages/file-storage/www/folder-chunk.tcl	13 Oct 2022 10:15:31 -0000	1.61.2.13
+++ openacs-4/packages/file-storage/www/folder-chunk.tcl	20 Oct 2022 19:08:00 -0000	1.61.2.14
@@ -139,7 +139,7 @@
 set elements {
     type {
         label #file-storage.Type#
-        display_template {<img src="@contents.icon@"  style="border: 0;" alt="@contents.alt_icon@" width="16" height="16">@contents.pretty_type@}
+        display_template {<adp:icon name="@contents.icon@" title="@contents.alt_icon@">&nbsp;@contents.pretty_type@}
     }
     name {
         label #file-storage.Name#
@@ -368,7 +368,7 @@
             set properties_url ""
             set new_version_link {}
             set new_version_url {}
-            set icon "/resources/file-storage/folder.gif"
+            set icon folder
             set alt_icon #file-storage.folder#
             set file_url [export_vars -base "${fs_url}index" {{folder_id $object_id}}]
             set download_link [_ file-storage.Download]
@@ -379,7 +379,7 @@
             set properties_url [export_vars -base "${fs_url}simple" {object_id}]
             set new_version_link [_ acs-kernel.common_New]
             set new_version_url [export_vars -base "${fs_url}file-add" {{file_id $object_id}}]
-            set icon "/resources/acs-subsite/url-button.gif"
+            set icon link
             # DRB: This alt text somewhat sucks, but the message key already exists in
             # the language catalog files we care most about and we want to avoid a new
             # round of translation work for this minor release if possible ...
@@ -418,7 +418,7 @@
             set properties_url [export_vars -base ${fs_url}file {{file_id $object_id}}]
             set new_version_link [_ acs-kernel.common_New]
             set new_version_url [export_vars -base ${fs_url}file-add {{file_id $object_id}}]
-            set icon "/resources/file-storage/file.gif"
+            set icon file
             set alt_icon #file-storage.file#
             set download_link [_ file-storage.Download]
             if {$like_filesystem_p} {
@@ -437,8 +437,8 @@
                 set new_version_link [_ acs-kernel.common_New]
                 set new_version_url [export_vars -base ${fs_url}file-add {{file_id $object_id}}]
             }
-            set icon "/resources/file-storage/file.gif"
-            set alt_icon "#file-storage.file#"
+            set icon file
+            set alt_icon #file-storage.file#
             set download_link [_ file-storage.Download]
             if {$like_filesystem_p} {
                 set download_url /file/$object_id/[ad_urlencode_path $title][ad_file extension $name]