Index: openacs-4/packages/assessment/lib/item-show-mc.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/item-show-mc.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/assessment/lib/item-show-mc.tcl	27 Oct 2014 16:40:55 -0000	1.11
+++ openacs-4/packages/assessment/lib/item-show-mc.tcl	7 Aug 2017 23:48:03 -0000	1.12
@@ -21,8 +21,8 @@
 set total [llength $choices]
 foreach one_choice $choices {
     lassign $one_choice choice_id title correct_answer_p feedback_text selected_p percent_score sort_order fixed_position answer_value content_rev_id content_filename content_name
-    set title  [ad_quotehtml $title]
-    set feedback_text [ad_quotehtml $feedback_text]
+    set title  [ns_quotehtml $title]
+    set feedback_text [ns_quotehtml $feedback_text]
     incr count
     set options ""
     if {$count < $total} {
@@ -51,3 +51,9 @@
 }
 append ad_form_code "\}"
 eval ad_form -extend -name item_show_mc $ad_form_code
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: