diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 53ee35b75..46dbf55c6 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -13,6 +13,7 @@
  - fixed: incoming data not properly decoded from utf8
  - fixed: Can't call method "getSku" on unblessed reference
  - fixed: PurgeOldInboxMessages just didn't work
+ - fixed: Unable to delete data form entries
 
 7.5.22
  - fixed: Layout template now gets prepared correctly
diff --git a/lib/WebGUI/Asset/Wobject/DataForm.pm b/lib/WebGUI/Asset/Wobject/DataForm.pm
index 602126958..de00dbdb5 100644
--- a/lib/WebGUI/Asset/Wobject/DataForm.pm
+++ b/lib/WebGUI/Asset/Wobject/DataForm.pm
@@ -448,8 +448,8 @@ sub deleteAttachedFiles {
     my $fieldConfig = $self->getFieldConfig;
 
     if ($entryId) {
-        my $entry = $self->session->db->buildArrayRef("select entryData from DataForm_entry where assetId=? and DataForm_entryId=?", [$self->getId, $entryId]);
-        $entryData = JSON::from_json($entry->{entryData});
+        my ($entry) = $self->session->db->buildArray("select entryData from DataForm_entry where assetId=? and DataForm_entryId=?", [$self->getId, $entryId]);
+        $entryData = JSON::from_json($entry);
     }
     if ($entryData) {
         for my $field ( @$fields ) {