diff --git a/Antennas/dipole.pro b/Antennas/dipole.pro
index 6131c67a6f01a04e01c8d426d73156c616bd325c..c0ec1b89942bd2028abf0f403bbae95ee0f78972 100644
--- a/Antennas/dipole.pro
+++ b/Antennas/dipole.pro
@@ -130,7 +130,7 @@ Function {
 
   eta0 = 120*Pi ; // eta0 = Sqrt(mu0/eps0)
 
-  dR[] = (Flag_3Dmodel) ? Unit[ Vector[Cos[Atan2[Z[],X[]]#1], 0, Sin[#1]] /\ Vector[0, 1, 0] ] : Vector[0,0,1] ;
+  dR[] = (Flag_3Dmodel) ? Vector[-Cos[Atan2[X[],Z[]]#1], 0, Sin[#1]] : Vector[0,0,1] ;
 
 
   V0 = 1. ;