diff --git a/Changes b/Changes
index def59547f..221c02261 100644
--- a/Changes
+++ b/Changes
@@ -7,6 +7,8 @@ indicates the contributor was also the author of the fix; Thanks!
 
 ***  Support $ceil, $floor, etc.  [Alex Solomatnikov]
 
+***  Fix --help output to go to stderr, not stdout, bug397.  [R. Diez]
+
 **** Fix MSVC compile warning with trunc/round, bug394. [Amir Gonnen]
 
 **** Fix autoconf warnings, bug396.  [R. Diez]
diff --git a/bin/verilator b/bin/verilator
index 9dc901a98..6837278c9 100755
--- a/bin/verilator
+++ b/bin/verilator
@@ -99,7 +99,7 @@ if ($opt_gdbbt && !$opt_gdb && $Debug) {
 #----------------------------------------------------------------------
 
 sub usage {
-    pod2usage(-exitstatus=>2, -verbose=>2);
+    pod2usage(-verbose=>2, -exitval=>2, -output=>\*STDOUT);
 }
 
 sub debug {
diff --git a/bin/verilator_difftree b/bin/verilator_difftree
index a37908730..1b4a7ff99 100755
--- a/bin/verilator_difftree
+++ b/bin/verilator_difftree
@@ -109,7 +109,7 @@ sub filter {
 #----------------------------------------------------------------------
 
 sub usage {
-    pod2usage(-verbose=>2, -exitval => 2);
+    pod2usage(-verbose=>2, -exitval=>2, -output=>\*STDOUT);
     exit (1);
 }
 
diff --git a/bin/verilator_profcfunc b/bin/verilator_profcfunc
index 72994c165..0fdfa6181 100755
--- a/bin/verilator_profcfunc
+++ b/bin/verilator_profcfunc
@@ -39,7 +39,7 @@ profcfunc($Opt_File);
 #----------------------------------------------------------------------
 
 sub usage {
-    pod2usage(-verbose=>2, -exitval => 2);
+    pod2usage(-verbose=>2, -exitval=>2, -output=>\*STDOUT);
     exit (1);
 }
 
diff --git a/nodist/dot_importer b/nodist/dot_importer
index 32c32118c..bcd7cc73b 100755
--- a/nodist/dot_importer
+++ b/nodist/dot_importer
@@ -38,7 +38,7 @@ cwrite ("graph_export.cpp");
 #----------------------------------------------------------------------
 
 sub usage {
-    pod2usage(-verbose=>2, -exitval => 2);
+    pod2usage(-verbose=>2, -exitval=>2, -output=>\*STDOUT);
     exit (1);
 }
 
diff --git a/nodist/dot_pruner b/nodist/dot_pruner
index a84f90f9d..fe9fad76e 100755
--- a/nodist/dot_pruner
+++ b/nodist/dot_pruner
@@ -43,7 +43,7 @@ dotwrite();
 #----------------------------------------------------------------------
 
 sub usage {
-    pod2usage(-verbose=>2, -exitval => 2);
+    pod2usage(-verbose=>2, -exitval=>2, -output=>\*STDOUT);
     exit (1);
 }
 
diff --git a/nodist/vtree_importer b/nodist/vtree_importer
index 4905ef646..78d6444be 100755
--- a/nodist/vtree_importer
+++ b/nodist/vtree_importer
@@ -40,7 +40,7 @@ print '(query-replace-regexp "(\\([0-9a-z_]+\\))" "\\1" nil nil nil)',"\n";
 #----------------------------------------------------------------------
 
 sub usage {
-    pod2usage(-verbose=>2, -exitval => 2);
+    pod2usage(-verbose=>2, -exitval=>2, -output=>\*STDOUT);
     exit (1);
 }
 
diff --git a/src/astgen b/src/astgen
index 294639499..a94e61133 100755
--- a/src/astgen
+++ b/src/astgen
@@ -42,7 +42,7 @@ foreach my $cpt (@Opt_Cpt) {
 #----------------------------------------------------------------------
 
 sub usage {
-    pod2usage(-verbose=>2, -exitval => 2);
+    pod2usage(-verbose=>2, -exitval=>2, -output=>\*STDOUT);
     exit (1);
 }
 
diff --git a/src/bisonpre b/src/bisonpre
index 5a5624a10..c592dc43b 100755
--- a/src/bisonpre
+++ b/src/bisonpre
@@ -56,7 +56,7 @@ process();
 
 sub usage {
     print "Version $VERSION\n";
-    pod2usage(-verbose=>2, -exitval => 2);
+    pod2usage(-verbose=>2, -exitval=>2, -output=>\*STDOUT);
     exit (1);
 }
 
diff --git a/test_regress/driver.pl b/test_regress/driver.pl
index ab2239514..5e5b5190a 100755
--- a/test_regress/driver.pl
+++ b/test_regress/driver.pl
@@ -178,7 +178,7 @@ exit(10) if $failcnt;
 #----------------------------------------------------------------------
 
 sub usage {
-    pod2usage(-verbose=>2, -exitval => 2);
+    pod2usage(-verbose=>2, -exitval=>2, -output=>\*STDOUT);
     exit (1);
 }
 
diff --git a/test_verilated/vgen.pl b/test_verilated/vgen.pl
index 0bd9026d7..59f9b01e5 100755
--- a/test_verilated/vgen.pl
+++ b/test_verilated/vgen.pl
@@ -235,7 +235,7 @@ write_output_v("vgen.v") if !$Opt_Sc;
 #----------------------------------------------------------------------
 
 sub usage {
-    pod2usage(-verbose=>2, -exitval => 2);
+    pod2usage(-verbose=>2, -exitval=>2, -output=>\*STDOUT);
     exit (1);
 }