--- a/extensions.st	Wed Jul 23 13:11:21 2014 +0200
+++ b/extensions.st	Tue Jul 29 11:15:10 2014 +0200
@@ -23,6 +23,16 @@
     "Created: / 03-04-2012 / 17:58:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!ExecutableFunction methodsFor:'queries'!
+
+isMocked
+    "Return true, if the method has been mocked (by means of MessageTracer>>mockMethod:do:"
+
+    ^ false
+
+    "Created: / 29-07-2014 / 09:48:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !UserPreferences methodsFor:'accessing-changes & history'!
 
 historyManagerAllowEditOfHistory
@@ -153,6 +163,6 @@
 !stx_libbasic3 class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/extensions.st,v 1.16 2014-05-16 13:08:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/extensions.st,v 1.17 2014-07-29 09:15:10 vrany Exp $'
 ! !