diff --git a/bugs/bug0119.pp b/bugs/bug0119.pp
new file mode 100644
index 0000000000..e0a55dfd9d
--- /dev/null
+++ b/bugs/bug0119.pp
@@ -0,0 +1,44 @@
+program ObjTest;
+   uses crt;
+
+   type
+     ObjectA = object
+       procedure Greetings;
+       procedure DoIt;
+     end;
+     ObjectB = object (ObjectA)
+       procedure Greetings;
+       procedure DoIt;
+     end;
+
+   procedure ObjectA.Greetings;
+   begin
+     writeln('  A');
+   end;
+   procedure ObjectA.DoIt;
+   begin
+     writeln('A ');
+     Greetings;
+   end;
+
+   procedure ObjectB.Greetings;
+   begin
+     writeln('  B');
+   end;
+   procedure ObjectB.DoIt;
+   begin
+     writeln('B');
+     Greetings;
+   end;
+
+   var
+     A: ObjectA;
+     B: ObjectB;
+
+   begin
+     A.DoIt;
+     B.DoIt;
+     writeln; writeln('Now doing it directly:');
+     A.Greetings;
+     B.Greetings;
+   end.
\ No newline at end of file
diff --git a/bugs/readme.txt b/bugs/readme.txt
index 2e12f03987..957dafda9c 100644
--- a/bugs/readme.txt
+++ b/bugs/readme.txt
@@ -164,4 +164,4 @@ bug0115.pp   missing writeln for comp data type
 bug0117.pp   internalerror 17 (and why is there an automatic float 
               conversion?)
 bug0118.pp   Procedural vars cannot be assigned nil ?
- 
\ No newline at end of file
+bug0119.pp   problem with methods