--- a/reports/extensions.st	Tue Apr 09 14:08:23 2013 +0200
+++ b/reports/extensions.st	Fri Apr 26 18:01:50 2013 +0200
@@ -32,9 +32,15 @@
     Note that the timeout is set only when running under
     report runner, interactive tools does not use it"
 
-    ^60"sec"
+    | method |
+    method := self class lookupMethodFor: testSelector.
+    method annotationsAt:#timeout: do:[:annotation|
+         ^annotation arguments first
+    ].
+    ^60"sec - default timeout"
 
     "Created: / 12-01-2012 / 17:48:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 26-04-2013 / 16:58:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !TestCase class methodsFor:'testing'!
@@ -57,4 +63,4 @@
 
 extensionsVersion_CVS
     ^ '$Header$'
-! !
\ No newline at end of file
+! !