set TheFileName shading_wrongshape_022.brep set bug_cross "OCC22687" set nbcross(All) 2 if { [string compare $command "shading"] != 0 } { }