diff --git a/src/Transfer/Interpreter.hs b/src/Transfer/Interpreter.hs
index 78b004c8d..d7783a96c 100644
--- a/src/Transfer/Interpreter.hs
+++ b/src/Transfer/Interpreter.hs
@@ -186,6 +186,7 @@ valueToExp v =
            VClos env e  -> e
            VCons c vs -> foldl EApp (EVar c) (map valueToExp vs)
            VPrim _    -> EVar (CIdent "<<primitive>>") -- FIXME: what to return here?
+           VMeta n    -> EMeta $ TMeta $ "?" ++ show n
 
 --
 -- * Pretty printing of values