diff --git a/contrib/ChangeLog b/contrib/ChangeLog
index 98b7d0b6d76a7f91b09e3469c26783b9b31105db..2023d928abad5d0879c6894b205e37d220751276 100644
--- a/contrib/ChangeLog
+++ b/contrib/ChangeLog
@@ -1,3 +1,8 @@
+1999-01-07  Alexandre Oliva  <oliva@dcc.unicamp.br>
+
+	* test_summary (version): remove carriage return that gawk inserts
+	in the version string for some reason
+
 1998-11-30  Gerald Pfeifer  <pfeifer@dbai.tuwien.ac.at>
 
 	* egcs_update: Only touch files that already exist.
diff --git a/contrib/test_summary b/contrib/test_summary
index 5a28ddcaafe623bb378552e7df8ee39555829802..fd76292682fdd7f37731b9a7c08f0a0626038752 100755
--- a/contrib/test_summary
+++ b/contrib/test_summary
@@ -107,7 +107,7 @@ $1 ~ /\/configure$/ { $1 = "configure flags:"; configflags = $0 }
 }
 /--disable-haifa/ { prefix="haifa-disabled "; }
 /--enable-haifa/ { prefix="haifa-enabled "; }
-$2 == "version" { save = $0; $1 = ""; $2 = ""; version = $0; gsub(/^ */, "", version); $0 = save; }
+$2 == "version" { save = $0; $1 = ""; $2 = ""; version = $0; gsub(/^ */, "", version); gsub(/\r$/, "", version); $0 = save; }
 /\===.*Summary/ { print ""; print; blanks=1; }
 /tests ===/ || /^(Target|Host|Native)/ || $2 == "version" { print; blanks=1; }
 /^(XPASS|FAIL|# of )/ { print; }