Index: TECH/ClassInfo/ClassDefinition.cls.xml
===================================================================
diff -u -r1520 -r2202
--- TECH/ClassInfo/ClassDefinition.cls.xml	(.../ClassDefinition.cls.xml)	(revision 1520)
+++ TECH/ClassInfo/ClassDefinition.cls.xml	(.../ClassDefinition.cls.xml)	(revision 2202)
@@ -100,6 +100,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefMethod">
+<FormalSpec>MethodName:%String</FormalSpec>
+<ReturnType>TECH.ClassInfo.MethodDefinition</ReturnType>
+<Implementation><![CDATA[
+	Set Method = ""	
+	Set MethodIt = ..GeefMethods()
+	While ('$IsObject(Method) & MethodIt.HasNext()){
+		Set CurrentMethod = MethodIt.Next()
+		If (CurrentMethod.GeefNaam() = MethodName){
+			Set Method = CurrentMethod	
+		}
+	}
+	Quit Method
+]]></Implementation>
+</Method>
+
 <Method name="GeefMethods">
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[