diff -urpN src/gdb/testsuite/lib/gdb.exp dev/gdb/testsuite/lib/gdb.exp
--- src/gdb/testsuite/lib/gdb.exp	2008-03-10 11:23:52.000000000 +0100
+++ dev/gdb/testsuite/lib/gdb.exp	2008-03-27 16:15:08.000000000 +0100
@@ -566,6 +566,7 @@ proc gdb_test_multiple { command message
     # input doesn't contain a pattern which contains actual embedded newlines
     # at this point!
 
+    regsub -all {[;#].*?[\n]} ${user_code} { } user_code
     regsub -all {\n} ${user_code} { } subst_code
     set subst_code [uplevel list $subst_code]