Index: mttroot/mtt/bin/trans/m/rbg2ibg.m
==================================================================
--- mttroot/mtt/bin/trans/m/rbg2ibg.m
+++ mttroot/mtt/bin/trans/m/rbg2ibg.m
@@ -71,11 +71,11 @@
 	     port_coord(i,1)/scale, port_coord(i,2)/scale, \
 	     deblank(port_name(i,:))));
     endif
     
     ## The (signed) bond corresponding to the ith port label
-    port_bond(i) = near_bond(1) * sign(1.5 - near_bond(2));
+    port_bond(i,1) = near_bond(1) * sign(1.5 - near_bond(2));
   endfor
   port_bond
 
   ## Now have (signed) bond (port_bond(i)) corresponding to the ith port
   ## Create inverse mapping