diff --git a/.gitattributes b/.gitattributes
index 14eef66349..b02e020986 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -6132,6 +6132,7 @@ tests/webtbs/tw4038.pp svneol=native#text/plain
 tests/webtbs/tw4043.pp svneol=native#text/plain
 tests/webtbs/tw4055.pp svneol=native#text/plain
 tests/webtbs/tw4058.pp svneol=native#text/plain
+tests/webtbs/tw4068.pp svneol=native#text/plain
 tests/webtbs/tw4078.pp svneol=native#text/plain
 tests/webtbs/tw4089.pp svneol=native#text/plain
 tests/webtbs/tw4093.pp svneol=native#text/plain
diff --git a/tests/webtbs/tw3540.pp b/tests/webtbs/tw3540.pp
index 4af0d758c7..aeadaaeb0f 100644
--- a/tests/webtbs/tw3540.pp
+++ b/tests/webtbs/tw3540.pp
@@ -1,3 +1,4 @@
+{ %target=win32 }
 { %norun }
 { %cpu=i386 }
 { %opt=-s -Amasm -TWin32 -Rintel }
diff --git a/tests/webtbs/tw3814.pp b/tests/webtbs/tw3814.pp
index f88ca0edd4..965eb355b7 100644
--- a/tests/webtbs/tw3814.pp
+++ b/tests/webtbs/tw3814.pp
@@ -42,7 +42,7 @@ begin
   WriteLn('Starting MyThread.Execute');
   repeat
     // sleep(500);
-    if worker.count<10 then
+    if worker.counter<10 then
       Synchronize(worker.count);
   until Terminated;
   WriteLn('Ending MyThread.Execute');
diff --git a/tests/webtbs/tw3970.pp b/tests/webtbs/tw3970.pp
index 501095ba91..b10c569990 100644
--- a/tests/webtbs/tw3970.pp
+++ b/tests/webtbs/tw3970.pp
@@ -13,7 +13,13 @@ var
    s: ShortString;
 
 begin
-     Assign (f, 'test.dat');
+     Assign (f, 'tw3970.tmp');
+     Rewrite (f);
+     writeln(f,'1');
+     writeln(f,'2');
+     close(f);
+
+     Assign (f, 'tw3970.tmp');
      Reset (f);
 
      ReadLn (f, i);
diff --git a/tests/webtbs/tw3977.pp b/tests/webtbs/tw3977.pp
index 4ffe1272da..4d534c3ca9 100644
--- a/tests/webtbs/tw3977.pp
+++ b/tests/webtbs/tw3977.pp
@@ -3,8 +3,14 @@
 { e-mail: lqs@users.sf.net }
 var
   n:integer;
+  f : text;
 begin
-  assign(input,'tw3977.txt');
+  assign(f,'tw3977.tmp');
+  rewrite(f);
+  write(f,'1');
+  close(f);
+
+  assign(input,'tw3977.tmp');
   reset(input);
   readln(n);
   close(output);
diff --git a/tests/webtbs/tw4038.pp b/tests/webtbs/tw4038.pp
index 04de917bba..65b89ae143 100644
--- a/tests/webtbs/tw4038.pp
+++ b/tests/webtbs/tw4038.pp
@@ -3,10 +3,16 @@
 { e-mail: windowze2000@yahoo.es }
 uses sysutils;
 var b: byte;
+    s : string;
 begin
-  writeln(executeprocess('echo','works1 works2 works3'));
-  writeln(executeprocess('echo','works1 works2 works3'));
+{$ifdef unix}
+  s:='/bin/echo';
+{$else}
+  s:='echo';
+{$endif}
+  writeln(executeprocess(s,'works1 works2 works3'));
+  writeln(executeprocess(s,'works1 works2 works3'));
   writeln;
   for b:=1 to 2 do
-    writeln(executeprocess('echo','fails1 fails2 fails3'));
+    writeln(executeprocess(s,'fails1 fails2 fails3'));
 end.
diff --git a/tests/webtbs/tw4068.pp b/tests/webtbs/tw4068.pp
new file mode 100755
index 0000000000..7a40338001
--- /dev/null
+++ b/tests/webtbs/tw4068.pp
@@ -0,0 +1,19 @@
+{ %opt=-Sen }
+
+{ Source provided for Free Pascal Bug Report 4068 }
+{ Submitted by "David Butler" on  2005-06-12 }
+{ e-mail: djbutler@gmail.com }
+
+{$mode delphi}
+
+function test: boolean;
+var A, B : AnsiChar;
+begin
+  A := '1';
+  B := '2';
+  Result := ('0' in [A..B]);
+end;
+
+begin
+  test;
+end.
diff --git a/tests/webtbs/tw4173.pp b/tests/webtbs/tw4173.pp
index cedd5ff791..c95ae7c0c7 100755
--- a/tests/webtbs/tw4173.pp
+++ b/tests/webtbs/tw4173.pp
@@ -8,6 +8,8 @@
 }
 
 
+{$inline on}
+
 {$define nok} { if this is defined, the operator with problem is compiled }
 { $define ok}  { if this is defined, the operator without problem is compiled }
 
diff --git a/tests/webtbs/tw4202.pp b/tests/webtbs/tw4202.pp
index 7b5bfd5237..878ff183dc 100755
--- a/tests/webtbs/tw4202.pp
+++ b/tests/webtbs/tw4202.pp
@@ -1,3 +1,5 @@
+{$mode delphi}
+
 type
   XTask   = type Pointer;
   XInt4   = Integer;