From e95492dfb0a7cec5ff2befbe2bae2f2de9fb1a8b Mon Sep 17 00:00:00 2001
From: bal <none@none>
Date: Wed, 23 Jan 1985 16:10:43 +0000
Subject: [PATCH] bug fixed in routine get_ca_lines(): test on nil-pointer.

---
 util/ego/ca/ca.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/util/ego/ca/ca.c b/util/ego/ca/ca.c
index 0f5ac615b..abf1779a7 100644
--- a/util/ego/ca/ca.c
+++ b/util/ego/ca/ca.c
@@ -90,7 +90,7 @@ STATIC line_p get_ca_lines(lf,p_out)
 		}
 	}
 	*pp = (line_p) 0;
-	if (INSTR(head) == ps_pro) {
+	if (head != (line_p) 0 && INSTR(head) == ps_pro) {
 		/* append register message without arguments to list */
 		l = newline(OPLIST);
 		l->l_instr = ps_mes;
-- 
2.34.1