From b225774415dc5b752e4c44d975ebc2bbbc7f0e10 Mon Sep 17 00:00:00 2001
From: Tom Snijders <tom.snijders@nuffield.ox.ac.uk>
Date: Sun, 14 Jun 2026 17:27:35 +0200
Subject: [PATCH] Correction for returnChains=TRUE

---
 DESCRIPTION           |  4 ++--
 NEWS.md               | 12 ++++++++++++
 man/RSiena-package.Rd |  4 ++--
 src/siena07models.cpp |  4 ++--
 4 files changed, 18 insertions(+), 6 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index f295a2b..6b3ef2c 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -2,8 +2,8 @@ Encoding: UTF-8
 Package: RSiena
 Type: Package
 Title: Siena - Simulation Investigation for Empirical Network Analysis
-Version: 1.6.9
-Date: 2026-06-10
+Version: 1.6.10
+Date: 2026-06-14
 Authors@R: c(person("Tom A.B.", "Snijders", role = c("aut", "ctb"), comment = c(ORCID = "0000-0003-3157-4157")),
               person("Ruth M.", "Ripley", role = "aut"),
               person("Krists", "Boitmanis", role = c( "aut","ctb")),
diff --git a/NEWS.md b/NEWS.md
index 3f4a687..2ad0452 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,3 +1,15 @@
+2026-06-14
+
+# RSiena 1.6.10
+
+## Changes in RSiena:
+### Bug correction
+  * Running `siena` with `returnChains = TRUE, returnDataFrame = TRUE`
+    corrected.
+### Functionality
+  * Undo sorting of returned data frames for `returnChains=TRUE`
+    (`siena07models.cpp`).
+
 2026-06-10
 
 # RSiena 1.6.9
diff --git a/man/RSiena-package.Rd b/man/RSiena-package.Rd
index 02fc600..0027a12 100644
--- a/man/RSiena-package.Rd
+++ b/man/RSiena-package.Rd
@@ -52,8 +52,8 @@ Bug reports can be submitted at
   \tabular{ll}{
     Package: \tab RSiena\cr
     Type: \tab Package\cr
-    Version: \tab 1.6.9\cr
-    Date: \tab 2026-06-10\cr
+    Version: \tab 1.6.10\cr
+    Date: \tab 2026-06-14\cr
     Depends: \tab R (>= 4.5.0)\cr
     Imports: \tab Matrix, lattice, parallel, MASS, methods, xtable\cr
     Suggests: \tab network, tools, codetools, tcltk\cr
diff --git a/src/siena07models.cpp b/src/siena07models.cpp
index a48da59..914ebf9 100644
--- a/src/siena07models.cpp
+++ b/src/siena07models.cpp
@@ -416,7 +416,7 @@ SEXP forwardModel(SEXP DERIV, SEXP DATAPTR, SEXP SEEDS,
 				SEXP thisChain;
 				if (returnDataFrame)
 				{
-					thisChain = getChainDFPlus(*(pEpochSimulation->pChain()), true);
+					thisChain = getChainDFPlus(*(pEpochSimulation->pChain()), false);
 				}
 				else
 				{
@@ -665,7 +665,7 @@ SEXP mlPeriod(SEXP DERIV, SEXP DATAPTR, SEXP MODELPTR, SEXP EFFECTSLIST,
 		if (returnDataFrame)
 		{
 			PROTECT(theseValues =
-				Rf_duplicate(getChainDFPlus(*(pMLSimulation->pChain()), true)));
+				Rf_duplicate(getChainDFPlus(*(pMLSimulation->pChain()), false)));
 		}
 		else
 		{