Index: mttroot/mtt/bin/trans/m/mtt_save_alias.m
==================================================================
--- mttroot/mtt/bin/trans/m/mtt_save_alias.m
+++ mttroot/mtt/bin/trans/m/mtt_save_alias.m
@@ -15,7 +15,7 @@
   ## mtt_info.m,v $ ## Revision 1.2  1997/02/11 10:06:42  peterg ##
   ## ###############################################################
 
   fileid = fopen('mtt_aliased.txt','a');
   fprintf(fileid, "%s\t%s\n", arg,system_name);
-
+  fclose(fileid);
 endfunction