Index: openacs-4/packages/assessment/tcl/as-item-type-fu-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-type-fu-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/assessment/tcl/as-item-type-fu-procs.tcl	15 May 2007 20:14:17 -0000	1.5
+++ openacs-4/packages/assessment/tcl/as-item-type-fu-procs.tcl	27 Oct 2014 16:40:58 -0000	1.6
@@ -73,7 +73,7 @@
 
     Render a File Upload Type
 } {
-    if {![empty_string_p $default_value]} {
+    if {$default_value ne ""} {
 	array set values $default_value
 	set default $values(text_answer)
     } else {
@@ -153,15 +153,15 @@
 
     @param assessment_id Assessment to attach question to
     @param section_id Section the question is in
-    @oaram as_item_id Item object this multiple choice belongs to
+    @param as_item_id Item object this multiple choice belongs to
     @param title Title of question/choice set for question library
     @param after Add this question after the queston number in the section
 
     @author Dave Bauer (dave@solutiongrove.com)
     @creation-date 2006-10-25
 } {
 	if {![as::item::get_item_type_info -as_item_id $as_item_id] \
-                || $item_type_info(object_type) != "as_item_type_fu"} {
+                || $item_type_info(object_type) ne "as_item_type_fu"} {
 	    set as_item_type_id [as::item_type_fu::new -title $title ]
 	
 	    if {![info exists object_type]} {
@@ -190,4 +190,4 @@
             -section_id $section_id \
             -as_item_id $as_item_id \
             -after $after
-}
\ No newline at end of file
+}