diff --git a/tests/webtbs/tb1409.pp b/tests/webtbs/tw1409.pp
similarity index 100%
rename from tests/webtbs/tb1409.pp
rename to tests/webtbs/tw1409.pp
diff --git a/tests/webtbs/tb1412.pp b/tests/webtbs/tw1412.pp
similarity index 100%
rename from tests/webtbs/tb1412.pp
rename to tests/webtbs/tw1412.pp
diff --git a/tests/webtbs/tb1416.pp b/tests/webtbs/tw1416.pp
similarity index 100%
rename from tests/webtbs/tb1416.pp
rename to tests/webtbs/tw1416.pp
diff --git a/tests/webtbs/tb1445.pp b/tests/webtbs/tw1445.pp
similarity index 100%
rename from tests/webtbs/tb1445.pp
rename to tests/webtbs/tw1445.pp
diff --git a/tests/webtbs/tb1450.pp b/tests/webtbs/tw1450.pp
similarity index 100%
rename from tests/webtbs/tb1450.pp
rename to tests/webtbs/tw1450.pp
diff --git a/tests/webtbs/tb1451.pp b/tests/webtbs/tw1451.pp
similarity index 100%
rename from tests/webtbs/tb1451.pp
rename to tests/webtbs/tw1451.pp
diff --git a/tests/webtbs/tb1467.pp b/tests/webtbs/tw1467.pp
similarity index 100%
rename from tests/webtbs/tb1467.pp
rename to tests/webtbs/tw1467.pp
diff --git a/tests/webtbs/tw1470.pp b/tests/webtbs/tw1470.pp
new file mode 100644
index 0000000000..c59942be49
--- /dev/null
+++ b/tests/webtbs/tw1470.pp
@@ -0,0 +1,46 @@
+{$mode objfpc}
+
+function bbb (a1, a2: DWord): Boolean;
+begin
+        bbb := False;
+end;
+
+procedure a;
+var
+        i, j, k: DWord;
+
+begin
+        try
+                i := 0;
+                j := 1;
+
+                while (True) do
+                        begin
+                                k := 2;
+
+                                try
+                                        if (not bbb (i, j)) then
+                                                break; {this break generates an invalid label}
+
+                                        if (k = 2) then
+                                                k := 3;
+
+                                finally
+                                        k := 2;
+                                end;
+                        end;
+
+                for i := 1 to 20 do
+                        j := j + 1;
+
+                WriteLn (j);
+
+        finally
+                i := 0;
+                j := 1;
+        end;
+end;
+
+begin
+        a;
+end.