# HG changeset patch
# User Jaroslav Hajek <highegg@gmail.com>
# Date 1258178550 -3600
# Node ID 84398271118ca9b45580b199b0bc01e0b80dd329
# Parent  c84684473c4d900bc32083dab06e84fc1543ff29
fix typo in expm

diff --git a/scripts/ChangeLog b/scripts/ChangeLog
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,7 @@
+2009-11-14  Jaroslav Hajek  <highegg@gmail.com>
+
+	* linear-algebra/expm.m: Fix typo.
+
 2009-11-11  John W. Eaton  <jwe@octave.org>
 
 	* miscellaneous/intwarning.m: Doc fix.
diff --git a/scripts/linear-algebra/expm.m b/scripts/linear-algebra/expm.m
--- a/scripts/linear-algebra/expm.m
+++ b/scripts/linear-algebra/expm.m
@@ -139,7 +139,7 @@
   ## inverse balancing.
   d = diag (d);
   r = d * r / d;
-  r = r(p, p);
+  r(p, p) = r;
   ## Inverse trace reduction.
   if (trshift >0)
     r *= exp (trshift);