   dataPtr <- liftIO $ cValueData vp
   metaPtr <- liftIO $ cValueMetadata vp
 
-  mds <- mapM translateMetadata metaPtr
+  mds <- mapM (translateMetadata finalState) metaPtr
 
   s <- get
   let cdepth = constantTranslationDepth s

  metaPtr <- liftIO $ cValueMetadata vp
  tt <- translateType finalState typePtr

  mds <- mapM translateMetadata metaPtr
  uid <- nextId

  let dataPtr' = castPtr dataPtr

      line <- liftIO $ cMetaTemplateValueLine mp
      col <- liftIO $ cMetaTemplateValueColumn mp

      ctxt' <- translateMetadataRec finalState ctxt
      ty' <- translateMetadataRec finalState ty

      return MetaDWTemplateValueParameter { metaTemplateValueParameterContext = ctxt'
                                          , metaTemplateValueParameterType = ty'
