diff --git a/src/idl/dustem_compute_polext.pro b/src/idl/dustem_compute_polext.pro
index d256b4f..11c7922 100644
--- a/src/idl/dustem_compute_polext.pro
+++ b/src/idl/dustem_compute_polext.pro
@@ -1,12 +1,12 @@
-FUNCTION dustem_compute_polext ,p_dim,$
-sti=sti,$
-POLEXT_spec=POLEXT_spec,$
-SPEXT_spec=SPEXT_spec,$
-dustem_fpolext=dustem_fpolext,$
-dustem_ext=dustem_ext,$
-out_st=out_st,$
-_extra=extra, $
-help=help
+FUNCTION dustem_compute_polext,p_dim,$
+                              sti=sti,$
+                              POLEXT_spec=POLEXT_spec,$
+                              SPEXT_spec=SPEXT_spec,$
+                              dustem_fpolext=dustem_fpolext,$
+                              dustem_ext=dustem_ext,$
+                              out_st=out_st,$
+                              _extra=extra, $
+                              help=help
 
 ;+
 ; NAME:
@@ -162,7 +162,7 @@ out_st=sti
 if !run_lin then begin
       		
     
-    if not keyword_set(dustem_ext) then dustem_ext = dustem_compute_ext(p_dim,sti,EXT_spec) 
+    if not keyword_set(dustem_ext) then dustem_ext = dustem_compute_ext(p_dim,st=sti,EXT_spec=EXT_spec) 
     
     If n_elements(dustem_ext) ne n_elements(dustem_polext) then begin                            
         if n_elements(dustem_ext) gt n_elements(dustem_polext) then begin 
diff --git a/src/idl/dustemwrap_plot.pro b/src/idl/dustemwrap_plot.pro
index 1a0e982..6c23049 100755
--- a/src/idl/dustemwrap_plot.pro
+++ b/src/idl/dustemwrap_plot.pro
@@ -113,8 +113,9 @@ IF not keyword_set(st) THEN BEGIN
       dustem_ext = dustem_compute_ext(p_dim,st=st,EXT_spec=EXT_spec)
       
       if !run_pol && !run_lin then begin
-          
-          dustem_polext = dustem_compute_polext(p_dim,st=st,POLEXT_spec=POLEXT_spec,SPEXT_spec=SPEXT_spec,dustem_fpolext=dustem_fpolext)
+
+          ;stop                              
+          dustem_polext = dustem_compute_polext(p_dim,sti=st,POLEXT_spec=POLEXT_spec,SPEXT_spec=SPEXT_spec,dustem_fpolext=dustem_fpolext)
           toto = dustem_compute_stokext(p_dim,st=st,dustem_qext=dustem_qext,dustem_uext=dustem_uext,QEXT_spec=QEXT_spec,UEXT_spec=UEXT_spec,PSIEXT_spec=PSIEXT_spec,dustem_psi_ext=dustem_psi_ext) 
           
       endif
@@ -145,7 +146,7 @@ ENDIF ELSE BEGIN ;st is provided
         
         if !run_pol && !run_lin then begin
             
-            dustem_polext = dustem_compute_polext(p_dim,st=st,POLEXT_spec=POLEXT_spec,SPEXT_spec=SPEXT_spec,dustem_fpolext=dustem_fpolext)
+            dustem_polext = dustem_compute_polext(p_dim,sti=st,POLEXT_spec=POLEXT_spec,SPEXT_spec=SPEXT_spec,dustem_fpolext=dustem_fpolext)
             toto = dustem_compute_stokext(p_dim,st=st,dustem_qext=dustem_qext,dustem_uext=dustem_uext,QEXT_spec=QEXT_spec,UEXT_spec=UEXT_spec,PSIEXT_spec=PSIEXT_spec,dustem_psi_ext=dustem_psi_ext) 
             
         endif
--
libgit2 0.21.2