IGES reader produces too small edge covered by its vertices

igesbrep [locate_data_file bug26671.igs] r *

# check that all edges have enough length
foreach e [explode r e] {
  if {[lsearch [dump $e] degenerated] == -1 &&
      [validrange $e] == "edge has no valid range"} {
    regexp {Mass : *([0-9\-+.eE]+)} [lprops $e] dummy len
    regexp {Tolerance MAX=([0-9\-+.eE]+)} [tolerance $e] dummy tol
    puts "Error: edge $e (lenth=$len, tolerance=$tol) is too small"
  }
}