Index: openacs-4/packages/assessment/tcl/as-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-callback-procs.tcl,v
diff -u -r1.1.2.8 -r1.1.2.9
--- openacs-4/packages/assessment/tcl/as-callback-procs.tcl	21 Nov 2005 09:17:57 -0000	1.1.2.8
+++ openacs-4/packages/assessment/tcl/as-callback-procs.tcl	21 Nov 2005 15:10:25 -0000	1.1.2.9
@@ -111,7 +111,7 @@
 } {
 #get assessment data
     db_1row get_assessment_data {}
-    db_1row get_assessment_package_id {}
+    set package_id [as::assessment::get_package_id -community_id $selected_community ]
 
 #create the assessment
     set new_assessment_id [as::assessment::new  -title $title   \