Index: src/library/base/man/deparse.Rd
===================================================================
--- src/library/base/man/deparse.Rd	(revision 78196)
+++ src/library/base/man/deparse.Rd	(working copy)
@@ -28,7 +28,7 @@
     See \code{\link{.deparseOpts}}.}
   \item{nlines}{integer: the maximum number of lines to produce.
     Negative values indicate no limit.}
-  \item{collapse}{a string, passed to \code{\link{parse}()}.}
+  \item{collapse}{a string, passed to \code{\link{paste}()}.}
   \item{\dots}{further arguments passed to \code{deparse()}.}
 }
 \details{
Index: src/library/stats/R/aov.R
===================================================================
--- src/library/stats/R/aov.R	(revision 78196)
+++ src/library/stats/R/aov.R	(working copy)
@@ -48,7 +48,7 @@
     } else {
 	if(pmatch("weights", names(Call), 0L))
             stop("weights are not supported in a multistratum aov() fit")
-        deparseb <- function(expr) deparse(expr, width.cutoff = 500L, backtick = TRUE)
+        deparseb <- function(expr) deparse1(expr, width.cutoff = 500L, backtick = TRUE)
         ##  Helmert contrasts can be helpful: do we want to force them?
         ##  this version does for the Error model.
         opcons <- options("contrasts")