diff --git a/src/runtime/haskell/LPGF.hs b/src/runtime/haskell/LPGF.hs
index 7eda7c2a7..5f977a29a 100644
--- a/src/runtime/haskell/LPGF.hs
+++ b/src/runtime/haskell/LPGF.hs
@@ -154,6 +154,7 @@ eval cxt t = case t of
   Projection t u ->
     case (eval cxt t, eval cxt u) of
       (Missing f, _) -> Missing f
+      (Tuple vs, Missing _) -> vs !! 0 -- imitate PGF behaviour
       (_, Missing f) -> Missing f
       (Tuple vs, Ix i) -> vs !! (i-1)
       (t', tv@(Tuple _)) -> eval cxt $ foldl Projection t' (flattenTuple tv)