Index: openacs-4/packages/dotlrn-assessment/tcl/dotlrn-assessment-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-assessment/tcl/dotlrn-assessment-procs.tcl,v
diff -u -N -r1.5 -r1.5.8.1
--- openacs-4/packages/dotlrn-assessment/tcl/dotlrn-assessment-procs.tcl	2 Nov 2005 20:29:17 -0000	1.5
+++ openacs-4/packages/dotlrn-assessment/tcl/dotlrn-assessment-procs.tcl	18 Aug 2014 21:06:23 -0000	1.5.8.1
@@ -219,7 +219,7 @@
     
     
     set new_assessment_id [db_nextval acs_object_id_seq]
-    if {[empty_string_p $name]} {
+    if {$name eq ""} {
 	set name "ASS_$new_assessment_id"
     }
     set new_assessment_id [content::item::new -item_id $new_assessment_id -parent_id $folder_id -content_type {as_assessments} -name $name]