diff --git a/src/idl/dustem_plot_dataset.pro b/src/idl/dustem_plot_dataset.pro
index d1c61f3..4e9876b 100644
--- a/src/idl/dustem_plot_dataset.pro
+++ b/src/idl/dustem_plot_dataset.pro
@@ -117,8 +117,10 @@ if keyword_set(dataset) then begin
                 
                 if not keyword_set(norm) then begin
                     ;/NODATA    
-                    cgplot,wavs,wavs,/nodata,/ylog,/xlog,/ys,xs=9,pos=position,noerase=1,charsize=1.15,xtickformat='(A1)',color='Powder Blue',xr=xr,xtit='',yr=yr,psym=8,syms=0.8  
-                    axis, xaxis=1 ,xlog=1 ,xrange=((!const.c*1E6/xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),xticklen=0.05,xminor=10,color='black'
+                    cgplot,wavs,wavs,/nodata,/ylog,/xlog,/ys,xs=9,pos=position,noerase=1,charsize=1.15,xtickformat='(A1)',color='Powder Blue',xr=xr,xtit='',yr=yr,psym=8,syms=0.8
+                    IF !dustemwrap_which_language NE 'fawlty' THEN BEGIN
+                        axis, xaxis=1 ,xlog=1 ,xrange=((!const.c*1E6/xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),xticklen=0.05,xminor=10,color='black'
+                    ENDIF
                     xyouts,pospltxt[0],pospltxt[1],textoidl('I_{\nu} (MJy/sr)'),color=0,/normal,charsize=1.3;,charthick=2.0
                   
                 ;endelse  
@@ -326,7 +328,9 @@ if keyword_set(dataset) then begin
                 if not keyword_set(norm) then begin
                     ;/NODATA    
                     cgplot,wavs,wavs,/nodata,/ylog,/xlog,/ys,xs=9,pos=position,noerase=1,charsize=1.15,xtickformat='(A1)',color='Powder Blue',xr=xr,xtit='',yr=yr,psym=8,syms=0.8  
-                    axis, xaxis=1 ,xlog=1 ,xrange=((!const.c*1E6*xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),xticklen=0.05,xminor=10,color='black'
+                    IF !dustemwrap_which_language NE 'fawlty' THEN BEGIN
+                        axis, xaxis=1 ,xlog=1 ,xrange=((!const.c*1E6*xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),xticklen=0.05,xminor=10,color='black'
+                    ENDIF
                     xyouts,pospltxt[0],pospltxt[1],textoidl('\tau_{EXT}'),color=0,/normal,charsize=1.3;,charthick=2.0
                   
                 ;endelse  
@@ -457,8 +461,9 @@ if keyword_set(dataset) then begin
                         
                         
                         ;Plotting of frequency axis
-                        axis, xaxis=1, xlog=1, xs=1, xminor=10, xticklen=0.05, xrange=((!const.c*1E6*xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),color=0
-                        
+                        IF !dustemwrap_which_language NE 'fawlty' THEN BEGIN
+                            axis, xaxis=1, xlog=1, xs=1, xminor=10, xticklen=0.05, xrange=((!const.c*1E6*xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),color=0
+                        ENDIF
                         xyouts,pospltxt[0],pospltxt[1],textoidl('\tau_{EXT}'),color=0,/normal,charsize=1.3;,charthick=2.0
                          
                         ;Locating all the hidden data points (spectrum+filter)
@@ -533,7 +538,9 @@ if keyword_set(dataset) then begin
                 endif else begin ;normal plot
                     ;/NODATA
                     cgplot,wavs,wavs,/nodata,/ylog,/xlog,/ys,xs=9,pos=position,noerase=1,charsize=1.15,xtickformat='(A1)',color='Powder Blue',xr=xr,xtit='',yr=yr,psym=8,syms=0.8  
-                    axis, xaxis=1 ,xlog=1 ,xrange=((!const.c*1E6*xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),xticklen=0.05,xminor=10,color='black'
+                    IF !dustemwrap_which_language NE 'fawlty' THEN BEGIN
+                        axis, xaxis=1 ,xlog=1 ,xrange=((!const.c*1E6*xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),xticklen=0.05,xminor=10,color='black'
+                    ENDIF
                     xyouts,pospltxt[0],pospltxt[1],textoidl('\tau_{PEXT}'),color=0,/normal,charsize=1.3;,charthick=2.0
                   
                 endelse  
@@ -655,8 +662,9 @@ if keyword_set(dataset) then begin
                         
                         
                         ;Plotting of frequency axis
-                        axis, xaxis=1, xlog=1, xs=1, xminor=10, xticklen=0.05, xrange=((!const.c*1E6*xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),color=0
-                        
+                        IF !dustemwrap_which_language NE 'fawlty' THEN BEGIN
+                            axis, xaxis=1, xlog=1, xs=1, xminor=10, xticklen=0.05, xrange=((!const.c*1E6*xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),color=0
+                        ENDIF
                         xyouts,pospltxt[0],pospltxt[1],textoidl('\tau_{PEXT}'),color=0,/normal,charsize=1.3;,charthick=2.0
                          
                         ;Locating all the hidden data points (spectrum+filter)
@@ -734,7 +742,9 @@ if keyword_set(dataset) then begin
                 endif else begin ;normal plot
                     
                     cgplot,wavs,wavs,/nodata,/ylog,/xlog,/ys,xs=9,pos=position,noerase=1,charsize=1.15,xtickformat='(A1)',color='Powder Blue',xr=xr,xtit='',yr=yr,psym=8,syms=0.8  
-                    axis, xaxis=1 ,xlog=1 ,xrange=((!const.c*1E6/xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),xticklen=0.05,xminor=10,color='black'
+                    IF !dustemwrap_which_language NE 'fawlty' THEN BEGIN
+                        axis, xaxis=1 ,xlog=1 ,xrange=((!const.c*1E6/xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),xticklen=0.05,xminor=10,color='black'
+                    ENDIF
                     xyouts,pospltxt[0],pospltxt[1],textoidl('P_{\nu} (MJy/sr)'),color=0,/normal,charsize=1.3;,charthick=2.0
                   
                 endelse  
@@ -849,8 +859,9 @@ if keyword_set(dataset) then begin
                         
                         
                         ;Plotting of frequency axis
-                        axis, xaxis=1, xlog=1, xs=1, xminor=10, xticklen=0.05, xrange=((!const.c*1E6/(xr))*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),color=0
-                        
+                        IF !dustemwrap_which_language NE 'fawlty' THEN BEGIN
+                            axis, xaxis=1, xlog=1, xs=1, xminor=10, xticklen=0.05, xrange=((!const.c*1E6/(xr))*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),color=0
+                        ENDIF
                         xyouts,pospltxt[0],pospltxt[1],textoidl('P_{\nu} (MJy/sr)'),color=0,/normal,charsize=1.3;,charthick=2.0
                          
                         ;Locating all the hidden data points (spectrum+filter)
diff --git a/src/idl/dustem_show_file_dependencies.pro b/src/idl/dustem_show_file_dependencies.pro
index 77d7f30..bacd9bd 100644
--- a/src/idl/dustem_show_file_dependencies.pro
+++ b/src/idl/dustem_show_file_dependencies.pro
@@ -71,6 +71,7 @@ dustem_fit_polarization_example,Nitermax=1,fits_save_and_restore='/tmp/mysavefil
 dustem_fit_ext_pol_example,Nitermax=1,fits_save_and_restore='/tmp/mysavefile3.fits'
 dustem_fit_sed_ext_pol_example,Nitermax=1,fits_save_and_restore='/tmp/mysavefile4.fits'
 dustem_fit_intensity_mbb_example,Nitermax=1,postscript='/tmp/dustemwrap_postcript_example.ps'
+;=== for some reason plot goes red here under fawlty
 dustem_myisrf_example,Nitermax=1,fits_save_and_restore='/tmp/mysavefile5.fits'
 dustem_stellarpopisrf_example,Nitermax=1,fits_save_and_restore='/tmp/mysavefile6.fits'
 dustem_fit_intensity_example,Nitermax=1,/noobj
diff --git a/src/idl/dustemcgwin_dataset.pro b/src/idl/dustemcgwin_dataset.pro
index da9ad74..0384b86 100644
--- a/src/idl/dustemcgwin_dataset.pro
+++ b/src/idl/dustemcgwin_dataset.pro
@@ -105,8 +105,10 @@ if keyword_set(dataset) then begin
                 
                 if not keyword_set(norm) then begin
                     ;/NODATA
-                    cgplot,wavs,wavs,/nodata,/ylog,/xlog,/ys,xs=9,pos=position,noerase=1,charsize=1.15,xtickformat='(A1)',color='Powder Blue',xr=xr,xtit='',yr=yr,psym=8,syms=0.8  
-                    axis, xaxis=1 ,xlog=1 ,xrange=((!const.c*1E6/xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),xticklen=0.05,xminor=10,color='black'
+                    cgplot,wavs,wavs,/nodata,/ylog,/xlog,/ys,xs=9,pos=position,noerase=1,charsize=1.15,xtickformat='(A1)',color='Powder Blue',xr=xr,xtit='',yr=yr,psym=8,syms=0.8
+                    IF !dustemwrap_which_language NE 'fawlty' THEN BEGIN
+                        axis, xaxis=1 ,xlog=1 ,xrange=((!const.c*1E6/xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),xticklen=0.05,xminor=10,color='black'
+                    ENDIF
                     xyouts,pospltxt[0],pospltxt[1],textoidl('I_{\nu} (MJy/sr)'),color=0,/normal,charsize=1.3;,charthick=2.0
                   
                 ;endelse  
@@ -322,8 +324,10 @@ if keyword_set(dataset) then begin
                 
                 if not keyword_set(norm) then begin
                     ;/NODATA    
-                    cgplot,wavs,wavs,/nodata,/ylog,/xlog,/ys,xs=9,pos=position,noerase=1,charsize=1.15,xtickformat='(A1)',color='Powder Blue',xr=xr,xtit='',yr=yr,psym=8,syms=0.8  
-                    axis, xaxis=1 ,xlog=1 ,xrange=((!const.c*1E6*xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),xticklen=0.05,xminor=10,color='black'
+                    cgplot,wavs,wavs,/nodata,/ylog,/xlog,/ys,xs=9,pos=position,noerase=1,charsize=1.15,xtickformat='(A1)',color='Powder Blue',xr=xr,xtit='',yr=yr,psym=8,syms=0.8
+                    IF !dustemwrap_which_language NE 'fawlty' THEN BEGIN
+                        axis, xaxis=1 ,xlog=1 ,xrange=((!const.c*1E6*xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),xticklen=0.05,xminor=10,color='black'
+                    ENDIF
                     xyouts,pospltxt[0],pospltxt[1],textoidl('\tau_{EXT}'),color=0,/normal,charsize=1.3;,charthick=2.0
                   
                 ;endelse  
@@ -454,8 +458,9 @@ if keyword_set(dataset) then begin
                         
                         
                         ;Plotting of frequency axis
-                        axis, xaxis=1, xlog=1, xs=1, xminor=10, xticklen=0.05, xrange=((!const.c*1E6*xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),color=0
-                        
+                        IF !dustemwrap_which_language NE 'fawlty' THEN BEGIN
+                            axis, xaxis=1, xlog=1, xs=1, xminor=10, xticklen=0.05, xrange=((!const.c*1E6*xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),color=0
+                        ENDIF
                         xyouts,pospltxt[0],pospltxt[1],textoidl('\tau_{EXT}'),color=0,/normal,charsize=1.3;,charthick=2.0
                          
                         ;Locating all the hidden data points (spectrum+filter)
@@ -530,8 +535,10 @@ if keyword_set(dataset) then begin
                 
                 endif else begin ;normal plot
                     ;/NODATA
-                    cgplot,wavs,wavs,/nodata,/ylog,/xlog,/ys,xs=9,pos=position,noerase=1,charsize=1.15,xtickformat='(A1)',color='Powder Blue',xr=xr,xtit='',yr=yr,psym=8,syms=0.8  
-                    axis, xaxis=1 ,xlog=1 ,xrange=((!const.c*1E6*xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),xticklen=0.05,xminor=10,color='black'
+                    cgplot,wavs,wavs,/nodata,/ylog,/xlog,/ys,xs=9,pos=position,noerase=1,charsize=1.15,xtickformat='(A1)',color='Powder Blue',xr=xr,xtit='',yr=yr,psym=8,syms=0.8
+                    IF !dustemwrap_which_language NE 'fawlty' THEN BEGIN
+                        axis, xaxis=1 ,xlog=1 ,xrange=((!const.c*1E6*xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),xticklen=0.05,xminor=10,color='black'
+                    ENDIF
                     xyouts,pospltxt[0],pospltxt[1],textoidl('\tau_{PEXT}'),color=0,/normal,charsize=1.3;,charthick=2.0
                   
                 endelse  
@@ -653,8 +660,9 @@ if keyword_set(dataset) then begin
                         
                         
                         ;Plotting of frequency axis
-                        axis, xaxis=1, xlog=1, xs=1, xminor=10, xticklen=0.05, xrange=((!const.c*1E6*xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),color=0
-                        
+                        IF !dustemwrap_which_language NE 'fawlty' THEN BEGIN
+                            axis, xaxis=1, xlog=1, xs=1, xminor=10, xticklen=0.05, xrange=((!const.c*1E6*xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),color=0
+                        ENDIF
                         xyouts,pospltxt[0],pospltxt[1],textoidl('\tau_{PEXT}'),color=0,/normal,charsize=1.3;,charthick=2.0
                          
                         ;Locating all the hidden data points (spectrum+filter)
@@ -730,8 +738,10 @@ if keyword_set(dataset) then begin
                 
                 endif else begin ;normal plot
                     
-                    cgplot,wavs,wavs,/nodata,/ylog,/xlog,/ys,xs=9,pos=position,noerase=1,charsize=1.15,xtickformat='(A1)',color='Powder Blue',xr=xr,xtit='',yr=yr,psym=8,syms=0.8  
-                    axis, xaxis=1 ,xlog=1 ,xrange=((!const.c*1E6/xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),xticklen=0.05,xminor=10,color='black'
+                    cgplot,wavs,wavs,/nodata,/ylog,/xlog,/ys,xs=9,pos=position,noerase=1,charsize=1.15,xtickformat='(A1)',color='Powder Blue',xr=xr,xtit='',yr=yr,psym=8,syms=0.8
+                    IF !dustemwrap_which_language NE 'fawlty' THEN BEGIN
+                        axis, xaxis=1 ,xlog=1 ,xrange=((!const.c*1E6/xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),xticklen=0.05,xminor=10,color='black'
+                    ENDIF
                     xyouts,pospltxt[0],pospltxt[1],textoidl('P_{\nu} (MJy/sr)'),color=0,/normal,charsize=1.3;,charthick=2.0
                   
                 endelse  
@@ -846,8 +856,9 @@ if keyword_set(dataset) then begin
                         
                         
                         ;Plotting of frequency axis
-                        axis, xaxis=1, xlog=1, xs=1, xminor=10, xticklen=0.05, xrange=((!const.c*1E6/(xr))*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),color=0
-                        
+                        IF !dustemwrap_which_language NE 'fawlty' THEN BEGIN
+                            axis, xaxis=1, xlog=1, xs=1, xminor=10, xticklen=0.05, xrange=((!const.c*1E6/(xr))*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),color=0
+                        ENDIF
                         xyouts,pospltxt[0],pospltxt[1],textoidl('P_{\nu} (MJy/sr)'),color=0,/normal,charsize=1.3;,charthick=2.0
                          
                         ;Locating all the hidden data points (spectrum+filter)
--
libgit2 0.21.2