diff --git a/CI/CI.ml b/CI/CI.ml
index e85c133..976d085 100644
--- a/CI/CI.ml
+++ b/CI/CI.ml
@@ -170,7 +170,7 @@ let create_matrix_spin f det_space =
       ) a;
 
     Array.map (fun l ->
-        List.sort compare l
+        List.rev l
         |> Vector.sparse_of_assoc_list ndet ) result
     |> Matrix.sparse_of_vector_array
   )