From 9720f1d0f0bf8561776f31975916b3b4178c5444 Mon Sep 17 00:00:00 2001
From: Ferdi Franceschini <ffr@ansto.gov.au>
Date: Wed, 8 Oct 2014 19:59:22 +1100
Subject: [PATCH] SICS-788 Guard against integer division.

---
 site_ansto/instrument/config/motors/sct_positmotor_common.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/site_ansto/instrument/config/motors/sct_positmotor_common.tcl b/site_ansto/instrument/config/motors/sct_positmotor_common.tcl
index 7e78e281..b4511d83 100644
--- a/site_ansto/instrument/config/motors/sct_positmotor_common.tcl
+++ b/site_ansto/instrument/config/motors/sct_positmotor_common.tcl
@@ -124,7 +124,7 @@ proc ::scobj::positmotor::mot2ID {mot precision table} {
     if {abs($mot - $m) <= $precision} {
       return $i
     } elseif {[expr {$sign * ($mot - $m)} ] < 0} {
-      return [expr {($mot-$mprev)*($i - $iprev)/($m - $mprev)+$iprev}]
+      return [expr {1.0 * ($mot-$mprev)*($i - $iprev)/($m - $mprev)+$iprev}]
     }
     set iprev $i
     set mprev $m