--- gforth/contrib/divspeed.fs	2006/12/31 10:24:51	1.3
+++ gforth/contrib/divspeed.fs	2007/02/08 14:07:31	1.4
@@ -30,7 +30,7 @@
 
 1 31 lshift 1- constant  DIVIDEND
 DIVIDEND negate s>d 2constant D_DIVIDEND
-1000000     constant  N
+10000000     constant  N
 
 \ Some helpful macros
 variable xt