--- a/listBT
+++ b/listBT
@@ -2,9 +2,9 @@
 #======================================================================
 #                    L I S T B T 
 #                    doc: Sat Jan 18 18:41:49 2003
-#                    dlm: Mon Nov 25 18:30:11 2013
+#                    dlm: Mon Apr  2 18:31:18 2018
 #                    (c) 2003 A.M. Thurnherr
-#                    uE-Info: 42 44 NIL 0 0 72 11 2 4 NIL ofnI
+#                    uE-Info: 43 61 NIL 0 0 72 11 2 4 NIL ofnI
 #======================================================================
 
 # Extract Bottom-Track Data
@@ -40,6 +40,7 @@
 #	Nov  1, 2008: - BUG: sig(u) was reported instead of sig(v)
 #	Jul 30, 2009: - NaN => nan
 #	Nov 25, 2013: - checkEnsemble() expunged
+#	Apr  2, 2018: - BUG: velBeamToInstrument() used old usage
 
 # NOTES:
 #	- the RDI BT data contains ranges that are greater than the
@@ -164,7 +165,7 @@
 					 $dta{ENSEMBLE}[$ens]->{PERCENT_GOOD}[$b][2] < 100 ||
 					 $dta{ENSEMBLE}[$ens]->{PERCENT_GOOD}[$b][3] < 100);
 			@v = velInstrumentToEarth(\%dta,$ens,
-					velBeamToInstrument(\%dta,
+					velBeamToInstrument(\%dta,$ens,
 	                    @{$dta{ENSEMBLE}[$ens]->{VELOCITY}[$b]}));
 	    } else {
 			next if ($dta{ENSEMBLE}[$ens]->{PERCENT_GOOD}[$b][0] > 0 ||
@@ -298,7 +299,7 @@
 		last if ($dta{ENSEMBLE}[$e]->{BT_MEAN_RANGE}-$dz <= $slc);
 		my(@v) = $beamCoords
 			   ? velInstrumentToEarth(\%dta,$e,
-					velBeamToInstrument(\%dta,
+					velBeamToInstrument(\%dta,$e,
 						@{$dta{ENSEMBLE}[$e]->{VELOCITY}[$b]}))
 			   : velApplyHdgBias(\%dta,$e,@{$dta{ENSEMBLE}[$e]->{VELOCITY}[$b]});
 		next unless defined($v[0]);
@@ -338,7 +339,7 @@
 		last if ($dta{ENSEMBLE}[$e]->{BT_MEAN_RANGE}-$dz <= $slc);
 		my(@v) = $beamCoords
 			   ? velInstrumentToEarth(\%dta,$e,
-					velBeamToInstrument(\%dta,
+					velBeamToInstrument(\%dta,$e,
 						@{$dta{ENSEMBLE}[$e]->{VELOCITY}[$b]}))
 			   : velApplyHdgBias(\%dta,$e,@{$dta{ENSEMBLE}[$e]->{VELOCITY}[$b]});
 		next unless defined($v[0]);
@@ -484,7 +485,7 @@
 
 	@{$dta{ENSEMBLE}[$e]->{BT_VELOCITY}} = $beamCoords	# xform BT vel
 	    ? velInstrumentToEarth(\%dta,$e,
-			velBeamToInstrument(\%dta,@{$dta{ENSEMBLE}[$e]->{BT_VELOCITY}}))
+			velBeamToInstrument(\%dta,$e,@{$dta{ENSEMBLE}[$e]->{BT_VELOCITY}}))
 		: velApplyHdgBias(\%dta,$e,@{$dta{ENSEMBLE}[$e]->{BT_VELOCITY}});
 
  	$dta{ENSEMBLE}[$e]->{BT_MEAN_RANGE} =				# mean vals
@@ -555,7 +556,7 @@
 		my($btm_e) = int($btm_e[0]/4+$btm_e[1]/4+$btm_e[2]/4+$btm_e[3]/4+0.5);
 		@{$dta{ENSEMBLE}[$btm_e]->{BTFWT_VELOCITY}} = $beamCoords # BT from WT
 			? velInstrumentToEarth(\%dta,$e,
-				velBeamToInstrument(\%dta,@{$dta{ENSEMBLE}[$e]->{BT_VELOCITY}}))
+				velBeamToInstrument(\%dta,$e,@{$dta{ENSEMBLE}[$e]->{BT_VELOCITY}}))
 	        : velApplyHdgBias(\%dta,$e,@{$dta{ENSEMBLE}[$e]->{BT_VELOCITY}});
 	}