diff --git a/src/runtime/haskell/PGF/Expr.hs b/src/runtime/haskell/PGF/Expr.hs
index df257c905..2357026ab 100644
--- a/src/runtime/haskell/PGF/Expr.hs
+++ b/src/runtime/haskell/PGF/Expr.hs
@@ -191,7 +191,8 @@ pTyped = do RP.skipSpaces
             return (ETyped e ty)
 
 pMeta = do RP.char '?'
-           return 0
+           ds <- RP.munch isDigit
+           return (read ('0':ds))
 
 pLit :: RP.ReadP Literal
 pLit = liftM LStr (RP.readS_to_P reads)