Index: openacs-4/packages/assessment/tcl/as-assessment-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-assessment-procs.tcl,v
diff -u -r1.38 -r1.39
--- openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	7 Aug 2017 23:48:03 -0000	1.38
+++ openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	15 Jun 2018 22:47:45 -0000	1.39
@@ -40,7 +40,7 @@
 
     New assessment to the database
 } {
-    if { (![info exists package_id] || $package_id eq "") } { set package_id [ad_conn package_id] }
+    if { $package_id eq "" } { set package_id [ad_conn package_id] }
     set folder_id [as::assessment::folder_id -package_id $package_id]
 
     if { $creator_id eq "" } { set creator_id [ad_conn user_id]}