1 files changed, 1 insertions, 2 deletions
diff --git a/lib.c b/lib.c
index 0f4a33fe..77231478 100644
--- a/lib.c
+++ b/lib.c
@@ -3853,8 +3853,7 @@ val sort(val seq, val lessfun, val keyfun)
        objects. Sorting the list could reverse some of the
        pointers between the generations resulting in a backpointer.
        Thus we better inform the collector about this object. */
-    mut(seq);
-    return sort_list(seq, lessfun, keyfun);
+    return mut(sort_list(seq, lessfun, keyfun));
   }
 
   sort_vec(seq, lessfun, keyfun);