Index: src/library/utils/R/Sweave.R
===================================================================
--- src/library/utils/R/Sweave.R	(revision 41020)
+++ src/library/utils/R/Sweave.R	(working copy)
@@ -854,7 +854,7 @@
         outfile <- paste(chunkprefix, options$engine, sep=".")
         if(!object$quiet)
             cat(options$chunknr, ":", outfile,"\n")
-        chunkout <- object$chunkout[[chunkprefix]]
+        chunkout <- object$chunkout[chunkprefix][[1]]
         if(is.null(chunkout)){
             chunkout <- file(outfile, "w")
             if(!is.null(options$label))
