diff --git a/changelog b/changelog
index fcc83f5..89d4d0f 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20090620 tpd src/axiom-website/patches.html 20090620.07.tpd.patch
+20090620 tpd src/input/numbers.input fix random zero failure
 20090620 tpd src/axiom-website/patches.html 20090620.06.tpd.patch
 20090620 tpd books/bookvol10.4 RSETGCD +-> conversion
 20090620 tpd src/axiom-website/patches.html 20090620.05.tpd.patch
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index 01504c5..d00db62 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -1611,5 +1611,7 @@ bookvol10.4 RECOP +-> conversion<br/>
 bookvol10.4 ODERED +-> conversion<br/>
 <a href="patches/20090620.06.tpd.patch">20090620.06.tpd.patch</a>
 bookvol10.4 RSETGCD +-> conversion<br/>
+<a href="patches/20090620.07.tpd.patch">20090620.07.tpd.patch</a>
+src/input/numbers.input fix random zero failure<br/>
  </body>
 </html>
diff --git a/src/input/numbers.input.pamphlet b/src/input/numbers.input.pamphlet
index e197310..a64975e 100644
--- a/src/input/numbers.input.pamphlet
+++ b/src/input/numbers.input.pamphlet
@@ -262,7 +262,7 @@ definingPolynomial()$F49
 --E 22
 
 --S 23 of 76
-e := random()$F49
+e := random()$F49 ; while e = 0 repeat e := random()$F49 ; e
 --R 
 --R
 --I   (4)  4%A + 3