Index: openacs-4/contrib/packages/cop-base/tcl/cop-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/cop-base/tcl/cop-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/contrib/packages/cop-base/tcl/cop-procs.tcl	1 Apr 2004 12:09:44 -0000	1.4
+++ openacs-4/contrib/packages/cop-base/tcl/cop-procs.tcl	1 Apr 2004 21:03:49 -0000	1.5
@@ -61,7 +61,7 @@
 
     @return root_node of the parsed xml file.
 
-    @author Jeff Davis
+    @author Jeff Davis davis@xarg.net
 } {
     # Abort if there is no install.xml file
     set filename [acs_root_dir]$filename
@@ -79,6 +79,9 @@
         foreach {var val} $binds {
             set $var [ad_quotehtml $val]
         }
+        if {![info exists Id]} { 
+            set Id {$Id}
+        }
         if {[catch {set __the_body__ [subst -nobackslashes -nocommands ${__the_body__}]} err]} { 
             error $err
         }