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 -r1.31.2.4 -r1.31.2.5
--- openacs-4/packages/evaluation/tcl/evaluation-procs.tcl	16 Jun 2005 23:59:53 -0000	1.31.2.4
+++ openacs-4/packages/evaluation/tcl/evaluation-procs.tcl	24 Jun 2005 02:08:17 -0000	1.31.2.5
@@ -415,6 +415,7 @@
     {-title ""}
     {-mime_type "text/plain"}
     {-item_name ""}
+    {-package_id ""}
 } {
     Build a new content revision of a task.  If new_item_p is
     set true then a new item is first created, otherwise a new revision is created for
@@ -440,7 +441,9 @@
 	set creation_ip [ad_conn peeraddr]
     }
 
-    set package_id [ad_conn package_id]
+    if {[empty_string_p $package_id]} {
+	set package_id [ad_conn package_id]
+    }
     set folder_id [content::item::get_id -item_path "${content_type}_${package_id}" -resolve_index f]
     if { [empty_string_p $item_name] } {
 	set item_name "${item_id}_${title}"