diff --git a/src/Bindings/HDF5/Dataspace.hsc b/src/Bindings/HDF5/Dataspace.hsc
index 4915799..5ae719b 100644
--- a/src/Bindings/HDF5/Dataspace.hsc
+++ b/src/Bindings/HDF5/Dataspace.hsc
@@ -141,7 +141,7 @@ encodeDataspace (Dataspace space_id) =
     withOutByteString $ \buf bufSz ->
         withInOut_ bufSz $ \ioBufSz ->
             withErrorCheck_ $
-            h5s_encode1 space_id buf ioBufSz
+            h5s_encode space_id buf ioBufSz
 
 decodeDataspace :: BS.ByteString -> IO Dataspace
 decodeDataspace bs = BS.unsafeUseAsCString bs $ \buf ->
diff --git a/src/Bindings/HDF5/Raw/H5S.hsc b/src/Bindings/HDF5/Raw/H5S.hsc
index 00b14f6..72a38c6 100644
--- a/src/Bindings/HDF5/Raw/H5S.hsc
+++ b/src/Bindings/HDF5/Raw/H5S.hsc
@@ -174,9 +174,9 @@ import Foreign.Ptr.Conventions
 #if H5_VERSION_GE(1,12,0)
 # ccall H5Sencode2, <hid_t> -> OutArray CChar -> InOut <size_t> -> <hid_t> -> IO <herr_t>
 # ccall H5Sencode1, <hid_t> -> OutArray CChar -> InOut <size_t> -> IO <herr_t>
+h5s_encode = h5s_encode1
 #else
 # ccall H5Sencode,  <hid_t> -> OutArray CChar -> InOut <size_t> -> IO <herr_t>
-h5s_encode1 = h5s_encode
 #endif
 
 -- |Decode a binary object description of dataspace and