anchor.diff:      let logger = LogManager.GetLogger("VirtualBox")
   
       let createVM name =
  -        let couldCreate = CLI.runCmd @@ sprintf "VBoxManage createvm --name '%s' --register" name
  +        let couldCreate = CLI.runCmd @@ sprintf "sudo VBoxManage createvm --name '%s' --register" name
           match couldCreate with
           | CLI.Success _ -> ()
           | CLI.Failure (msg,_) -> logger.Fatal(sprintf "Could not create VM: %s" msg)
  
positive.code:         logger.Info(sprintf "Created VM %s" name)
  
      let deleteVM name =
          let couldDelete = CLI.runCmd @@ sprintf "VBoxManage unregistervm '%s' --delete" name
          match couldDelete with
          | CLI.Success _ -> ()
          | CLI.Failure (msg,_) -> logger.Error(sprintf "Could not delete VM: %s" msg)
  
negative.code:     let mountSpinRite name (partition:Partition) =
          let spinRiteFile = acquireSpinriteISO partition
  
          CLI.runCmd @@ sprintf "sudo VBoxManage storagectl '%s' --name 'SATA Controller' --add sata" name
          CLI.runCmd @@ sprintf "sudo VBoxManage storageattach '%s' --storagectl 'SATA Controller' --port 0 --device 0 --type dvddrive --medium %s" name spinRiteFile
  
      let attachDrives name (drives:Drive list) =
          let baseIndex = 1  // index 0 is the SpinRite boot disk
  