diff --git a/gas/testsuite/gas/ieee.fp/x930509a.exp b/gas/testsuite/gas/ieee.fp/x930509a.exp
index 6436b4293bf..7a67d638b31 100644
--- a/gas/testsuite/gas/ieee.fp/x930509a.exp
+++ b/gas/testsuite/gas/ieee.fp/x930509a.exp
@@ -11,7 +11,7 @@ proc dotest {} {
 	    -re " 00008000 +.single" { pass $testname; set x 1 }
 	    -re " ........ +.single" { fail $testname; set x 1 }
 	    -re "\[^\n\]*\n" { }
-	    timeout { error "timeout\n"; break }
+	    timeout { perror "timeout\n"; break }
 	    eof { break }
 	}
     }