anchor.diff:      |> XmppServerSetup.addXmppServerPlugin
       |> XmppServerSetup.addPerUserService
       |> XmppServerSetup.addDiscoPlugin
  -    |> XmppServerSetup.addIMPlugin 
  +    |> XmppServerSetup.addToAllStreams (addVCard (GetVCardConfig()))
  +    |> XmppServerSetup.addIMPlugin
           { ImServerConfig.Default with RosterStore = rosterStore }
       |> XmppServerSetup.addMessageArchivingPlugin 
           { MessageArchivingServerPluginConfig.Default with MessageArchiveStore = archiveStore }
  
positive.code:       | _ -> failwith "you cannot have multiple message archives with read access!"
      ArchivingStore.Combine(writeOnlyStores, normalStore)
  
  let CreateXmppSetup deleteDatabase (config:ConfigFile) =
      let rosterStore, archiveStore =
        try
  
negative.code: open Yaaf.Xmpp.IM.Server
  open Yaaf.Xmpp.IM.Sql
  
  open Yaaf.Xmpp.VCard.Server
  open Yaaf.Xmpp.MessageArchiving.Server
  open Yaaf.Xmpp.MessageArchiveManager.Sql
  open Yaaf.Xmpp.MessageArchiveManager.IMAP
  