diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 810be8b82..ec956bccc 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -6,6 +6,7 @@
         they complete their transaction.
  - fix: Trouble with Search Users (perlDreamer Consulting, LLC)
         http://www.plainblack.com/bugs/tracker/trouble-with-search-users
+ - fix: Fixed an unhandled exception in Workflow/Activity/PurgeOldAssetRevisions.pm
 
 
 7.3.14
diff --git a/lib/WebGUI/Workflow/Activity/PurgeOldAssetRevisions.pm b/lib/WebGUI/Workflow/Activity/PurgeOldAssetRevisions.pm
index 07d13e21a..744057669 100644
--- a/lib/WebGUI/Workflow/Activity/PurgeOldAssetRevisions.pm
+++ b/lib/WebGUI/Workflow/Activity/PurgeOldAssetRevisions.pm
@@ -79,9 +79,13 @@ sub execute {
         my $sth = $self->session->db->read("select assetData.assetId,asset.className,assetData.revisionDate from asset left join assetData on asset.assetId=assetData.assetId where assetData.revisionDate<? order by assetData.revisionDate asc", [time() - $self->get("purgeAfter")]);
         while (my ($id, $class, $version) = $sth->array) {
         	my $asset = WebGUI::Asset->new($self->session, $id,$class,$version);
-                if ($asset->getRevisionCount("approved") > 1) {
-                	$asset->purgeRevision;
-                }
+		if (defined $asset) {
+                	if ($asset->getRevisionCount("approved") > 1) {
+                		$asset->purgeRevision;
+                	}
+		} else {
+			$self->session->errorHandler->error("Could not instanciate asset $id $class $version perhaps it is corrupt.")
+		}
         }
 	$sth->finish;
 	return $self->COMPLETE;