diff --git a/tests/bugs/xde/bug23047_1 b/tests/bugs/xde/bug23047_1
index a7b7cb3ff6..885c26b0dc 100755
--- a/tests/bugs/xde/bug23047_1
+++ b/tests/bugs/xde/bug23047_1
@@ -21,14 +21,13 @@ QARebuild Xdump
 
 set xd [Xdump D]
 
-set FreeShapes 0
-
 regexp {Free Shapes: ([-0-9.+eE]+)} $xd full FreeShapes
 puts "FreeShapes=${FreeShapes}"
 
-if { ${FreeShapes} == 1 } {
-   puts "OK ${BugNumber}"
-} else {
+if { ${FreeShapes} != 1 } {
    puts "Faulty ${BugNumber}"
+} else {
+   puts "OK ${BugNumber}"
 }
 
+
diff --git a/tests/bugs/xde/bug23047_2 b/tests/bugs/xde/bug23047_2
index 0ebceda365..ee06109a15 100755
--- a/tests/bugs/xde/bug23047_2
+++ b/tests/bugs/xde/bug23047_2
@@ -1,3 +1,5 @@
+puts "TODO ?OCC23047 ALL: Tcl Exception: can't read"
+puts "TODO ?OCC23047 ALL: TEST INCOMPLETE"
 puts "================"
 puts "OCC23047"
 puts "================"
@@ -20,14 +22,14 @@ QARebuild Xdump
 
 set xd [Xdump D]
 
-set FreeShapes 0
 
 regexp {Free Shapes: ([-0-9.+eE]+)} $xd full FreeShapes
 puts "FreeShapes=${FreeShapes}"
 
-if { ${FreeShapes} == 0 } {
-   puts "OK ${BugNumber}"
-} else {
+if { ${FreeShapes} != 0 } {
    puts "Faulty ${BugNumber}"
+} else {
+   puts "OK ${BugNumber}"   
 }
 
+