Index: mttroot/mtt/bin/trans/m/cbg2ese.m
==================================================================
--- mttroot/mtt/bin/trans/m/cbg2ese.m
+++ mttroot/mtt/bin/trans/m/cbg2ese.m
@@ -21,10 +21,13 @@
 # ###############################################################
 # ## Version control history
 # ###############################################################
 # ## $Id$
 # ## $Log$
+# ## Revision 1.26  1998/08/24 14:53:55  peterg
+# ## Uses new _cbg structure.
+# ##
 # ## Revision 1.25  1998/07/28 19:05:12  peterg
 # ## Sttill has vector SS port bug?
 # ##
 # ## Revision 1.24  1998/07/27 10:26:02  peterg
 # ## No change - but fixed bug in alias_args
@@ -205,18 +208,17 @@
 				#eval([ "[comp_type,comp_name,cr,args,repetitions] = ", cmp_name, "(i)"]);
     	
 				# Alias the args list -- if not at top level
     	message = sprintf("\tfor component  %s (%s) within %s",\
 			  comp_name,subsystem.type,full_name);    
-    	if (length(system_args)>0)
+    	if struct_contains(subsystem,"alias")
 	  subsystem.arg = alias_args(subsystem.arg,subsystem.alias,";",message,infofilenum)
-    	endif;
-    	if (length(system_cr)>0)
 	  subsystem.cr = alias_args(subsystem.cr,subsystem.alias,";",message,infofilenum)
     	endif;
+
 	
-				# Substitute positional ($1 etc) arguments
+			# Substitute positional ($1 etc) arguments
     	subsystem.cr = subs_arg(subsystem.cr,system_cr, ...
 				"lin",full_name,subsystem.type,comp_name,infofilenum);
     	subsystem.arg = subs_arg(subsystem.arg,system_args, ...
 				 "1",full_name,subsystem.type,comp_name,infofilenum);