From 9bab5d363cf147c42ab3bbe07928edbd6f76f11d Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Fri, 8 Dec 1989 15:04:37 +0000
Subject: [PATCH] Bug fix in ZRL decoding

---
 util/int/ChangeLog   | 3 +++
 util/int/do_incdec.c | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/util/int/ChangeLog b/util/int/ChangeLog
index be39ed3ef..41b5caed1 100644
--- a/util/int/ChangeLog
+++ b/util/int/ChangeLog
@@ -1,3 +1,6 @@
+ 8-Dec-89  Ceriel Jacobs (ceriel) at ceriel
+	Bug fix: one of the many ZRL encodings was decoded wrong.
+
 22-Nov-89  Ceriel Jacobs (ceriel) at ceriel
 	Some more speed-up changes, resulting in another 5%.
 
diff --git a/util/int/do_incdec.c b/util/int/do_incdec.c
index 2d3104164..db9081bf5 100644
--- a/util/int/do_incdec.c
+++ b/util/int/do_incdec.c
@@ -280,7 +280,7 @@ DoZRLn2(arg)
 
 	LOG(("@Z6 DoZRLn2(%ld)", l));
 	spoilFRA();
-	l = arg_l(arg);
+	l = arg_l(l);
 	st_stw(loc_addr(l), 0L);
 }