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 -N -r1.12 -r1.13
--- openacs-4/packages/acs-tcl/tcl/install-procs.tcl	16 Mar 2005 14:14:20 -0000	1.12
+++ openacs-4/packages/acs-tcl/tcl/install-procs.tcl	25 Mar 2005 16:58:29 -0000	1.13
@@ -324,6 +324,21 @@
         -value $value
 }
 
+ad_proc -public install::xml::action::set-parameter-default { node } {
+    Sets a package parameter default value
+
+    <code>&lt;set-parameter-default name=&quot;<em>parameter</em>&quot; package-key=&quot;<em>package-key</em>&quot;</code>
+} {
+    set name [apm_required_attribute_value $node name]
+    set package_key [apm_required_attribute_value $node package-key]
+    set value [apm_attribute_value -default {} $node value]
+
+    parameter::set_default \
+        -package_key $package_key \
+        -parameter $name \
+        -value $value
+}
+
 ad_proc -public install::xml::action::set-permission { node } {
     Sets permissions on an object.