Index: openacs-4/packages/acs-content-repository/tcl/acs-content-repository-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/acs-content-repository-procs.tcl,v
diff -u -N -r1.13.2.2 -r1.13.2.3
--- openacs-4/packages/acs-content-repository/tcl/acs-content-repository-procs.tcl	28 Dec 2021 14:42:28 -0000	1.13.2.2
+++ openacs-4/packages/acs-content-repository/tcl/acs-content-repository-procs.tcl	28 Dec 2021 14:44:20 -0000	1.13.2.3
@@ -66,14 +66,9 @@
     # Get the config file ns_set
     set mime_types [ns_configsection "ns/mimetypes"]
     if {$mime_types ne ""} {
-        set n_mime_types [ns_set size $mime_types]
-
-        for {set i 0} {$i < $n_mime_types} {incr i} {
-            set extension [ns_set key $mime_types $i]
-            set mime_type [ns_set value $mime_types $i]
-
+        foreach {extension mime_type} [ns_set array $mime_types] {
             # special case
-            if {$extension eq "NoExtension" || $extension eq "Default"} {
+            if {$extension in {"NoExtension" "Default"}} {
                 continue
             }