Index: openacs-4/packages/acs-bootstrap-installer/tcl/10-utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/10-utilities-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-bootstrap-installer/tcl/10-utilities-procs.tcl	10 Jan 2007 21:22:03 -0000	1.8
+++ openacs-4/packages/acs-bootstrap-installer/tcl/10-utilities-procs.tcl	4 Apr 2013 08:33:56 -0000	1.9
@@ -8,11 +8,9 @@
 }
 
 ad_proc -public ad_find_all_files {
-    {
-	-include_dirs 0
-	-max_depth 10
-	-check_file_func ""
-    }
+    {-include_dirs 0}
+    {-max_depth 10}
+    {-check_file_func ""}
     path
 } {
 
@@ -45,7 +43,7 @@
 		# Remember that we've examined the file.
 		set examined_files($file) 1
 
-		if { $check_file_func eq "" || [eval [list $check_file_func $file]] } {
+		if { $check_file_func eq "" || [$check_file_func $file] } {
 		    # If it's a file, add to our list. If it's a
 		    # directory, add its contents to our list of files to
 		    # examine next time.
@@ -55,7 +53,7 @@
 			if { $include_dirs == 1 } {
 			    lappend files $file
 			}
-			set new_files_to_examine [concat $new_files_to_examine [glob -nocomplain "$file/*"]]
+			lappend new_files_to_examine {*}[glob -nocomplain "$file/*"]
 		    }
 		}
 	    }