repaired bug in bad image indexing

get_tclzoomparms() increments the image index befoe calling Tcl, so it
must not be called with  nr +1