Select Code to Download

  if (formatPtr == NULL) {
    ... code that might avoid the error by
...
      }
      return TCL_ERROR;
  }