--- qr.R.orig	2005-04-18 11:19:14.000000000 +0100
+++ qr.R	2005-10-27 12:41:12.204974000 +0100
@@ -217,6 +217,7 @@
     if (!complete)
 	R <- R[seq(min(dim(R))), , drop = FALSE]
     R[row(R) > col(R)] <- 0
+    colnames(R)= colnames(R)[qr$pivot]
     R
 }
 
