Index: openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl,v
diff -u -N -r1.74.8.5 -r1.74.8.6
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	13 Dec 2005 17:04:07 -0000	1.74.8.5
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	7 Mar 2006 05:39:34 -0000	1.74.8.6
@@ -474,5 +474,17 @@
 		    -default [parameter::get -package_id [dotlrn::get_package_id] \
 				  -parameter DefaultMaster_p]]
     }
+    
+    ad_proc -public assign_default_sitetemplate {
+	{-site_template_id:required}
+    } {
+    } {
+	
+	# We need to update the portal theme before the first hit!
+	set new_theme_id [db_string select_portal_theme {}]
+        db_dml update_portal_themes {update }
 
+	util_memoize_flush_regexp "dotlrn::get_site_template_id_not_cached *" 
+    }
+
 }