zapsmall (PR#7755)

Full_Name: Paul Vos
Version: 2.0.1
OS: windows XP
Submission from: (NULL) (150.216.148.20)

zapsmall(.3-.2-.1,digits=7)

[1] -2.775558e-17

This should be zero.  By changing the condition
if (mx > 0)
in zapsmall to 
if (mx > 1)
we get

zapsmall(.3-.2-.1,digits=7)

[1] 0