puts "TODO OCC12345 ALL: Faulty BUC60898: here is reading problem"

puts "==========="
puts "  BUC60898"
puts "==========="
puts ""

pload XDE

if [catch { igesbrep [locate_data_file $filedir/buc60898.igs] a *} result] { 
## rename to BUC60898.igs
    puts "Faulty BUC60898: here is reading problem"
} else {
    puts "BUC60898 OK"
    tpcompound a

    if [catch {sewing result 1e-7 a } catch_result] {
	puts "Faulty  BUC60898: function SEWING gives except"
    } else {
	puts " BUC60898 OK: function SEWING works without except"
    }
    set square 0
    set 2dviewer 0
}