diff --git a/mps/qa/test/script/display b/mps/qa/test/script/display
new file mode 100644
index 00000000000..c28b9471383
--- /dev/null
+++ b/mps/qa/test/script/display
@@ -0,0 +1,25 @@
+#!/usr/local/perl
+# $HopeName: MMQA_harness!script:logging(trunk.4) $
+#
+# provide a subroutine to pretty-print tests to a
+# output stream
+#
+
+1;
+
+sub display_test_source {
+ local ($file, $stream, $width) = @_;
+
+ unless (open(IN, $file)) {
+  die "File ".$infile." unexpectedly not found.\n";
+ }
+
+ $l = "";
+
+ while (<IN>) {
+  print $stream $_;
+ }
+
+ close(IN);
+}
+