--- a/liboctave/CmplxQRP.cc	Wed Jan 04 04:08:12 1995 +0000
+++ b/liboctave/CmplxQRP.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.
 
@@ -104,15 +104,15 @@
   delete [] jpvt;
   delete [] work;
 
-  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);
     }
 
@@ -130,6 +130,7 @@
 		    &lwork, &info);
 
   q = ComplexMatrix (tmp_data, m, m);
+  q.resize (m, n2);
 
   delete [] tau;
   delete [] work;
@@ -141,10 +142,3 @@
 ;;; page-delimiter: "^/\\*" ***
 ;;; End: ***
 */
-
-/*
-;;; Local Variables: ***
-;;; mode: C++ ***
-;;; page-delimiter: "^/\\*" ***
-;;; End: ***
-*/