diff --git a/contrib/ChangeLog b/contrib/ChangeLog
index 8df5f8287435..e2f4ededaa11 100644
--- a/contrib/ChangeLog
+++ b/contrib/ChangeLog
@@ -1,3 +1,7 @@
+2007-11-26  Alexandre Oliva  <aoliva@redhat.com>
+
+	* compare-debug: Introduce -p flag to preserve .stripped files.
+
 2007-10-08  Manuel Lopez-Ibanez  <manu@gcc.gnu.org>
 
 	* texi2pod.pl: Handle @asis.
diff --git a/contrib/compare-debug b/contrib/compare-debug
index f1500b607884..6e979e9d7865 100755
--- a/contrib/compare-debug
+++ b/contrib/compare-debug
@@ -21,6 +21,15 @@
 # along with GCC; see the file COPYING3.  If not see
 # <http://www.gnu.org/licenses/>.
 
+rm='rm -f'
+
+case $1 in
+-p | --preserve)
+  rm='echo preserving'
+  shift
+  ;;
+esac
+
 if test $# != 2; then
   echo 'usage: compare-debug file1.o file2.o' >&2
   exit 1
@@ -60,7 +69,7 @@ else
   status=1
 fi
 
-rm -f "$1.$suf1" "$2.$suf2"
+$rm "$1.$suf1" "$2.$suf2"
 
 trap "exit $status; exit" 0 1 2 15