source $cfPath(scan)/scan_common_1.tcl 
##
# @brief Make sure that the chopper is ready before starting a scan.
proc ::scan::pre_hmm_scan_prepare {} {
  if [catch {::chopper::ready?} errmsg] {
    return -code error $errmsg
  } 
}