diff --git a/src/frame.c b/src/frame.c
index c1ef26e5dd4..e5177afa059 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -3705,7 +3705,10 @@ store_frame_param (struct frame *f, Lisp_Object prop, Lisp_Object val)
     {
       if (NILP (f->parent_frame) != NILP (val))
 	error ("Making a root frame a child or vice versa is not supported");
+
+      SET_FRAME_GARBAGED (root_frame (f));
       f->parent_frame = val;
+      SET_FRAME_GARBAGED (root_frame (f));
     }
 
   /* The tty color needed to be set before the frame's parameter