diff --git a/src/frame.c b/src/frame.c
index 685761dc2c2..b2c360361bf 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -526,6 +526,8 @@ to that frame.")
   (frame, no_enter)
      Lisp_Object frame, no_enter;
 {
+  /* Preserve prefix arg that the command loop just cleared.  */
+  current_kboard->Vprefix_arg = Vcurrent_prefix_arg;
   return do_switch_frame (frame, no_enter, 0);
 }