diff --git a/src/base/rbase.ml b/src/base/rbase.ml
index c36d3bb..cf63372 100644
--- a/src/base/rbase.ml
+++ b/src/base/rbase.ml
@@ -104,7 +104,7 @@ end
 
 let listing r = new listing r
 
-let subset2 = R.symbol ~generic: true "[[.data.frame"
+let subset2 = R.symbol ~generic: true ".subset2"
 
 class ['a] dataframe r = object (self)
   inherit ['a] listing r
diff --git a/src/syntax/pa_r.ml b/src/syntax/pa_r.ml
index dca1852..4089df8 100644
--- a/src/syntax/pa_r.ml
+++ b/src/syntax/pa_r.ml
@@ -76,7 +76,7 @@ module Make (Syntax : Sig.Camlp4Syntax) = struct
     let obj_type = fresh_type _loc in
     let constr =
       let y = random_var () in
-      <:expr< fun () -> let _ : Rbase.compound $obj_type$ = $lid:x$#compound in 
+      <:expr< fun () -> let (_ : Rbase.compound (< .. > as $obj_type$)) = $lid:x$#compound in 
                         fun ($lid:y$ : $obj_type$) -> ($lid:y$#$m$ : $comp_type$) >>
     in
     <:expr< let $lid:x$ = $e$ in