Index: openacs-4/packages/acs-tcl/tcl/apm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs.tcl,v
diff -u -r1.99 -r1.100
--- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	27 Mar 2018 11:18:00 -0000	1.99
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	9 Apr 2018 20:11:54 -0000	1.100
@@ -700,7 +700,7 @@
     set dirs [list]
     lappend dirs $path
     foreach subdir [glob -nocomplain -type d [file join $path *]] {
-        set dirs [concat $dirs [apm_subdirs $subdir]]
+        lappend dirs {*}[apm_subdirs $subdir]
     }
     return $dirs
 }
@@ -715,7 +715,7 @@
     @author Peter Marklund
 } {
     array set file_type_names [apm_file_type_names]
-    
+
     return $file_type_names($type)
 }