diff -crN oommf12a3/app/mmdisp/scripts/avf2ovf.tcl oommf/app/mmdisp/scripts/avf2ovf.tcl
*** oommf12a3/app/mmdisp/scripts/avf2ovf.tcl	Mon Oct 28 13:39:00 2002
--- oommf/app/mmdisp/scripts/avf2ovf.tcl	Fri Mar 14 21:46:42 2003
***************
*** 56,63 ****
  		}
  	    }
  	    # Relative order check
! 	    if {$args[0]>$args[3] || $args[1]>$args[4] \
! 		    || $args[2]>$args[5]} {
  		    set okaystr 0
  	    }
  	}
--- 56,64 ----
  		}
  	    }
  	    # Relative order check
! 	    if {[lindex $args 0]>[lindex $args 3] \
! 		    || [lindex $args 1]>[lindex $args 4] \
! 		    || [lindex $args 2]>[lindex $args 5]} {
  		    set okaystr 0
  	    }
  	}
***************
*** 74,81 ****
      {zmax { ClipStringCheck $xmin $ymin $zmin $xmax $ymax $zmax}
        {is maximum z}}
  } {
!     upvar #0 clipstr globalclipstr
!     set globalclipstr $clipstr
  } "\n\tClipping box (optional)"
  set clipstr {}
  
--- 75,82 ----
      {zmax { ClipStringCheck $xmin $ymin $zmin $xmax $ymax $zmax}
        {is maximum z}}
  } {
!     global clipstr
!     set clipstr [list $xmin $ymin $zmin $xmax $ymax $zmax]
  } "\n\tClipping box (optional)"
  set clipstr {}