Index: /issm/trunk/src/m/utils/Exp/expopen.m
===================================================================
--- /issm/trunk/src/m/utils/Exp/expopen.m	(revision 1135)
+++ /issm/trunk/src/m/utils/Exp/expopen.m	(revision 1135)
@@ -0,0 +1,10 @@
+function struct=expopen(newname,oldname)
+%EXPOPEN - read in an exp file, and open all the contours.
+%
+%   Usage:
+%      expopen(newname,oldname)
+%  
+
+
+a=expread(oldname,0); %0 for opening.
+expwrite(newname,a);
Index: /issm/trunk/src/m/utils/Exp/readwrite/expwrite.m
===================================================================
--- /issm/trunk/src/m/utils/Exp/readwrite/expwrite.m	(revision 1134)
+++ /issm/trunk/src/m/utils/Exp/readwrite/expwrite.m	(revision 1135)
@@ -18,6 +18,10 @@
 for n=1:length(a),
    
-   if ~isempty(a(n).name),
-	   fprintf(fid,'%s%s\n','## Name:',a(n).name);
+   if isfield(a,'name'),
+	   if ~isempty(a(n).name),
+		   fprintf(fid,'%s%s\n','## Name:',a(n).name);
+	   else
+		   fprintf(fid,'%s\n','## Name:');
+	   end
    else
 	   fprintf(fid,'%s\n','## Name:');