Index: openacs-4/packages/assessment/tcl/as-item-display-sb-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-display-sb-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/assessment/tcl/as-item-display-sb-procs.tcl	2 Sep 2008 17:21:29 -0000	1.13
+++ openacs-4/packages/assessment/tcl/as-item-display-sb-procs.tcl	27 Oct 2014 16:40:57 -0000	1.14
@@ -113,7 +113,7 @@
 
     Render an Item Display SelectBox Type
 } {
-    if {[empty_string_p $required_p]} {
+    if {$required_p eq ""} {
 	set required_p f
     }
 
@@ -205,7 +205,7 @@
 	db_dml update_section_in_assessment {}
 	set old_item_id $as_item_id
 
-	if {![db_0or1row item_display {}] || $object_type != "as_item_display_sb"} {
+	if {![db_0or1row item_display {}] || $object_type ne "as_item_display_sb"} {
 	    set as_item_display_id [as::item_display_sb::new \
 					-html_display_options $html_options \
 					-sort_order_type $order_type]