anchor.diff:      serverInfo
         |> KillAllProcesses
         |> fun si -> 
  -            si.Server.DetachDatabase(getDBName si, true)
  +            let dbName = getDBName si
  +            logfn "Detaching database %s on server %s." dbName (getServerName serverInfo)
  +            si.Server.DetachDatabase(dbName, true)
               si
   
   /// Attach a database  
  
positive.code: 
  /// Kills all Processes
  let KillAllProcesses serverInfo =
      serverInfo.Server.KillAllProcesses (getDBName serverInfo)
      serverInfo
  
  /// Detach 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
  