hate that 1e7 factor

git-svn-id: http://svn.code.sf.net/p/keepright/code@722 4e67cf90-0d29-4caa-83dc-599f2b650fb7