Index: openacs-4/packages/acs-tcl/tcl/acs-kernel-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-kernel-procs.tcl,v
diff -u -r1.9 -r1.9.18.1
--- openacs-4/packages/acs-tcl/tcl/acs-kernel-procs.tcl	12 Mar 2004 18:48:55 -0000	1.9
+++ openacs-4/packages/acs-tcl/tcl/acs-kernel-procs.tcl	25 Aug 2014 09:29:02 -0000	1.9.18.1
@@ -39,7 +39,7 @@
     # define util_memoize with proc here to avoid error messages about multiple 
     # defines.
     if { ![db_table_exists apm_packages] || ![db_table_exists site_nodes] } {
-	proc util_memoize {script {max_age ""}} {eval $script}
+	proc util_memoize {script {max_age ""}} {{*}$script}
 	return 0
     }
     set kernel_install_p [apm_package_installed_p acs-kernel] 
@@ -51,7 +51,7 @@
     if { $kernel_install_p && $admin_exists_p} {
 	return 1 
     } else {
-	proc util_memoize {script {max_age ""}} {eval $script}
+	proc util_memoize {script {max_age ""}} {{*}$script}
 	return 0
     }
 }