puts "========"
puts "OCC738"
puts "========"
puts ""
##################################
##The GUIDs in XCAFDoc have incorrect format.
##################################

pload QAcommands

if [catch { OCC738_ShapeRef }] then {
  puts "Faulty OCC738"
} else {
  puts "OCC738 OK"
}