From d763d3ddebb5590432bb3059feb37326271e4c7b Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Wed, 22 Mar 1989 16:41:38 +0000
Subject: [PATCH] fixed: beginpart must divert main stream

---
 util/ceg/defaults/pseudo/C_insertpart.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/util/ceg/defaults/pseudo/C_insertpart.c b/util/ceg/defaults/pseudo/C_insertpart.c
index 8e657b821..97c65a093 100644
--- a/util/ceg/defaults/pseudo/C_insertpart.c
+++ b/util/ceg/defaults/pseudo/C_insertpart.c
@@ -22,6 +22,7 @@ int d;
 	char *s;
 	swtxt();
 
+	C_jump(extnd_main( d));
 	symbol_definition(s = extnd_part( d));
 	set_local_visible(s);
 }
@@ -31,9 +32,12 @@ C_endpart( d)
 int d;
 
 {
+	char *s;
 	swtxt();
 
 	C_jump(extnd_cont( d));
+	symbol_definition(s = extnd_main( d));
+	set_local_visible(s);
 }
 
 
-- 
2.34.1