anchor.diff:                for (KeyValue(key,(entityType,desc,_,schema))) in baseTypes.Force() do
                   // collection type, individuals type
                   let (ct,it) = baseCollectionTypes.Force().[key]
  -                
  +                let schemaType = getOrAddSchema schema
                   
                   ct.AddMembersDelayed( fun () -> 
                       // creation methods.
  
positive.code: 
                  let buildTableName = SchemaProjections.buildTableName >> caseInsensitivityCheck
                  let prop = ProvidedProperty(buildTableName(ct.Name),ct, GetterCode = fun args -> <@@ ((%%args.[0] : obj) :?> ISqlDataContext).CreateEntities(key) @@> )
                  let prop = ProvidedProperty(SchemaProjections.buildTableName(key),ct, GetterCode = fun args -> <@@ ((%%args.[0] : obj) :?> ISqlDataContext).CreateEntities(key) @@> )
                  prop.AddXmlDoc (sprintf "<summary>%s</summary>" desc)
                  schemaType.AddMember ct
                  schemaType.AddMember prop
  
negative.code:               let meth = ProvidedMethod ("GetDataContext", [ProvidedParameter("connectionString",typeof<string>);], 
                                                              serviceType, IsStaticMethod=true,
                                                              InvokeCode = (fun args ->
                                                                  let runtimeAssembly = config.ResolutionFolder
                                                                  <@@ SqlDataContext(rootTypeName, %%args.[0], dbVendor, resolutionPath, %%referencedAssemblyExpr, runtimeAssembly, owner, caseSensitivity) :> ISqlDataContext @@> ))
                        
                meth.AddXmlDoc "<summary>Returns an instance of the SQL Provider</summary>
                                <param name='connectionString'>The database connection string</param>"
  