sS copyTextToClipboardVerboseWithVerify(O _text) {
  S text = copyTextToClipboardVerbose(_text);
  if (!eq(textFromClipboard(), text)) {
    infoBox("copy to clipboard failed");
    copyTextToClipboard(text);
    if (eq(textFromClipboard(), text))
      infoBox("copy to clipboard ok on second attempt");
  }
  ret text;
}