diff --git a/Rlang-QQ.cabal b/Rlang-QQ.cabal
--- a/Rlang-QQ.cabal
+++ b/Rlang-QQ.cabal
@@ -1,5 +1,5 @@
 name: Rlang-QQ
-version: 0.1.0.0
+version: 0.1.0.1
 cabal-version: >=1.8
 build-type: Simple
 license: BSD3
diff --git a/examples/test3.hs b/examples/test3.hs
--- a/examples/test3.hs
+++ b/examples/test3.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE ViewPatterns #-} -- for pun
 {-# LANGUAGE DataKinds #-}
 {-# LANGUAGE TemplateHaskell, QuasiQuotes #-}
 module Main where
@@ -14,3 +15,8 @@
                 print(hs_inRec)
                 hs_inRec <- within(hs_inRec, y <- y + z) |]
     print ((o .!. (Label :: Label "inRec")) .!. y)
+
+
+    -- alternative to the above (shadows the label y)
+    let [pun| inRec{ y } |] = o
+    print y
diff --git a/examples/test3.ref b/examples/test3.ref
--- a/examples/test3.ref
+++ b/examples/test3.ref
@@ -1,1 +1,2 @@
 [4.0,4.0,4.0]
+[4.0,4.0,4.0]