Index: openacs-4/packages/assessment/tcl/as-item-display-sa-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-display-sa-procs.tcl,v
diff -u -N -r1.10 -r1.11
--- openacs-4/packages/assessment/tcl/as-item-display-sa-procs.tcl	2 Sep 2008 17:21:29 -0000	1.10
+++ openacs-4/packages/assessment/tcl/as-item-display-sa-procs.tcl	27 Oct 2014 16:40:57 -0000	1.11
@@ -100,10 +100,10 @@
     Render an Item Display ShortAnswer Type
 } {
     array set type [util_memoize [list as::item_display_sa::data -type_id $type_id]]
-    if {[empty_string_p $required_p]} {
+    if {$required_p eq ""} {
 	set required_p f
     }
-    if {[empty_string_p $datatype]} {
+    if {$datatype eq ""} {
 	set datatype text
     }
 
@@ -112,7 +112,7 @@
 	set optional ",optional"
     }
     set param_list [list [list label \$title] [list help_text \$subtext] [list value \$default_value] [list html \$type(html_display_options)]]
-    if {![empty_string_p $type(abs_size)]} {
+    if {$type(abs_size) ne ""} {
 	lappend param_list [list maxlength $type(abs_size)]
     }
     set element_params [concat [list "$element\:$datatype\(text)$optional"] $param_list]