--- a/Integer.st	Sat Aug 31 10:37:33 2019 +0200
+++ b/Integer.st	Sat Aug 31 11:48:23 2019 +0200
@@ -3641,6 +3641,8 @@
      (10 binomialCoefficient:5)
      (100 binomialCoefficient:5)
      (1000 binomialCoefficient:5)
+     (100000 binomialCoefficient:100000)
+     (0 binomialCoefficient:0)
 
      TestCase assert: (10 binomialCoefficient:5) = (10 factorial / (5 factorial * 5 factorial))
      TestCase assert: (100 binomialCoefficient:78) = (100 factorial / (78 factorial * (100-78) factorial))
@@ -5471,7 +5473,10 @@
     ].
     firstFewPrimes do:[:p |
         p > limit ifTrue:[^ true].
-        (self \\ p) == 0 ifTrue:[ ^ false ].
+        (self \\ p) == 0 ifTrue:[
+            "/ Transcript showCR:'divides by ',p asString.
+            ^ false 
+        ].
     ].
 
     PrimeNumberGenerator notNil ifTrue:[    "from exept:libcrypt"
@@ -5481,8 +5486,11 @@
 
     "/ Not absolutely correct, but was broken much worse before.
     limit := self integerSqrt.
-    (firstFewPrimes last+2) to:limit by:2 do:[:i |
-        (self \\ i) == 0 ifTrue:[ ^ false ].
+    (firstFewPrimes last+2) to:limit by:2 do:[:p |
+        (self \\ p) == 0 ifTrue:[ 
+            "/ Transcript showCR:'divides by ',p asString.
+            ^ false 
+        ].
     ].
     ^ true