anchor.diff:                  let portIndex = i + baseIndex
                   let rawDirectory = "/tmp/rawDisks"
                   Directory.CreateDirectory(rawDirectory) |> ignore
  -                let filename = sprintf "%s.vmdk" @@ Path.Combine(rawDirectory, drive.device.Replace("/", "-"))
  +                let filename = sprintf "%s.vmdk" @@ Path.Combine(rawDirectory, drive.device.Replace("/", "_"))
   
                   let status = CLI.runCmd @@ sprintf "sudo VBoxManage internalcommands createrawvmdk -filename %s -rawdisk %s" filename drive.device
                   match status with
                   | CLI.Failure (msg,_) -> logger.Fatal(sprintf "Could not attach raw disk %s: %s" drive.device msg)
                   | CLI.Success _ ->
                       CLI.runCmd @@ sprintf "sudo chmod go+rw %s" filename
  -                    let couldAttachDisk = CLI.runCmd @@ sprintf "VBoxManage storageattach '%s' --storagectl 'IDE Controller' --port %d --device 0 --type dvddrive --medium %s" name portIndex filename
  +                    let couldAttachDisk = CLI.runCmd @@ sprintf "sudo VBoxManage storageattach '%s' --storagectl 'SATA Controller' --port %d --device 0 --type hdd --medium %s" name portIndex filename
                       match couldAttachDisk with
                       | CLI.Failure (msg,_) -> logger.Error(sprintf "Could not attach raw disk %s: %s" filename msg)
                       | CLI.Success _ -> ()
  
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
  