--- /dev/null
+puts "TODO OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
+
+puts "================"
+puts "OCC22770"
+puts "================"
+puts ""
+#######################################################################################
+# Improve comman sewing in DRAW
+######################################################################################
+
+set BugNumber OCC22770
+
+catch { pload XDE }
+
+# Create a new document and set UndoLimit
+
+# NewDocument D MDTV-XCAF
+# UndoLimit D 100
+
+# Open a transaction
+# NewCommand D
+
+restore [locate_data_file 22770-tramp.brep] a
+restore [locate_data_file 22770-trans.brep] b
+sewing result a b -p
+
+set square 1.8847e+07
+
+set nb_v_good 796
+set nb_e_good 1103
+set nb_w_good 273
+set nb_f_good 259
+set nb_sh_good 5
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 2437
+
+set 3dviewer 0