diff --git a/src/Cluster.hs b/src/Cluster.hs
index bef7cb616b6ecc90d3e7a81aa209fc3436f9c8c4..5de0d8866cc741fe902a7eb4b4524fbfd7fff803 100644
--- a/src/Cluster.hs
+++ b/src/Cluster.hs
@@ -580,11 +580,11 @@ compDetailedCV nl =
         dsk_l = map Node.p_dsk nodes
         mem_cv = varianceCoeff mem_l
         dsk_cv = varianceCoeff dsk_l
-        n1_l = map (\n -> if Node.failN1 n then 1 else 0) nodes
-        n1_cv = varianceCoeff n1_l
+        n1_l = length $ filter Node.failN1 nodes
+        n1_score = (fromIntegral n1_l) / (fromIntegral $ length nodes)
         res_l = map Node.p_rem nodes
         res_cv = varianceCoeff res_l
-    in (mem_cv, dsk_cv, n1_cv, res_cv)
+    in (mem_cv, dsk_cv, n1_score, res_cv)
 
 -- | Compute the 'total' variance.
 compCV :: NodeList -> Double