diff --git a/ChangeLog b/ChangeLog
index 79b3ae48d..27a565a43 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -3,6 +3,8 @@
 	* Makefile.maint (sc_the_the): New rule.
 
 	* src/dd.c (skip): Remove one of two adjacent "the"s in a comment.
+	* tests/Coreutils.pm (run_tests): Remove one of two adjacent "then"s
+	in a comment.
 
 2006-07-07  Jim Meyering  <jim@meyering.net>
 
diff --git a/tests/Coreutils.pm b/tests/Coreutils.pm
index 6d3c4d2f2..1490fb1d3 100644
--- a/tests/Coreutils.pm
+++ b/tests/Coreutils.pm
@@ -9,7 +9,7 @@ use FileHandle;
 use File::Compare qw(compare);
 
 @ISA = qw(Exporter);
-($VERSION = '$Revision: 1.3 $ ') =~ tr/[0-9].//cd;
+($VERSION = '$Revision: 1.4 $ ') =~ tr/[0-9].//cd;
 @EXPORT = qw (run_tests);
 
 my $debug = $ENV{DEBUG};
@@ -470,7 +470,7 @@ sub run_tests ($$$$$)
 	      my $out = $actual{$eo};
 	      my $orig = "$out.orig";
 
-	      # Move $out aside (to $orig), then then recreate $out
+	      # Move $out aside (to $orig), then recreate $out
 	      # by transforming each line of $orig via $subst_expr.
 	      rename $out, $orig
 		or (warn "$program_name: cannot rename $out to $orig: $!\n"),