diff --git a/tests/support/server.tcl b/tests/support/server.tcl
index 8ab8cf66a..9894e6f2a 100644
--- a/tests/support/server.tcl
+++ b/tests/support/server.tcl
@@ -296,6 +296,7 @@ proc start_server {options {code undefined}} {
             # append the server to the stack
             lappend ::servers $srv
         }
+        r flushall
         uplevel 1 $code
         set ::tags [lrange $::tags 0 end-[llength $tags]]
         return