Index: openacs-4/packages/acs-tcl/tcl/install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/install-procs.tcl,v
diff -u -r1.35.2.9 -r1.35.2.10
--- openacs-4/packages/acs-tcl/tcl/install-procs.tcl	21 Jan 2024 17:07:55 -0000	1.35.2.9
+++ openacs-4/packages/acs-tcl/tcl/install-procs.tcl	22 Jan 2024 16:23:49 -0000	1.35.2.10
@@ -1156,18 +1156,20 @@
     to the main subsite "/". Valid themes are e.g. "openacs_bootstrap5",
     "openacs_bootstrap3", "default_plain", or default "tabbed".
 
-    <p>&lt;set-theme name=&quot;<em>theme</em>&quot; [ package=&quot;<em>subsite</em> ] </p>
+    <p>&lt;set-theme theme=&quot;<em>theme</em>&quot; [ package=&quot;<em>subsite</em> ] </p>
 } {
     variable ::install::xml::ids
 
-    set name [apm_required_attribute_value $node theme]
-    set type [apm_attribute_value -default "/" $node subsite]
+    set theme [apm_required_attribute_value $node theme]
+    set subsite [apm_attribute_value -default "/" $node subsite]
 
     #
     # Get subsite_id from "subsite" path
     #
-    site_node::get_object_id \
-        -node_id [site_node::get_node_id -url subsitee]
+    set subsite_id [site_node::get_object_id \
+                     -node_id [site_node::get_node_id -url $subsite]]
+    subsite::set_theme -subsite_id $subsite_id -theme $theme
+
 }
 
 ad_proc -public install::xml::util::get_id { id } {