puts "=========="
puts "OCC29888"
puts "=========="
puts ""
#########################################
# XCAFDoc_Editor::Expand() removes names
#########################################
pload ALL

XOpen [locate_data_file bug29888.xbf] D

set isBAD 1

if {[catch {XExpand D 0} result]} {
  set isBAD 0
}

if {$isBAD} {
  puts "Error: expand unexpandable shape type"
}

Close D