Index: Tools/Mock/TestDoubleCreator.cls.xml
===================================================================
diff -u -r2843 -r2988
--- Tools/Mock/TestDoubleCreator.cls.xml	(.../TestDoubleCreator.cls.xml)	(revision 2843)
+++ Tools/Mock/TestDoubleCreator.cls.xml	(.../TestDoubleCreator.cls.xml)	(revision 2988)
@@ -45,15 +45,39 @@
 		Do:..HasToClearMethods() ..GeneratedClass.Methods.Clear()
 		
 		Do ..CreateInstanceMethod()
-		set itMethods = ##class(TECH.ListIterator).%New(..Class.Methods)
+		
+		Do ..GenerateMethods()
+
+		Do ..SaveGeneratedClass()
+		do ..ExportToSVN(..GeneratedClass.Name)
+		do ..svnHelper.CompileImportedSourceCode()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GenerateMethods">
+<Private>1</Private>
+<Implementation><![CDATA[
+	set ConvertedMethods = ##class(%ArrayOfDataTypes).%New()
+	
+	set ClassIterator = ##class(TECH.ListIterator).%New(##class(TECH.ClassUtils).GetSuperClasses(..Class.Name))
+	while ClassIterator.HasNext() {
+		#dim ClassName As %String = ClassIterator.Next()
+		
+		continue:$$$StartsWith(ClassName,"%")
+		
+		set Class = ##class(%Dictionary.ClassDefinition).%OpenId(ClassName)	
+		set itMethods = ##class(TECH.ListIterator).%New(Class.Methods)
 		while itMethods.HasNext() {
 			#dim Method As %Dictionary.MethodDefinition = itMethods.Next()
+			
+			continue:ConvertedMethods.IsDefined(Method.Name)
 			continue:..SkipMethod(Method)
+			
 			do ..CreateMethod(Method)
+			
+			do ConvertedMethods.SetAt(Method.Name,Method.Name)
 		}
-		Do ..SaveGeneratedClass()
-		do ..ExportToSVN(..GeneratedClass.Name)
-		do ..svnHelper.CompileImportedSourceCode()
 	}
 ]]></Implementation>
 </Method>
@@ -74,7 +98,7 @@
 <FormalSpec>ClassName:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Dictionary.ClassDefinition</ReturnType>
-<Implementation><![CDATA[	Quit ##class(%Dictionary.ClassDefinition).%OpenId(ClassName)
+<Implementation><![CDATA[	Quit ##class(%Dictionary.CompiledClass).%OpenId(ClassName)
 ]]></Implementation>
 </Method>
 
@@ -85,10 +109,11 @@
 </Method>
 
 <Method name="SkipMethod">
-<Abstract>1</Abstract>
 <FormalSpec>Method:%Dictionary.MethodDefinition</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit $$$False
+]]></Implementation>
 </Method>
 
 <Method name="ExportToSVN">
@@ -129,7 +154,7 @@
 	set TestDoubleMethod.parent = ..GeneratedClass
 	set TestDoubleMethod.ReturnType = Method.ReturnType
 	set TestDoubleMethod.FormalSpec = Method.FormalSpec
-	set TestDoubleMethod.SequenceNumber=2
+	set TestDoubleMethod.SequenceNumber = 2
 	#dim Body As %String = ..GetMethodBody(TestDoubleMethod)
 	do TestDoubleMethod.Implementation.WriteLine(Body)
 	do TestDoubleMethod.%Save()