Index: openacs-4/packages/evaluation/tcl/evaluation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/tcl/evaluation-procs.tcl,v
diff -u -N -r1.21 -r1.22
--- openacs-4/packages/evaluation/tcl/evaluation-procs.tcl	27 Dec 2004 18:00:16 -0000	1.21
+++ openacs-4/packages/evaluation/tcl/evaluation-procs.tcl	7 Jan 2005 17:18:18 -0000	1.22
@@ -208,6 +208,7 @@
     -weight:required
     -name:required
     -plural_name:required
+    {-package_id ""}
 } {   
     Build a new content revision of a evaluation subtype.  If new_item_p is
     set true then a new item is first created, otherwise a new revision is created for
@@ -218,8 +219,9 @@
     @param content_table
     @param new_item_p If true make a new item using item_id 
 } {
-    
+    if { [empty_string_p $package_id] } {
     set package_id [ad_conn package_id]
+    }
     set creation_user [ad_verify_and_get_user_id]
     set creation_ip [ad_conn peeraddr]