Index: openacs-4/packages/assessment/tcl/as-item-type-mc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-type-mc-procs.tcl,v
diff -u -N -r1.27.2.1 -r1.27.2.2
--- openacs-4/packages/assessment/tcl/as-item-type-mc-procs.tcl	14 Feb 2019 16:15:01 -0000	1.27.2.1
+++ openacs-4/packages/assessment/tcl/as-item-type-mc-procs.tcl	5 Mar 2019 14:36:10 -0000	1.27.2.2
@@ -568,7 +568,7 @@
                                -content_value "" \
                                -feedback_text "" \
                                -selected_p "" \
-                               -correct_answer_p [ad_decode [info exists correct($i)] 0 f t] \
+                               -correct_answer_p [expr {[info exists correct($i)] ? "t" : "f"}] \
                                -sort_order $count \
                                -percent_score ""]