From 044c59d76e2d06cc690f8bbec4373b481bbfddf0 Mon Sep 17 00:00:00 2001
From: Oldes <oldes.huhuman@gmail.com>
Date: Sun, 10 Apr 2022 13:49:45 +0200
Subject: [PATCH] FIX: using set-words in the `dh parameters` parse rule

---
 src/mezz/codec-ssh-key.reb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/mezz/codec-ssh-key.reb b/src/mezz/codec-ssh-key.reb
index aace2608f9..26607c056f 100644
--- a/src/mezz/codec-ssh-key.reb
+++ b/src/mezz/codec-ssh-key.reb
@@ -145,8 +145,8 @@ wrap [
 				"DH PARAMETERS" [
 					parse data [
 						'SEQUENCE into [
-							'INTEGER set p binary!
-							'INTEGER set g binary!
+							'INTEGER set p: binary!
+							'INTEGER set g: binary!
 						] (
 							return dh-init :g :p
 						)