diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test
index 15fa0c365e91679b4a60a3563419b4738baaa52d..61355823930337b63f03cd5e659178ddf8d6618d 100644
--- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test
@@ -11921,6 +11921,12 @@ numeric(0)
  [6]  0.027343750 -0.020507812  0.016113281 -0.013092041  0.010910034
 [11] -0.009273529
 
+##com.oracle.truffle.r.test.builtins.TestBuiltin_class.testGetClass
+#{  gen<-function(object) 0; setGeneric("gen"); class(gen) }
+[1] "standardGeneric"
+attr(,"package")
+[1] "methods"
+
 ##com.oracle.truffle.r.test.builtins.TestBuiltin_class.testGetClass
 #{x<-1;class(x)}
 [1] "numeric"
@@ -93170,6 +93176,32 @@ Error in match(x, table, nomatch = 0L) :
 #{ e <- quote(f(x=a, y=b)); names(e[-1]) }
 [1] "x" "y"
 
+##com.oracle.truffle.r.test.library.base.TestSimpleVectors.testLanguageIndex
+#{ x<-quote(function(x, y) 42); names(x[[2]]) }
+[1] "x" "y"
+
+##com.oracle.truffle.r.test.library.base.TestSimpleVectors.testLanguageIndex
+#{ x<-quote(function(x, y) 42); typeof(x[[2]][[1]]) }
+[1] "symbol"
+
+##com.oracle.truffle.r.test.library.base.TestSimpleVectors.testLanguageIndex
+#{ x<-quote(function(x, y) 42); x[[2]] }
+$x
+
+
+$y
+
+
+
+##com.oracle.truffle.r.test.library.base.TestSimpleVectors.testLanguageIndex
+#{ x<-quote(function(x, y=7) 42); x[[2]] }
+$x
+
+
+$y
+[1] 7
+
+
 ##com.oracle.truffle.r.test.library.base.TestSimpleVectors.testLengthUpdate
 #{ k <- c(1,2,3) ; length(k) <- 5 ; k }
 [1]  1  2  3 NA NA