anchor.diff:                  | NotCompiled (info, _) | NotGenerated (_, _, info, _) ->
                       this.CompileCtor(info, false, expr, typ, ctor, args)
           | CustomTypeMember ct ->  
  -            let inl = this.GetCustomTypeConstructorInline(ct, ctor)
  -            Substitution(args |> List.map this.TransformExpression).TransformExpression(inl)
  +            try
  +                let inl = this.GetCustomTypeConstructorInline(ct, ctor)
  +                Substitution(args |> List.map this.TransformExpression).TransformExpression(inl)
  +            with _ ->
  +                this.Error(SourceError "Failed to translate compiler generated constructor")
           | LookupMemberError err ->
               comp.AddError (currentSourcePos, err)
               Application(errorPlaceholder, args |> List.map this.TransformExpression, false, None)
  
positive.code:                 this.AddDependency(M.ConstructorNode (comp.FindProxied typ.Entity, rctor))
              this.TransformCtor(typ, rctor, fields)
          | _ ->
              let inl = this.GetCustomTypeConstructorInline(comp.GetCustomType typ.Entity, emptyConstructor)
              Substitution(fields |> List.map this.TransformExpression).TransformExpression(inl)
  
      override this.TransformNewUnionCase(typ, case, args) = 
          let t = typ.Entity
  
negative.code:                     | _ ->
                          this.Error(SourceError ("Could not find item of union case: " + fN))        
              else 
                  this.Error(SourceError ("Unrecognized F# compiler generated method for union case: " + me.MethodName))    
          | _ -> this.Error(SourceError ("Unrecognized F# compiler generated method: " + me.MethodName))
       
      member this.CompileMethod(info, expr, typ, meth) =
          currentNode <- M.MethodNode(typ, meth)
  