diff --git a/bugs/bug0131.pp b/bugs/bug0131.pp
new file mode 100644
index 0000000000..5ee3bd8044
--- /dev/null
+++ b/bugs/bug0131.pp
@@ -0,0 +1,11 @@
+type TA = Array[1..2,1..2,1..2,1..2,1..2,1..2,1..2,1..2,1..2,1..2] of Byte;
+
+var v,w: ta;
+    e: longint;
+
+Begin
+  e :=1;
+  v[e,e,e,e,e,e,e,e,e,e] :=1;
+  w[e,e,e,e,e,e,e,e,e,v[e,e,e,e,e,e,e,e,e,e]] := v [e,e,e,e,e,e,e,e,e,e];
+  writeln(w[e,e,e,e,e,e,e,e,e,e])
+end.
diff --git a/bugs/bug0132.pp b/bugs/bug0132.pp
new file mode 100644
index 0000000000..754672b492
--- /dev/null
+++ b/bugs/bug0132.pp
@@ -0,0 +1,12 @@
+type
+
+  p=^p;
+  p2 = ^p2;
+
+  var a:p;
+      a2:p2;
+
+  begin
+  	a:=a2;
+        a:=a2^;
+  end.
\ No newline at end of file
diff --git a/bugs/bug0133.pp b/bugs/bug0133.pp
new file mode 100644
index 0000000000..5a6edb52ca
--- /dev/null
+++ b/bugs/bug0133.pp
@@ -0,0 +1,14 @@
+type
+  t=object
+     f : longint;
+     procedure p;
+     g : longint;  { Not allowed in BP7 }
+  end;
+
+  procedure t.p;
+  begin
+  end;
+
+  begin
+  end.
+
diff --git a/bugs/readme.txt b/bugs/readme.txt
index b2ad1b8441..e17d39fdb5 100644
--- a/bugs/readme.txt
+++ b/bugs/readme.txt
@@ -177,4 +177,6 @@ bug0124.pp   problem with -Rintel switch and indexing (whatever the order)
 bug0125.pp   wrong colors with DOS CRT unit
 bug0127.pp   problem with cdecl in implementation part
 bug0130.pp   in [..#255] problem
-
+bug0131.pp   internal error 10 with highdimension arrays
+bug0132.pp   segmentation fault with type loop
+bug0133.pp   object type declaration not 100% compatibile with TP7