Intersection shell-plane gives a disconnected set of edges

The result section has a break, so we cannot create a wire from the section
edges. The script to reproduce:

restore shell sh
restore face f
bsection sec sh f -a
checksection sec

The command checksection gives 4 vertices but for the correct result it should
give only 2 vertices.