diff --git a/tests/ChangeLog b/tests/ChangeLog
index 19270b6f..a401c297 100644
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,3 +1,8 @@
+2008-11-06  Steven Schubiger  <stsc@members.fsf.org>
+
+	* run-px: When executing test scripts, invoke them with the
+	current perl executable name as determined by env.
+
 2008-11-06  Micah Cowan  <micah@cowan.name>
 
 	* run-px: Use strict (thanks Steven Schubiger!).
diff --git a/tests/run-px b/tests/run-px
index 05f6eda6..60b848d1 100755
--- a/tests/run-px
+++ b/tests/run-px
@@ -52,7 +52,7 @@ my @results;
 
 for my $test (@tests) {
     print "Running $test\n\n";
-    system("$top_srcdir/tests/$test");
+    system("$^X $top_srcdir/tests/$test");
     push @results, $?;
 }