diff --git a/ChangeLog b/ChangeLog
index 7db8bd8..b29c3e6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -24,6 +24,7 @@ Version NEXT
 	parsecheck: init all fields in testcase results
 	SConstruct: declare CPP constant SIZEOF_LONG
 	randomcheck: use SIZEOF_LONG for grabing highest bits from long()
+	randomcheck: print more fraction digits in report
 
 Version 2.8.1b29 - 24 Aug 2019
 	added scons command line argument without-fspscan=yes for building
diff --git a/tests/randomcheck.c b/tests/randomcheck.c
index cbdaee0..78b45ae 100644
--- a/tests/randomcheck.c
+++ b/tests/randomcheck.c
@@ -76,7 +76,7 @@ static void run_randomtest( unsigned short (*keygen)(void) )
     }
 }
 
-static void print_bitcount(void)
+static float print_bitcount(void)
 {
     int i;
     float worst;
@@ -87,13 +87,16 @@ static void print_bitcount(void)
 
     for(i=0;i<16;i++)
     {
+	float delta;
         ratio=(float)bitcount[i]/rounds;
-        if(fabs(ratio-0.5f)>worst)
-            worst=fabs(ratio-0.5f);
+	delta = fabs(ratio-0.5f);
+        if(delta > worst)
+            worst=delta;
         printf("%.2f ", ratio);
     }
-    printf("  Worst: %.3f\n", worst);
+    printf("  Worst: %.4f\n", worst);
     if(worst>MAX_WORST_ALLOWED) result++;
+    return worst;
 }