diff --git a/util/ceg/ce_back/as_back/bottom.c b/util/ceg/ce_back/as_back/bottom.c
index e47c39316..c4481125b 100644
--- a/util/ceg/ce_back/as_back/bottom.c
+++ b/util/ceg/ce_back/as_back/bottom.c
@@ -109,3 +109,11 @@ int d;
 	sprint( name, "cont%x", d);
 	return( name);
 }
+
+
+char *extnd_main( d)
+int d;
+{
+	sprint( name, "main%x", d);
+	return( name);
+}
diff --git a/util/ceg/ce_back/obj_back/extnd.c b/util/ceg/ce_back/obj_back/extnd.c
index 5cccc4f0f..221fb086f 100644
--- a/util/ceg/ce_back/obj_back/extnd.c
+++ b/util/ceg/ce_back/obj_back/extnd.c
@@ -119,3 +119,12 @@ int d;
         index_symbol_table = find_sym( string, STORE_STRING);
 	return( symbol_table[ index_symbol_table].on_foff + string_area);
 }
+
+
+char *extnd_main( d)
+int d;
+{
+	string_lengte = mysprint( "%cmcnt%x", GENLAB, d);
+        index_symbol_table = find_sym( string, STORE_STRING);
+	return( symbol_table[ index_symbol_table].on_foff + string_area);
+}