--- freem/src/mumps.c	2025/04/02 03:26:22	1.13
+++ freem/src/mumps.c	2025/04/02 04:50:49	1.14
@@ -1,5 +1,5 @@
 /*
- *   $Id: mumps.c,v 1.13 2025/04/02 03:26:22 snw Exp $
+ *   $Id: mumps.c,v 1.14 2025/04/02 04:50:49 snw Exp $
  *    main module of freem
  *
  *  
@@ -24,6 +24,9 @@
  *   along with FreeM.  If not, see <https://www.gnu.org/licenses/>.
  *
  *   $Log: mumps.c,v $
+ *   Revision 1.14  2025/04/02 04:50:49  snw
+ *   Allow vendor routines to be upgraded
+ *
  *   Revision 1.13  2025/04/02 03:26:22  snw
  *   Don't corrupt the terminal if FreeM runs before fmadm configure has been run
  *
@@ -647,7 +650,7 @@ int main (int argc, char **argv, char **
 	strncpy (nsnbuf, nsname, 255);    
 	if (init (nsnbuf) == FALSE) {
 	    
-	    set_io (UNIX);
+	    if (fm_initialized) set_io (UNIX);
 	    fprintf (stderr, "\nError initializing FreeM.\n");
 	    
 	    exit (1);            
@@ -682,10 +685,6 @@ int main (int argc, char **argv, char **
             /* isolate the path from the routine file */
             strncpy (cli_rtn_path, argv[optind], strrchr (argv[optind], '/') - argv[optind]);      
 	    
-/*	    set_io (UNIX);
-	    printf ("cli_rtn_name = '%s' cli_rtn_path = '%s'\n", cli_rtn_name, cli_rtn_path);
-	    set_io (MUMPS);
-*/	    
         }
 
         /* do we have a file extension? */