Index: openacs-4/packages/xowf/lib/inclass-exam.wf
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/lib/Attic/inclass-exam.wf,v
diff -u -N -r1.1.2.77 -r1.1.2.78
--- openacs-4/packages/xowf/lib/inclass-exam.wf	27 Aug 2021 18:33:47 -0000	1.1.2.77
+++ openacs-4/packages/xowf/lib/inclass-exam.wf	16 Sep 2021 18:18:06 -0000	1.1.2.78
@@ -160,7 +160,7 @@
 Action instproc publish_link {obj} {
   set aLink [$obj pretty_link -query m=answer]
   $obj util_user_message -html \
-      -message "[$obj name] is available as <a target='_blank' href='[ns_quotehtml $aLink]'>[ns_quotehtml $aLink]</a>"
+      -message "[ns_quotehtml [$obj name]] is available as <a target='_blank' href='[ns_quotehtml $aLink]'>[ns_quotehtml $aLink]</a>"
   # TODO: make it happen in the LMS
 }
 ########################################################################
@@ -187,7 +187,7 @@
   set full_fc [dict get $combined_form_info disabled_form_constraints]
 
   #:log  fullQuestionForm=$fullQuestionForm
-  set text "<h3>$title</h3>"
+  set text "<h3>[ns_quotehtml $title]</h3>"
   set menu ""
 
   set text [::xowf::test_item::question_manager exam_info_block \
@@ -248,7 +248,7 @@
     dict for {name d} $md {
       set href [[dict get $d obj] pretty_link -query m=[dict get $d m]]
       append menu "<a class='list-group-item $link_disabled' href='[ns_quotehtml $href]'>" \
-          "<span class='glyphicon glyphicon-[dict get $d glyph]'></span> [dict get $d label]</a>\n"
+          "<span class='glyphicon glyphicon-[dict get $d glyph]'></span> [ns_quotehtml [dict get $d label]]</a>\n"
     }
   }
 
@@ -281,7 +281,7 @@
     "published" {
       append extraAction "<br>" \
           "#xowf.online-exam-can_answer# " \
-          "<a class='answer' href='$aLink'>$aLink</a>"
+          "<a class='answer' href='$aLink'>[ns_quotehtml $aLink]</a>"
     }
   }
 
@@ -333,8 +333,6 @@
   }
 
   set footer " $extraAction"
-
-  #-form [subst {<form>$text<div class='exam-preview'>$fullQuestionForm</div>$report</form> text/html}]
   set f [::xowiki::Form new \
              -destroy_on_cleanup \
              -set name en:question \