Add a hint about the current file for TCL debuggin

Signed-off-by: Madelyn Olson <[email protected]>

tests/support/server.tcl

@@ -309,7 +309,7 @@ proc spawn_server {config_file stdout stderr args} {
     }
 
     # Tell the test server about this new instance.
-    send_data_packet $::test_server_fd server-spawned $pid
+    send_data_packet $::test_server_fd server-spawned "$pid - $::curfile"
     return $pid
 }