--- a/CompiledCodeObjectTests.st	Thu Aug 11 09:14:29 2016 +0100
+++ b/CompiledCodeObjectTests.st	Fri Aug 19 19:13:06 2016 +0100
@@ -193,6 +193,9 @@
     self assert: section size == 1.
     self assert: ((1 to: section size) allSatisfy:[:i | (section at: i) isNil ]).
 
+    method code: (object sectionNamed: '.text') address.
+    self assert: method codeObject address == object address.
+
     "Created: / 24-01-2016 / 20:49:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !