diff --git a/Changes b/Changes
index d6aff2c55..713b033e3 100644
--- a/Changes
+++ b/Changes
@@ -4,6 +4,8 @@ The contributors that suggested a given feature are shown in []. Thanks!
 
 * Verilator 4.019 devel
 
+****  Fix make test with no VERILATOR_ROOT, bug1494. [Ahmed El-Mahmoudy]
+
 
 * Verilator 4.018 2019-08-29
 
diff --git a/test_regress/driver.pl b/test_regress/driver.pl
index 17a9e5a0c..5951b8a0e 100755
--- a/test_regress/driver.pl
+++ b/test_regress/driver.pl
@@ -6,6 +6,12 @@ eval 'exec perl -wS $0 ${1+"$@"}'
 
 require 5.006_001;
 use Cwd;
+BEGIN {
+    if (!$ENV{VERILATOR_ROOT} && -x "../bin/verilator") {
+        $ENV{VERILATOR_ROOT} = Cwd::getcwd()."/..";
+    }
+}
+
 use Getopt::Long;
 use IO::File;
 use Pod::Usage;