Index: openacs-4/packages/assessment/tcl/as-item-display-cb-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-display-cb-procs.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/assessment/tcl/as-item-display-cb-procs.tcl	2 Sep 2008 17:21:29 -0000	1.15
+++ openacs-4/packages/assessment/tcl/as-item-display-cb-procs.tcl	27 Oct 2014 16:40:57 -0000	1.16
@@ -110,7 +110,7 @@
 
     Render an Item Display CheckBox Type
 } {
-    if {[empty_string_p $required_p]} {
+    if {$required_p eq ""} {
 	set required_p f
     }
 
@@ -198,7 +198,7 @@
 	db_dml update_section_in_assessment {}
 	set old_item_id $as_item_id
 
-	if {![db_0or1row item_display {}] || $object_type != "as_item_display_cb"} {
+	if {![db_0or1row item_display {}] || $object_type ne "as_item_display_cb"} {
 	    set as_item_display_id [as::item_display_cb::new \
 					-html_display_options $html_options \
 					-choice_orientation $choice_orientation \