Index: openacs-4/packages/xowf/tcl/test-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/test-item-procs.tcl,v
diff -u -r1.7.2.213 -r1.7.2.214
--- openacs-4/packages/xowf/tcl/test-item-procs.tcl	9 Feb 2022 15:53:10 -0000	1.7.2.213
+++ openacs-4/packages/xowf/tcl/test-item-procs.tcl	10 Feb 2022 11:50:03 -0000	1.7.2.214
@@ -4293,9 +4293,8 @@
                                modal_message_dialog -to_user_id [$p creation_user]]
           append dialogs [dict get $dialog_info dialog] \n
           set notification_dialog_button [dict get $dialog_info link]
+          $p set online-exam-fullName "$notification_dialog_button [$p set online-exam-fullName]</a>"
           lappend user_list [$p creation_user]
-        } else {
-          set notification_dialog_button ""
         }
 
         #
@@ -4304,7 +4303,6 @@
         #
         set duration [:get_duration [$p get_revision_sets]]
         $p set_property -new 1 _online-exam-seconds [dict get $duration seconds]
-        $p set online-exam-fullName "$notification_dialog_button [$p set online-exam-fullName]"
       }
 
       ::xowiki::includelet::personal-notification-messages \
@@ -4326,7 +4324,7 @@
                                modal_message_dialog -to_user_id $user_list]
           append dialogs [dict get $dialog_info dialog] \n
           set notification_dialog_button [dict get $dialog_info link]
-          set bulk_notification_HTML "<div class='bulk-personal-notification-message'>$notification_dialog_button #xowiki.Send_message_to# [llength $user_list] #xowf.Participants#</div>"
+          set bulk_notification_HTML "<div class='bulk-personal-notification-message'>$notification_dialog_button #xowiki.Send_message_to# [llength $user_list] #xowf.Participants#</a></div>"
         }
       }
       #