# HG changeset patch
# User jwe
# Date 789785210 0
# Node ID d3790919922e6363254d5b0915acc3904c6bf24d
# Parent  4ebc7911ab98382ca534f93c851060dcea6262f2
[project @ 1995-01-11 00:45:09 by jwe]

diff --git a/scripts/linear-algebra/orth.m b/scripts/linear-algebra/orth.m
--- a/scripts/linear-algebra/orth.m
+++ b/scripts/linear-algebra/orth.m
@@ -21,7 +21,7 @@
 
   if (nargin == 1)
     tol = max (size (A)) * s (1) * eps;
-  else if (nargin != 2)
+  elseif (nargin != 2)
     usage ("orth (A [, tol])"); 
   endif
 
diff --git a/src/octave.cc b/src/octave.cc
--- a/src/octave.cc
+++ b/src/octave.cc
@@ -942,6 +942,15 @@
 
       int status = cmd.close ();
 
+// The value in status is as returned by waitpid.  If the process
+// exited normally, extract the actual exit status of the command.
+// Otherwise, return 127 as a failure code.
+
+      if ((status & 0xff) == 0)
+	status = (status & 0xff00) >> 8;
+      else
+	status = 127;
+
       if (nargout > 0 || nargin > 1)
 	{
 	  char *msg = output_buf.str ();