diff --git a/dynare++/kord/first_order.cweb b/dynare++/kord/first_order.cweb
index e3b9153ec66d1613e43ddaf32b08d1da244bf312..099708e6bd1abc2bdf92edd0a22d3066e663f292 100644
--- a/dynare++/kord/first_order.cweb
+++ b/dynare++/kord/first_order.cweb
@@ -22,7 +22,7 @@ to select (return true) the pairs for which $\alpha<\beta$.
 @<|order_eigs| function code@>=
 lapack_int order_eigs(const double* alphar, const double* alphai, const double* beta)
 {
-	return (*alphar * *alphar + *alphai * *alphai < *beta * *beta * qz_criterium);
+	return (*alphar * *alphar + *alphai * *alphai < *beta * *beta * qz_criterium * qz_criterium);
 }