Index: openacs-4/packages/assessment/www/asm-admin/item-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit.tcl,v
diff -u -r1.13 -r1.13.4.1
--- openacs-4/packages/assessment/www/asm-admin/item-edit.tcl	1 Dec 2008 16:57:03 -0000	1.13
+++ openacs-4/packages/assessment/www/asm-admin/item-edit.tcl	18 Aug 2014 20:25:06 -0000	1.13.4.1
@@ -33,7 +33,7 @@
 set item_type [string range [db_string item_type {}] end-1 end]
 set display_type [string range [db_string display_type {}] end-1 end]
 
-if {[string eq $display_type "_f"]} {
+if {$display_type eq "_f"} {
     set display_type f
 }
 set question_text [list $title text/html]
@@ -74,7 +74,7 @@
     }
 }
 
-if {![empty_string_p [category_tree::get_mapped_trees $package_id]]} {
+if {[category_tree::get_mapped_trees $package_id] ne ""} {
     category::ad_form::add_widgets -container_object_id $package_id -categorized_object_id $as_item_id -form_name item_edit
 }