diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 2142d1635f22494b2c1888553312019c30e75e5b..344c1c32f35e367e1f746185e494ab2b9c5f8108 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2002-01-25  Hans-Peter Nilsson  <hp@bitrange.com>
+
+	* lib/scanasm.exp (scan-assembler-dem, scan-assembler-dem-not):
+	Remove first, non-varying, argument.
+
 2002-01-23  Richard Henderson  <rth@redhat.com>
 
 	* gcc.dg/inline-2.c: New.
diff --git a/gcc/testsuite/lib/scanasm.exp b/gcc/testsuite/lib/scanasm.exp
index 694593f4b93cf26ceecdd961472497a9b9d787c8..9f6d7dabca59fb90d3b75e8774c2bf242d40666a 100644
--- a/gcc/testsuite/lib/scanasm.exp
+++ b/gcc/testsuite/lib/scanasm.exp
@@ -91,7 +91,7 @@ proc scan-assembler-not { args } {
 
 # Utility for scanning demangled compiler result, invoked via dg-final.
 # Call pass if pattern is present, otherwise fail.
-proc scan-assembler-dem { pattern args } {
+proc scan-assembler-dem { args } {
     global cxxfilt
     global base_dir
 
@@ -135,7 +135,7 @@ proc scan-assembler-dem { pattern args } {
 }
 
 # Call pass if demangled pattern is not present, otherwise fail.
-proc scan-assembler-dem-not { pattern args } {
+proc scan-assembler-dem-not { args } {
     global cxxfilt
     global base_dir