Index: TECH/ClassUtils.cls.xml =================================================================== diff -u -r2217 -r2218 --- TECH/ClassUtils.cls.xml (.../ClassUtils.cls.xml) (revision 2217) +++ TECH/ClassUtils.cls.xml (.../ClassUtils.cls.xml) (revision 2218) @@ -20,7 +20,11 @@ Set Class = ##class(TECH.ClassInfo.ClassDefinition).%New(ClassName) If ($IsObject(Class)){ Set Method = Class.GeefMethod(MethodName) - Set DefaultArgs = ##class(%Dictionary.CompiledMethod).%OpenId(ClassName_"||"_MethodName).DefaultArgs + Set DefaultArgs = "" + Set CompiledMethod = ##class(%Dictionary.CompiledMethod).%OpenId(ClassName_"||"_MethodName) + If ($IsObject(CompiledMethod)){ + Set DefaultArgs = CompiledMethod.DefaultArgs + } If ($IsObject(Method)){ Set CurrentParameter = 1 Set ParameterIt = Method.GeefParameters()