DRAW Exception after meshing bcut solids

This gives an exception in DRAW:

pload ALL
psphere s1 1
psphere s2 1
ttranslate s2 0 1 1
bcut r s1 s2
checkshape r
incmesh r 0.01
writestl r sphere.stl
vinit
meshfromstl mr sphere.stl
vdisplay mr

Note, that if you change the initial spheres to be larger like:

psphere s1 100
psphere s2 100
ttranslate s2 0 100 100

and increase the value for the deflection things work as expected.