diff --git a/tests/bugs/fclasses/bug309 b/tests/bugs/fclasses/bug309
index 84e07b2b64..6ea96bebe5 100644
--- a/tests/bugs/fclasses/bug309
+++ b/tests/bugs/fclasses/bug309
@@ -1,3 +1,5 @@
+puts "TODO ?OCC12345 ALL: OCC309: ERROR 2"
+
 puts "================"
 puts "OCC309"
 puts "================"
@@ -21,8 +23,12 @@ if { ${ll} != 2 } {
 	set res1 [ string range $result1 1 [expr [string length $result1] -3 ] ]
 	set res2 [ string range $result2 1 [expr [string length $result2] -3 ] ]
     } else {
-	set res1 [ string range $result1 1 [expr [string length $result1] -2 ] ]
-	set res2 [ string range $result1 1 [expr [string length $result2] -8 ] ]
+	set info [pwd]
+	set CurrentDirectory [string range $info 2 end]
+	set info2 [file dirname ${CurrentDirectory}]
+	set UpTrek [file dirname ${CurrentDirectory}]
+	set res1 [ string range $result1 3 [expr [string length $result1] -2 ] ]
+	set res2 [ string range $result2 3 [expr [string length $result2] -2 ] ]
     }
     if {[string compare ${res1} "${CurrentDirectory}"] == 0} {
 	puts "OCC309: OK 1"
diff --git a/tests/bugs/modalg/bug770 b/tests/bugs/modalg/bug770
index 7abd3b3e11..a16f240721 100755
--- a/tests/bugs/modalg/bug770
+++ b/tests/bugs/modalg/bug770
@@ -1,6 +1,6 @@
 puts "TODO ?OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
 puts "TODO ?OCC12345 ALL: Error : The square of result shape is"
-puts "TODO ?OCC12345 ALL: TEST ICOMPLETE"
+puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
 
 puts "========"
 puts "OCC770"
diff --git a/tests/bugs/moddata/bug10603 b/tests/bugs/moddata/bug10603
index 5b3f7614e7..cd57e82de4 100644
--- a/tests/bugs/moddata/bug10603
+++ b/tests/bugs/moddata/bug10603
@@ -1,3 +1,5 @@
+puts "TODO ?OCC10603 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO ?OCC10603 ALL: Error : Result shape is WRONG because it must contains"
 puts "============"
 puts "OCC10603"
 puts "============"
diff --git a/tests/bugs/vis/buc60738 b/tests/bugs/vis/buc60738
index c175349f5e..0c2d154952 100755
--- a/tests/bugs/vis/buc60738
+++ b/tests/bugs/vis/buc60738
@@ -3,8 +3,8 @@
 ###    set os $env(os_type)
 ###}
 ###if { [string compare $os "windows"] == 0 } {
-###    puts "TODO OCC12345 ALL: Error : Colors are not equal in default coordinate and in the near coordinates too"
-###    puts "TODO OCC12345 ALL: Error : The style of edge is NOT dash"
+puts "TODO ?OCC12345 ALL: Error : Colors are not equal in default coordinate and in the near coordinates too"
+puts "TODO ?OCC12345 ALL: Error : The style of edge is NOT dash"
 ###	by apn: Image is not correct on WNT
 ###}
 
diff --git a/tests/bugs/vis/buc60915 b/tests/bugs/vis/buc60915
index 12d64d1d68..94d02d05de 100755
--- a/tests/bugs/vis/buc60915
+++ b/tests/bugs/vis/buc60915
@@ -1,11 +1,7 @@
-if { [array get env os_type] != "" } {
-    set os $env(os_type)
-}
-if { [string compare $os "windows"] != 0 } {
-   puts "TODO OCC12345 ALL: An exception was caught"
-   puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
-   puts "TODO OCC12345 ALL: TEST INCOMPLETE"
-}
+puts "TODO ?OCC12345 ALL: An exception was caught"
+puts "TODO ?OCC12345 ALL: Error : Colors are not equal in default coordinate and in the near coordinates too"
+puts "TODO ?OCC12345 ALL: \\*\\* Exception \\*\\*.*"
+puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
 
 puts "==========="
 puts "BUC60915"
diff --git a/tests/bugs/vis/bug137_2 b/tests/bugs/vis/bug137_2
index 4c49b73fc9..0e9c488e75 100755
--- a/tests/bugs/vis/bug137_2
+++ b/tests/bugs/vis/bug137_2
@@ -1,3 +1,5 @@
+puts "TODO ?OCC12345 ALL: Error : Colors are not equal in default coordinate and in the near coordinates too"
+
 puts "========================"
 puts "OCC137"
 puts "========================"                                                                                         
diff --git a/tests/bugs/vis/bug137_3 b/tests/bugs/vis/bug137_3
index 997ef5caf0..2f565a8a1e 100755
--- a/tests/bugs/vis/bug137_3
+++ b/tests/bugs/vis/bug137_3
@@ -1,3 +1,5 @@
+puts "TODO ?OCC12345 ALL: Error : Colors are not equal in default coordinate and in the near coordinates too"
+
 puts "========================"
 puts "OCC137"
 puts "========================"                                                                                         
diff --git a/tests/bugs/vis/bug137_4 b/tests/bugs/vis/bug137_4
index 1070ba6381..48fe476ce7 100755
--- a/tests/bugs/vis/bug137_4
+++ b/tests/bugs/vis/bug137_4
@@ -1,3 +1,5 @@
+puts "TODO ?OCC12345 ALL: Error : Colors are not equal in default coordinate and in the near coordinates too"
+
 puts "========================"
 puts "OCC137"
 puts "========================"                                                                                         
diff --git a/tests/bugs/vis/bug137_5 b/tests/bugs/vis/bug137_5
index 5ee93f7d31..74139b32a9 100755
--- a/tests/bugs/vis/bug137_5
+++ b/tests/bugs/vis/bug137_5
@@ -1,3 +1,5 @@
+puts "TODO ?OCC12345 ALL: Error : Colors are not equal in default coordinate and in the near coordinates too"
+
 puts "========================"
 puts "OCC137"
 puts "========================"                                                                                         
diff --git a/tests/bugs/vis/bug74 b/tests/bugs/vis/bug74
index 212b0786f0..2513852004 100644
--- a/tests/bugs/vis/bug74
+++ b/tests/bugs/vis/bug74
@@ -1,6 +1,7 @@
 puts "TODO ?OCC12345 ALL: An exception was caught"
 puts "TODO ?OCC12345 ALL: \\*\\* Exception \\*\\*.*"
 puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
+puts "TODO ?OCC12345 ALL: Colors are not equal in default coordinate and in the near coordinates too"
 
 puts "================"
 puts "OCC74"