make sure the config it returned when called without code

diff --git a/tests/support/server.tcl b/tests/support/server.tcl
index 551e24d11eefedc1a5dcbc8fb9b642b91939391d..07e5e8ad772b1e0dbcd534e1531b8ccb2f2f099b 100644 (file)
--- a/tests/support/server.tcl
+++ b/tests/support/server.tcl
@@ -236,11 +236,10 @@ proc start_server {options {code undefined}} {
             exit 1
         }
 
+        set ::tags [lrange $::tags 0 end-[llength $tags]]
         kill_server $srv
     } else {
+        set ::tags [lrange $::tags 0 end-[llength $tags]]
         set _ $srv
     }
-
-    # remove tags
-    set ::tags [lrange $::tags 0 end-[llength $tags]]
 }