problem with gui solved

private/player.rkt

@@ -1135,7 +1135,11 @@
          (suggested-name
           (string-trim
            (or (json-string data 'name #f)
-               "RKT playback agent"))))
+               "RKT playback agent")))
+         (advertised-name
+          (if (string=? suggested-name "")
+              "RKT playback agent"
+              suggested-name)))
     (unless (valid-agent-id? app-id)
       (raise-arguments-error
        'player-agent-register!
@@ -1147,19 +1151,16 @@
        (let ((existing (agent-by-id value app-id)))
          (if existing
              (begin
-               (set-playback-agent-name! existing suggested-name)
+               (set-playback-agent-name! existing advertised-name)
                (let ((agent-output (agent-renderer value existing)))
                  (when agent-output
-                   (set-renderer-name! agent-output suggested-name)))
+                   (set-renderer-name! agent-output advertised-name)))
                (set-playback-agent-last-seen!
                 existing
                 (current-seconds))
                (hasheq 'name (playback-agent-name existing)
                        'pollIntervalMs 1000))
-             (let* ((name
-                     (if (string=? suggested-name "")
-                         "RKT playback agent"
-                         suggested-name))
+             (let* ((name advertised-name)
                     (agent
                      (playback-agent
                       app-id name (current-seconds)