Index: mttroot/mtt/bin/trans/m/rbg2abg.m
==================================================================
--- mttroot/mtt/bin/trans/m/rbg2abg.m
+++ mttroot/mtt/bin/trans/m/rbg2abg.m
@@ -3,10 +3,13 @@
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% Version control history
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% $Id$
 % %% $Log$
+% %% Revision 1.33  1998/07/02 17:16:06  peterg
+% %% Commented out redundent code -- obsolete due to new default mechanism
+% %%
 % %% Revision 1.32  1998/07/02 15:12:05  peterg
 % %% Added hard error reporting
 % %% Added error when two unlabled bonds point in.
 % %%
 % %% Revision 1.31  1998/07/02 14:30:50  peterg
@@ -152,10 +155,15 @@
 % Find number of components
 [n_components,columns] = size(rcomponents);
 
 % Find the number of ports refered to within the component
 [n_ports,columns] = size(port_coord)
+
+% If port_name is empty, make it a empty string
+if (length(port_name)==0)
+  port_name="";
+end
 
 % Determine coordinates of the arrow end of the bond and the other end
 other_end_1 = rbonds(:,1:2);
 arrow_end   = rbonds(:,3:4);
 other_end_2 = rbonds(:,5:6);