diff --git a/fluid/file.cxx b/fluid/file.cxx
index 73b51f52c..d06283670 100644
--- a/fluid/file.cxx
+++ b/fluid/file.cxx
@@ -406,6 +406,9 @@ Fl_Type *Fd_Project_Reader::read_children(Fl_Type *p, int merge, Strategy strate
 
       t->layout_widget();
     }
+    if (strategy == kAddAsFirstChild) {
+      strategy = kAddAfterCurrent;
+    }
     if (strategy == kAddAfterCurrent) {
       Fl_Type::current = t;
     } else {
diff --git a/fluid/fluid.cxx b/fluid/fluid.cxx
index b45e85cc2..44814574e 100644
--- a/fluid/fluid.cxx
+++ b/fluid/fluid.cxx
@@ -1421,6 +1421,8 @@ void paste_cb(Fl_Widget*, void*) {
       // If the current widget is a group widget and it is not folded,
       // add the new widgets inside the group.
       strategy = kAddAsLastChild;
+      // The following alternative also works quite nicely
+      //strategy = kAddAsFirstChild;
     }
   }
   if (!read_file(cutfname(), 1, strategy)) {