Index: openacs-4/packages/assessment/tcl/as-item-type-oq-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-type-oq-procs.tcl,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/assessment/tcl/as-item-type-oq-procs.tcl	2 Sep 2008 17:21:29 -0000	1.20
+++ openacs-4/packages/assessment/tcl/as-item-type-oq-procs.tcl	27 Oct 2014 16:40:58 -0000	1.21
@@ -104,7 +104,7 @@
 
     Render an Open Question Type
 } {
-    if {![empty_string_p $default_value]} {
+    if {$default_value ne ""} {
 	array set values $default_value
 	set default $values(clob_answer)
     } else {
@@ -203,15 +203,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_oq"} {
+            || $item_type_info(object_type) ne "as_item_type_oq"} {
         set as_item_type_id [as::item_type_oq::new \
                                  -title $title \
                                  -default_value $default_value \
@@ -246,4 +246,4 @@
         -section_id $section_id \
         -after $after
 
-}
\ No newline at end of file
+}