diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index a94bd6e3f..0a4b5ed55 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -9,6 +9,7 @@
  - Added Chinese character support to search engine and indexer thanks to Zhou
    Xiaopeng.
  - fix: issue with recursive ldap filter causing it not to work properly
+ - fix: upgrade 7.0.0 to 7.0.1 ldap problem
  - fix: Typo when trying to display pvt profile
  - Added an unsubscribe link to the messages generated by collaboration
    subscriptions per the laws in various countries.
@@ -35,6 +36,7 @@
  - fix: WebGUI::Image missing methods
  - Added runOnLogin and runOnLogout config file properties to Authentication to allow
    for running an external script on successful login or logout.
+ - fix: spectre
    
 7.0.1
  - fix: User profile field "Department" needs i18n 
diff --git a/lib/Spectre/Workflow.pm b/lib/Spectre/Workflow.pm
index b547e1a4b..d45cf7d5c 100644
--- a/lib/Spectre/Workflow.pm
+++ b/lib/Spectre/Workflow.pm
@@ -194,6 +194,10 @@ sub deleteInstance {
 	$self->debug("Deleting workflow instance $instanceId from instance queue.");
 	if ($self->{_instances}{$instanceId}) {
 		my $priority = $self->{_instances}{$instanceId}{priority};
+		unless ($priority) {
+			$priority = 2;
+			$self->error("Workflow instance $instanceId has no priority set. This is likely the cause of a bug somewhere in the system. Temporarily setting the priority to 2 to avoid a fatal error.");
+		}
 		delete $self->{_errorCount}{$instanceId};
 		delete $self->{_instances}{$instanceId};
 		for (my $i=0; $i < scalar(@{$self->{"_priority".$priority}}); $i++) {