Index: Tools/Mock/ArgumentMatchers/ExtendsMatcher.cls.xml
===================================================================
diff -u
--- Tools/Mock/ArgumentMatchers/ExtendsMatcher.cls.xml	(revision 0)
+++ Tools/Mock/ArgumentMatchers/ExtendsMatcher.cls.xml	(revision 3411)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Tools.Mock.ArgumentMatchers.ExtendsMatcher">
+<Super>TECH.RegisteredObject,Tools.Mock.ArgumentMatcher</Super>
+
+<Property name="VerwachtObject">
+<Type>%Base</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ClassName">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ClassName:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ClassName = ClassName
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Matches">
+<FormalSpec>VerwachtObject:%Base</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set ..VerwachtObject = VerwachtObject
+	
+	Quit VerwachtObject.%Extends(..ClassName)
+]]></Implementation>
+</Method>
+
+<Method name="OmschrijfMismatch">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..VerwachtObject _ " erft niet over van het type '" _ ..ClassName _ "'"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 3411 refers to a dead (removed) revision in file `Tools/Mock/ArgumentMatchers/TypeOfMatcher.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: Tools/Mock/ArgumentMatchers/TypeOfMatcher.cls.xml
===================================================================
diff -u -r3400 -r3411
--- Tools/Mock/ArgumentMatchers/TypeOfMatcher.cls.xml	(.../TypeOfMatcher.cls.xml)	(revision 3400)
+++ Tools/Mock/ArgumentMatchers/TypeOfMatcher.cls.xml	(.../IsAMatcher.cls.xml)	(revision 3411)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="Tools.Mock.ArgumentMatchers.TypeOfMatcher">
+<Class name="Tools.Mock.ArgumentMatchers.IsAMatcher">
 <Super>TECH.RegisteredObject,Tools.Mock.ArgumentMatcher</Super>
 
 <Property name="VerwachtObject">
Index: Tools/Test/Matchers.cls.xml
===================================================================
diff -u -r3400 -r3411
--- Tools/Test/Matchers.cls.xml	(.../Matchers.cls.xml)	(revision 3400)
+++ Tools/Test/Matchers.cls.xml	(.../Matchers.cls.xml)	(revision 3411)
@@ -51,12 +51,19 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TypeOf">
+<Method name="IsA">
 <FormalSpec>ClassName:%String</FormalSpec>
 <ReturnType>Tools.Mock.ArgumentMatcher</ReturnType>
-<Implementation><![CDATA[	Quit ##class(Tools.Mock.ArgumentMatchers.TypeOfMatcher).%New(ClassName)
+<Implementation><![CDATA[	Quit ##class(Tools.Mock.ArgumentMatchers.IsAMatcher).%New(ClassName)
 ]]></Implementation>
 </Method>
+
+<Method name="Extends">
+<FormalSpec>ClassName:%String</FormalSpec>
+<ReturnType>Tools.Mock.ArgumentMatcher</ReturnType>
+<Implementation><![CDATA[	Quit ##class(Tools.Mock.ArgumentMatchers.ExtendsMatcher).%New(ClassName)
+]]></Implementation>
+</Method>
 </Class>