anchor.diff:          vbm("storageattach ${name} ${diskFlags}");
           vbm("sharedfolder add ${name} ${sharedFlags}");
           vbm("sharedfolder add ${name} ${nixstoreFlags}");
  -        vbm("showvminfo ${name} >&2");
           cleanup_${name};
  +
  +        ${mkLog "$HOME/VirtualBox VMs/${name}/Logs/VBox.log" "HOST-${name}"}
         }
   
         sub destroyVM_${name} {
  
positive.code:     ${concatStrings (mapAttrsToList (_: getAttr "testSubs") vboxVMs)}
  
      $machine->waitForX;
  
      createVM_simple;
  
  
negative.code:       (isYes "SERIAL_8250")
      ];
    };
  
    mkLog = logfile: tag: let
      rotated = map (i: "${logfile}.${toString i}") (range 1 9);
      all = concatMapStringsSep " " (f: "\"${f}\"") ([logfile] ++ rotated);
      logcmd = "tail -F ${all} 2> /dev/null | logger -t \"${tag}\"";
    in "$machine->execute(ru '${logcmd} & disown');";
  
    testVM = vmName: vmScript: let
      cfg = (import ../lib/eval-config.nix {
  