Index: mttroot/mtt/bin/trans/m/rbg2abg.m
==================================================================
--- mttroot/mtt/bin/trans/m/rbg2abg.m
+++ mttroot/mtt/bin/trans/m/rbg2abg.m
@@ -5,10 +5,13 @@
   ## ###############################################################
   ## ## Version control history
   ## ###############################################################
   ## ## $Id$
   ## ## $Log$
+  ## ## Revision 1.45  1999/10/19 02:13:31  peterg
+  ## ## Now assigns correct bonds to the new junction port names
+  ## ##
   ## ## Revision 1.44  1999/10/19 00:05:44  peterg
   ## ## Now defaults junction ports when only one specified (for vector junctions)
   ## ##
   ## ## Revision 1.43  1999/10/18 04:08:46  peterg
   ## ## Now computes n_vector_bonds -- number apparent (maybe vector) bonds per component.
@@ -555,11 +558,16 @@
     direction = sign(signed_bond_list);
     
     ##Find the port list for this component
     if exist([comp_type, '_cause'])==0
       eval(["ABG = ",comp_type, "_abg;"]);
-      port_list = ABG.portlist;
+      if struct_contains (ABG, "portlist")
+	port_list = ABG.portlist;
+      else
+	error(sprintf("Component %s has no ports", comp_type));
+        port_list = [];
+      endif
     else
       port_list=comp_ports(comp_type,n_comp_bonds)
     endif