--- chol.R.orig	2005-04-18 11:19:15.000000000 +0100
+++ chol.R	2005-10-27 13:44:12.245692000 +0100
@@ -33,6 +33,7 @@
                       DUP = FALSE, PACKAGE = "base")
         if (!pivot && z$rank < n)
             stop("matrix not positive definite")
+        colnames(z$x) <- colnames(z$x)[z$piv]
         robj <- z$x
         if (pivot) {
             attr(robj, "pivot") <- z$piv
