--- loncom/lonmaxima	2012/02/16 19:54:06	1.41
+++ loncom/lonmaxima	2018/10/29 02:57:30	1.43
@@ -3,7 +3,7 @@
 # The LearningOnline Network with CAPA
 # Connect to MAXIMA CAS
 #
-# $Id: lonmaxima,v 1.41 2012/02/16 19:54:06 droeschl Exp $
+# $Id: lonmaxima,v 1.43 2018/10/29 02:57:30 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -156,8 +156,8 @@ my $wwwid=getpwnam('www');
 if ($wwwid!=$<) {
     my $emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}";
     my $subj="LON: User ID mismatch";
-    system("echo 'User ID mismatch.  lonmaxima must be run as user www.' |\
- mailto $emailto -s '$subj' > /dev/null");
+    system("echo 'User ID mismatch.  lonmaxima must be run as user www.' |".
+           " mailto -s '$subj' $emailto > /dev/null");
     exit 1;
 }
  
@@ -259,7 +259,11 @@ sub make_new_child {
 
         &logthis('New process started');
 
-        my $command=Expect->spawn('maxima');
+        my $command = new Expect();
+        $command->log_stdout(0);
+        #$command->log_file("$execdir/logs/lonmaxima.session.log");
+        $command->spawn('maxima');
+        &getmaximaoutput($command, 2); # wait for maxima to finish initialization
 	# soft/hard_close can take awhile and we really
         # don't care we just want it gone
 	$SIG{INT} = sub {
@@ -268,8 +272,6 @@ sub make_new_child {
 	    exit; 
 	};
 
-	$command->log_stdout(0);
-	#$command->log_file("$execdir/logs/lonmaxima.session.log");
 
         for (my $i=0; $i < $MAX_CLIENTS_PER_CHILD; $i++) {
             &status('Accepting connections');