Index: openacs-4/packages/acs-bootstrap-installer/installer.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/installer.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/acs-bootstrap-installer/installer.tcl	7 Feb 2005 21:56:05 -0000	1.17
+++ openacs-4/packages/acs-bootstrap-installer/installer.tcl	16 Feb 2005 17:32:13 -0000	1.18
@@ -408,12 +408,18 @@
 ad_proc -private install_do_packages_install {} {
     Installs all packages during OpenACS install.
 } {
+
+    # This magic here forces kernel_id to be cached on install once it is defined.
     proc ad_acs_kernel_id {} {
         if {[db_table_exists apm_packages]} {
-    	return [db_string acs_kernel_id_get {
-    	    select package_id from apm_packages
-    	    where package_key = 'acs-kernel'
-    	} -default 0]
+            set kernel_id [db_string acs_kernel_id_get {
+                select package_id from apm_packages
+                where package_key = 'acs-kernel'
+            } -default 0]
+            if {$kernel_id > 0} {
+                proc ad_acs_kernel_id {} "return $kernel_id"
+            }
+            return $kernel_id
         } else {
             return 0
         }