diff -ur roverlog-2.6.6-stock/roverlog.tcl roverlog-2.6.6/roverlog.tcl
--- roverlog-2.6.6-stock/roverlog.tcl	2010-04-27 10:10:58.000000000 -0400
+++ roverlog-2.6.6/roverlog.tcl	2010-04-20 07:44:44.000000000 -0400
@@ -3149,6 +3149,7 @@
 
     # Miles
     set stuff(rang) [ expr round(10.0 * ($dist * 3963.1676)) / 10.0 ]
+    set stuff(rangkm) [ expr round(10.0 * ($dist * 3963.1676 * 1.609344)) / 10.0 ]
 
     set temp [ expr ( sin( $mylatr ) - sin( $mylatl ) * cos( $dist ) ) / \
       ( sin( $dist ) * cos( $mylatl ) ) ]
@@ -3217,6 +3218,7 @@
     }
 
     set stuff(rang) 0.0
+    set stuff(rangkm) 0.0
   }
 
   Set_Compass $stuff(brng)
@@ -4686,6 +4688,10 @@
   entry $f.er -textvariable stuff(rang) -width 7 -state readonly \
     -font $::setting(entryfont) 
 
+  label $f.lrk -text "Range (km)"
+  entry $f.erk -textvariable stuff(rangkm) -width 7 -state readonly \
+    -font $::setting(entryfont) 
+
   label $f.lmb -text "Mag Bearing (deg)"
   entry $f.emb -textvariable stuff(mbrng) -width 7 -state readonly \
     -font $::setting(entryfont) 
@@ -4719,6 +4725,7 @@
   grid $f.lcb $f.ecb -padx 2 -pady 2
   grid $f.lrb $f.erb -padx 2 -pady 2
   grid $f.lr  $f.er  -padx 2 -pady 2
+  grid $f.lrk $f.erk -padx 2 -pady 2
   grid $f.lmb $f.emb -padx 2 -pady 2
   grid $f.lrm $f.erm -padx 2 -pady 2
   if { $::setting(allowcompass) == 1 } {