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.7 -r1.8
--- openacs-4/packages/acs-bootstrap-installer/tcl/10-utilities-procs.tcl	25 Sep 2003 11:37:32 -0000	1.7
+++ openacs-4/packages/acs-bootstrap-installer/tcl/10-utilities-procs.tcl	10 Jan 2007 21:22:03 -0000	1.8
@@ -45,7 +45,7 @@
 		# Remember that we've examined the file.
 		set examined_files($file) 1
 
-		if { [empty_string_p $check_file_func] || [eval [list $check_file_func $file]] } {
+		if { $check_file_func eq "" || [eval [list $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.