diff --git a/Contrib/Piedmont/StevensStatistics/6-ContinuousProbabilityDistributions/6.5.13.pg b/Contrib/Piedmont/StevensStatistics/6-ContinuousProbabilityDistributions/6.5.13.pg
index e908baebdd..89991cf680 100644
--- a/Contrib/Piedmont/StevensStatistics/6-ContinuousProbabilityDistributions/6.5.13.pg
+++ b/Contrib/Piedmont/StevensStatistics/6-ContinuousProbabilityDistributions/6.5.13.pg
@@ -34,7 +34,7 @@ $p = 0.48;
 $q = 1 - $p;
 $mu = Compute($n*$p);
 $sigma = Compute(sqrt($n*$p*$q));
-$x = random(round(-3.5*$sigma + $mu), round(-2*$sigma+$mu));
+$x = random(round(-3.4*$sigma + $mu), round(-2*$sigma+$mu));
 
 $z = Compute(($x - $mu)/$sigma)->with(
     tolType => 'absolute',