dereference encoding register in crypto_data_decrypt (#1650)

diff --git a/src/machine/system_calls.rs b/src/machine/system_calls.rs
index 0006f53fee1ab09b38967edf15bc54d50790f7eb..87ab9e4889a250e48da556a1a39de148c9c30a70 100644 (file)
--- a/src/machine/system_calls.rs
+++ b/src/machine/system_calls.rs
@@ -6318,7 +6318,7 @@ impl Machine {
     #[inline(always)]
     pub(crate) fn crypto_data_decrypt(&mut self) {
         let data = self.string_encoding_bytes(self.machine_st.registers[1], atom!("octet"));
-        let encoding = cell_as_atom!(self.machine_st.registers[5]);
+        let encoding = cell_as_atom!(self.machine_st.store(self.machine_st.deref(self.machine_st.registers[5])));
 
         let aad = self.string_encoding_bytes(self.machine_st.registers[2], encoding);
         let stub1_gen = || functor_stub(atom!("crypto_data_decrypt"), 7);