diff --git a/src/idl/dustem_fit_sed_readme.pro b/src/idl/dustem_fit_sed_readme.pro
index d977097..e2586ab 100644
--- a/src/idl/dustem_fit_sed_readme.pro
+++ b/src/idl/dustem_fit_sed_readme.pro
@@ -71,7 +71,7 @@ ENDIF ELSE BEGIN
 ENDELSE
 
 IF keyword_set(png) THEN BEGIN
-  dir_png='/tmp/Dustem/Figures/'
+  dir_png=!dustem_data+'/Figures/'
   force_mkdir,dir_png
 ENDIF
 
diff --git a/src/idl/dustem_run_readme.pro b/src/idl/dustem_run_readme.pro
index 7e99e4b..e17a4e6 100644
--- a/src/idl/dustem_run_readme.pro
+++ b/src/idl/dustem_run_readme.pro
@@ -1,4 +1,4 @@
-PRO dustem_run_readme,postcript=postcript,model=model,help=help,plot_it=plot_it
+PRO dustem_run_readme,postcript=postcript,model=model,help=help,plot_it=plot_it,png=png
 
 ;+
 ; NAME:
@@ -51,6 +51,11 @@ IF keyword_set(help) THEN BEGIN
   goto,the_end
 ENDIF
 
+IF keyword_set(png) THEN BEGIN
+  dir_png=!dustem_data+'/Figures/'
+  force_mkdir,dir_png
+ENDIF
+
 loadct,13
 
 IF keyword_set(model) THEN BEGIN
@@ -107,7 +112,7 @@ st=dustem_run()
 ;stop
 ;stt=dustem_set_data(sed=sed)
 
-;== The following just plots the resulting emission SED
+;== The following plots the resulting emission SED
 window,0
 xtit=textoidl('\lambda (\mum)')
 ;=== same plot as in Compiegne et al. 2010
@@ -116,7 +121,13 @@ tit='Dustem Emitted Intensity '+use_model
 yr=[1e-11,6.e-7]
 xr=[1,5e3]
 dustem_plot_nuinu_em,st,yr=yr,/ysty,xr=xr,/xsty,/xlog,/ylog,title=tit,xtit=xtit,ytit=ytit
-;== The following just plots the resulting extinction
+IF keyword_set(png) THEN BEGIN
+  file_png=dir_png+'Last_dustem_run_readme_nuinuem.png'
+  write_png,file_png,tvrd(/true)
+  message,'Wrote '+file_png,/info
+ENDIF
+
+;== The following plots the resulting extinction
 window,1
 yr=[0,2.5]  ;range of 1/lambda
 xr=[1,10]   ;range of sigma
@@ -124,6 +135,11 @@ xtit=textoidl('1/\lambda (\mum^{-1})')
 ytit=textoidl('\sigma_{ext} (1e-21 cm^2/H)')
 tit='Dustem extinction '+use_model
 dustem_plot_extinction,st,st_model,xr=xr,yr=yr,/xsty,/ysty,xtit=xtit,ytit=ytit,title=tit
+IF keyword_set(png) THEN BEGIN
+  file_png=dir_png+'Last_dustem_run_readme_extinction.png'
+  write_png,file_png,tvrd(/true)
+  message,'Wrote '+file_png,/info
+ENDIF
 
 the_end:
 
--
libgit2 0.21.2