--- /dev/null
+puts "================"
+puts "OCC22820"
+puts "================"
+puts ""
+#######################################################################################
+# OCCT IGES writer loses plane information
+######################################################################################
+
+pload XDE
+
+box b 1 1 1
+set b_info [dump b]
+if { [regexp BSplineSurface ${b_info}] } {
+ puts "Error in dump b"
+}
+
+brepiges b 0
+igesbrep . bb *
+
+set types_info [listtypes]
+puts "types_info=${types_info}"
+if { [regexp BSplineSurface ${types_info}] } {
+ puts "Error in listtypes"
+}
+
+igesbrep . bb *
+set bb_info [dump bb]
+if { [regexp BSplineSurface ${bb_info}] } {
+ puts "Error in dump bb"
+}