diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 0802eefa8..f9dc38286 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -26,6 +26,7 @@
  - fixed: Added survey.css as a snippet.  Had been left out.
  - fixed: Permissions aren't correctly applied to Article attachments
  - fixed #9681: Form-related template errors in gallery
+ - fixed #9683: Problem with EMS related workflow
 
 7.6.10
  - fixed #9577: WebGUI::Form::Url::getValue returns blank rather than undef for blank fields
diff --git a/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm b/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm
index 1756fb203..cd0f42fb7 100644
--- a/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm
+++ b/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm
@@ -364,9 +364,9 @@ sub purge {
     my $db = $self->session->db;
 
     # delete registrations
-	my $deleteTicket = $db->prepare("delete from EMSRegistrantTicket=?");
-	my $deleteToken = $db->prepare("delete from EMSRegistrantToken=?");
-	my $deleteRibbon = $db->prepare("delete from EMSRegistrantRibbon=?");
+	my $deleteTicket = $db->prepare("delete from EMSRegistrantTicket where badgeId=?");
+	my $deleteToken  = $db->prepare("delete from EMSRegistrantToken  where badgeId=?");
+	my $deleteRibbon = $db->prepare("delete from EMSRegistrantRibbon where badgeId=?");
     my $sth = $db->read("select badgeId from EMSRegistrant where emsAssetId=?",[$self->getId]);
     while (my ($id) = $sth->array) {
         $deleteTicket->execute([$id]);