diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 8481b8742..697c614bc 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -7,6 +7,8 @@
     http://www.plainblack.com/bugs/tracker/able-to-edit-locked-template 
  - fix: demo site: wiki: links broken (perlDreamer Consulting, LLC)
     http://www.plainblack.com/bugs/tracker/able-to-edit-locked-template 
+ - fix: DataForm does not export entry information (perlDreamer Consulting, LLC)
+    http://www.plainblack.com/bugs/tracker/dataform-does-not-export-entry-information
 
 7.3.15
  - Added more documentation to WebGUI.pm
diff --git a/lib/WebGUI/Asset/Wobject/DataForm.pm b/lib/WebGUI/Asset/Wobject/DataForm.pm
index 770624fa0..4d0690e7f 100644
--- a/lib/WebGUI/Asset/Wobject/DataForm.pm
+++ b/lib/WebGUI/Asset/Wobject/DataForm.pm
@@ -1110,19 +1110,19 @@ sub www_exportTab {
         $entries->finish;
 
         ##Output field headers
-        my @row;
+        my @validFields;
         foreach my $fieldId (keys %fields) {
                 next if (isIn($fields{$fieldId}, qw(to from cc bcc subject)) && $noMailData);
-                push(@row, $fields{$fieldId});
+                push(@validFields, $fields{$fieldId});
         }
-        my $tab = join("\t",@row)."\n";
+        unshift @validFields, qw/entryId ipAddress username userId submissionDate/;
+        my $tab = join("\t",@validFields)."\n";
 
         ##Output actual row data
         foreach my $record (@data) {
-                @row = ();
-                foreach my $fieldId (keys %fields) {
-                        next if (isIn($fields{$fieldId}, qw(to from cc bcc subject)) && $noMailData);
-                        my $value = $record->{$fields{$fieldId}};
+                my @row = ();
+                foreach my $fieldName (@validFields) {
+                        my $value = $record->{$fieldName};
                         $value =~ s/\t/\\t/g;
                         $value =~ s/\r//g;
                         $value =~ s/\n/;/g;