Index: /issm/trunk-jpl/src/m/exp/expwrite.m
===================================================================
--- /issm/trunk-jpl/src/m/exp/expwrite.m	(revision 20324)
+++ /issm/trunk-jpl/src/m/exp/expwrite.m	(revision 20325)
@@ -28,4 +28,12 @@
 
 fid=fopen(filename,'w');
+if fid==-1,
+	choice=input(['WARNING: file ' filename ' could not be created, would you like to save your exp as ./temp_expwrite.exp? (y/n)'],'s');
+	if ~strcmpi(choice,'y'),
+		disp('no file written... exiting');
+		return
+	end
+	fid=fopen('./temp_expwrite.exp','w');
+end
 for n=1:length(a),
 	if(length(a(n).x)~=length(a(n).y)),