Index: openacs-4/packages/assessment/lib/section-show.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/section-show.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/assessment/lib/section-show.tcl	24 Dec 2004 15:32:38 -0000	1.4
+++ openacs-4/packages/assessment/lib/section-show.tcl	27 Oct 2014 16:40:55 -0000	1.5
@@ -4,11 +4,11 @@
 
 db_multirow -extend { presentation_type html } items section_items {} {
     set presentation_type [as::item_form::add_item_to_form -name show_section -section_id $section_id -item_id $as_item_id]
-    if {$presentation_type == "fitb"} {
+    if {$presentation_type eq "fitb"} {
         regsub -all -line -nocase -- {<textbox as_item_choice_id=} $title "<input name=response_to_item.${as_item_id}_" html
     }
 
-    if {[empty_string_p $points]} {
+    if {$points eq ""} {
 	set points 0
     }
     set max_time_to_complete [as::assessment::pretty_time -seconds $max_time_to_complete]