diff --git a/ChangeLog b/ChangeLog
index f09983800c..0fa1537951 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2000-07-07  Ulrich Drepper  <drepper@redhat.com>
+
+	* malloc/mtrace.pl: Exit with exit code 1 if any leak was
+	detected.
+	* malloc/tst-mtrace.sh: Run mtrace script.
+
 2000-07-07  Greg McGary  <greg@mcgary.org>
 
 	* posix/regex.c (EXTEND_BUFFER): Compute increment once.
diff --git a/malloc/tst-mtrace.sh b/malloc/tst-mtrace.sh
index a5b61ec057..c0c8458e6d 100755
--- a/malloc/tst-mtrace.sh
+++ b/malloc/tst-mtrace.sh
@@ -27,4 +27,9 @@ LOCPATH=${common_objpfx}localedata GCONV_PATH=${common_objpfx}iconvdata \
 ${common_objpfx}elf/ld.so --library-path $common_objpfx \
   ${common_objpfx}malloc/tst-mtrace || status=1
 
+if test $status -eq 0 && test -f ${common_objpfx}malloc/mtrace; then
+  ${common_objpfx}malloc/mtrace ${common_objpfx}malloc/tst-mtrace \
+    ${common_objpfx}tst-mtrace.out || status=1
+fi
+
 exit $status