diff --git a/gui-test/framework/tests/frame.rkt b/gui-test/framework/tests/frame.rkt
index 936bbe55..74458b59 100644
--- a/gui-test/framework/tests/frame.rkt
+++ b/gui-test/framework/tests/frame.rkt
@@ -175,8 +175,13 @@
         (queue-callback (λ () (semaphore-post s)) #f)
         (semaphore-wait s))
 
-      (for ([c (in-string replace-string)])
-        (test:keystroke c))
+      (test:menu-select "Edit" "Select All")
+      (cond
+        [(equal? replace-string "")
+         (test:keystroke #\backspace)]
+        [else
+         (for ([c (in-string replace-string)])
+           (test:keystroke c))])
 
       (queue-callback
        (λ ()