--- a/liboctave/dbleQR.cc	Wed Jan 04 04:08:12 1995 +0000
+++ b/liboctave/dbleQR.cc	Wed Jan 04 04:19:24 1995 +0000
@@ -1,7 +1,7 @@
 //                                        -*- C++ -*-
 /*
 
-Copyright (C) 1992, 1993, 1994 John W. Eaton
+Copyright (C) 1992, 1993, 1994, 1995 John W. Eaton
 
 This file is part of Octave.
 
@@ -83,15 +83,15 @@
     }
   else
     {
-      int m2;
+      int n2;
       if (qr_type == QR::economy && m > n)
 	{
-	  m2 = n;
+	  n2 = n;
 	  r.resize (n, n, 0.0);
 	}
       else
 	{
-	  m2 = m;
+	  n2 = m;
 	  r.resize (m, n, 0.0);
 	}
 
@@ -109,6 +109,7 @@
 			&lwork, &info);
 
       q = Matrix (tmp_data, m, m);
+      q.resize (m, n2);
 
       delete [] tau;
       delete [] work;