anchor.diff:  
   /// Kills all Processes
   let KillAllProcesses serverInfo =
  -    serverInfo.Server.KillAllProcesses (getDBName serverInfo)
  +    let dbName = getDBName serverInfo
  +    logfn "Killing all processes from database %s on server %s." dbName (getServerName serverInfo)
  +    serverInfo.Server.KillAllProcesses dbName
       serverInfo
   
   /// Detach a database        
  
positive.code:     serverInfo
        |> KillAllProcesses
        |> fun si -> 
              si.Server.DetachDatabase(getDBName si, true)
              si
  
  /// Attach a database  
  
negative.code:     let sc = new Collections.Specialized.StringCollection ()
      files |> Seq.iter (fun file -> sc.Add file |> ignore)
  
      let dbName = getDBName serverInfo
  
      logfn "Attaching database %s on server %s." dbName (getServerName serverInfo)
      serverInfo.Server.AttachDatabase(dbName,sc,attachOptions)
      serverInfo
  
  /// Creates a new db on the given server
  