diff --git a/bin/tests/system/run.sh b/bin/tests/system/run.sh
index f5d455b917..ce627b48a9 100644
--- a/bin/tests/system/run.sh
+++ b/bin/tests/system/run.sh
@@ -35,7 +35,7 @@ shift
 
 test -d $test || { echo "$0: $test: no such test" >&2; exit 1; }
 
-echo "S:`date`" >&2
+echo "S:$test:`date`" >&2
 echo "T:$test:1:A" >&2
 
 # Irix does not have /var/run
@@ -51,6 +51,7 @@ if [ x$PERL = x ]
 then
     echo "I:Perl not available.  Not trying system tests." >&2
     echo "R:UNTESTED" >&2
+    echo "E:$test:`date`" >&2
     exit 0;
 fi