Index: R/src/library/stats/R/ftable.R
===================================================================
--- R/src/library/stats/R/ftable.R	(revision 37549)
+++ R/src/library/stats/R/ftable.R	(working copy)
@@ -151,7 +151,7 @@
     x
 }
 
-write.ftable <- function(x, file = "", quote = TRUE,
+write.ftable <- function(x, file = "", append = FALSE, quote = TRUE,
                          digits = getOption("digits"))
 {
     if(!inherits(x, "ftable"))
@@ -191,7 +191,8 @@
                   format(unclass(x), digits = digits))
     x <- cbind(apply(LABS, 2, format, justify = "left"),
                apply(DATA, 2, format, justify = "right"))
-    cat(t(x), file = file, sep = c(rep(" ", ncol(x) - 1), "\n"))
+    cat(t(x), file = file, append = append,
+        sep = c(rep(" ", ncol(x) - 1), "\n"))
     invisible(ox)
 }