8a9
> #   Revision 2:  July 30, 2006 by Jan Sundermeyer
200,201d200
< 	 set dparams [lrange [lindex $elemdata 1] 1 end]
< 
216c215,216
< 
---
> 	 
> 	 set handle {}
222c222
< 		  if {[regexp {"(.+)"} $dstring temp pinname] > 0} {
---
> 	   if {[regexp {"(.+)"} $dstring temp pinname] > 0} {
229a230
> 	    set cds 1
231c232,237
< 	    set handle [label make normal $dstring {0 0}]
---
> 	 	set cds 0
> 	 }
>          foreach dparams [lrange $elemdata 1 end] {
>  	 if {$cds == 0} { 
> 		quiet_deselect
> 	 	set handle [label make normal $dstring {0 0}]
233d238
< 
290a296
> 	 }
311a318,319
>       } else {
>       	 return $net
335c343
< 	 parse_geometry [lindex $netString 0] [lrange $netString 1 end]      
---
>       	 parse_geometry [lindex $netString 0] [lrange $netString 1 end]      
814d821
< 	          symbolr -