Index: openacs-4/packages/xowf/lib/inclass-exam-answer.wf
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/lib/inclass-exam-answer.wf,v
diff -u -r1.1.2.37 -r1.1.2.38
--- openacs-4/packages/xowf/lib/inclass-exam-answer.wf	12 Apr 2021 18:30:09 -0000	1.1.2.37
+++ openacs-4/packages/xowf/lib/inclass-exam-answer.wf	13 Apr 2021 09:19:28 -0000	1.1.2.38
@@ -141,7 +141,7 @@
       #
       set flagged [:property flagged {}]
       set position [:property position 0]
-      set i [lsearch $flagged $position 0]
+      set i [lsearch $flagged $position]
       if {$i > -1} {
         set flagged [lreplace $flagged $i $i]
       } else {