Index: trunk/pstamp/scripts/pstamp_finish.pl
===================================================================
--- trunk/pstamp/scripts/pstamp_finish.pl	(revision 27643)
+++ trunk/pstamp/scripts/pstamp_finish.pl	(revision 27670)
@@ -63,4 +63,5 @@
 my $pstamp_results = can_run('pstamp_results_file.pl') 
                             or (warn "Can't find pstamp_results_file.pl" and $missing_tools = 1);
+my $pstampdump = can_run('pstampdump') or (warn "Can't find pstampdump" and $missing_tools = 1);
 if ($missing_tools) {
     warn("Can't find required tools.");
@@ -123,4 +124,5 @@
     my ($rlf, $reglist_name) = tempfile ("$out_dir/reglist.XXXX", UNLINK => !$save_temps);
     print $rlf "results.fits|||table|\n";
+    print $rlf "results.mdc|||txt|\n";
 
     my $err_file = "parse_error.txt";
@@ -250,4 +252,13 @@
             print STDERR "Unable to perform $command error code: $error_code\n";
             $request_fault = $error_code >> 8;
+        } else {
+            # dump a textual representation
+            my $command = "$pstampdump $out_dir/results.fits > $out_dir/results.mdc";
+            my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
+                run(command => $command, verbose => $verbose);
+            unless ($success) {
+                print STDERR "Unable to perform $command error code: $error_code\n";
+                $request_fault = $error_code >> 8;
+            }
         }
     }