diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -2,6 +2,12 @@
 
 `hslua-objectorientation` uses [PVP Versioning][].
 
+## hslua-objectorientation-2.2.0
+
+Released 2022-02-19.
+
+-   Require version 2.2 of hslua-core and hslua-marshalling.
+
 ## hslua-objectorientation-2.1.0
 
 Released 29-01-2022.
diff --git a/hslua-objectorientation.cabal b/hslua-objectorientation.cabal
--- a/hslua-objectorientation.cabal
+++ b/hslua-objectorientation.cabal
@@ -1,6 +1,6 @@
 cabal-version:       2.2
 name:                hslua-objectorientation
-version:             2.1.0
+version:             2.2.0
 synopsis:            Object orientation tools for HsLua
 description:         Expose Haskell objects to Lua with an object oriented
                      interface.
@@ -35,8 +35,8 @@
                      , bytestring        >= 0.10.2 && < 0.12
                      , containers        >= 0.5.9  && < 0.7
                      , exceptions        >= 0.8    && < 0.11
-                     , hslua-core        >= 2.1    && < 2.2
-                     , hslua-marshalling >= 2.1    && < 2.2
+                     , hslua-core        >= 2.2    && < 2.3
+                     , hslua-marshalling >= 2.2    && < 2.3
                      , mtl               >= 2.2    && < 2.3
                      , text              >= 1.2    && < 2.1
   ghc-options:         -Wall
diff --git a/src/HsLua/ObjectOrientation.hs b/src/HsLua/ObjectOrientation.hs
--- a/src/HsLua/ObjectOrientation.hs
+++ b/src/HsLua/ObjectOrientation.hs
@@ -385,7 +385,7 @@
 -- | Pushes a userdata value of the given type.
 pushUD :: LuaError e => UDTypeWithList e fn a itemtype -> a -> LuaE e ()
 pushUD ty x = do
-  newhsuserdata x
+  newhsuserdatauv x 1
   pushUDMetatable ty
   setmetatable (nth 2)
   -- add list as value in caching table
@@ -394,18 +394,18 @@
     Just ((_, toList), _) -> do
       newtable
       pushName "__lazylist"
-      newhsuserdata (toList x)
+      newhsuserdatauv (toList x) 1
       void (newudmetatable lazyListStateName)
       setmetatable (nth 2)
       rawset (nth 3)
-      setuservalue (nth 2)
+      void (setiuservalue (nth 2) 1)
 
 -- | Retrieves a userdata value of the given type.
 peekUD :: LuaError e => UDTypeWithList e fn a itemtype -> Peeker e a
 peekUD ty idx = do
   let name = udName ty
   x <- reportValueOnFailure name (`fromuserdata` name) idx
-  (`lastly` pop 1) $ liftLua (getuservalue idx) >>= \case
+  (`lastly` pop 1) $ liftLua (getiuservalue idx 1) >>= \case
     TypeTable -> do
       -- set list
       xWithList <- maybe pure setList (udListSpec ty) x