*** sfch_prog.f-with-as	2006-03-10 11:10:31.000000000 -0500
--- sfch_prog.f	2006-03-10 11:44:30.000000000 -0500
***************
*** 12543,12550 ****
  
            IF(DATA(1:1).NE.'?') CR_IRES=IDATA
  
!         ELSE IF((ITEM(12:26).EQ.'label_entity_id').OR.
!      *          (ITEM(12:24).EQ.'label_asym_id')) THEN
  C
  C             This data item is a pointer to _entity.id in the ENTITY category.
  C
--- 12543,12549 ----
  
            IF(DATA(1:1).NE.'?') CR_IRES=IDATA
  
!         ELSE IF(ITEM(12:26).EQ.'label_entity_id') THEN
  C
  C             This data item is a pointer to _entity.id in the ENTITY category.
  C
***************
*** 12556,12564 ****
  C              STRUCT_ASYM category.
  
            IF(DATA(1:1).NE.'?') THEN
              CR_CHAIN='  '
              L=LEND
!             IF(L.GT.2) L=2           
              CR_CHAIN(1:L)=DATA(1:L)
            ENDIF
  
--- 12555,12569 ----
  C              STRUCT_ASYM category.
  
            IF(DATA(1:1).NE.'?') THEN
+             CR_IGROUP=IDATA
+           ENDIF
+ 
+         ELSE IF(ITEM(12:24).EQ.'label_asym_id') THEN
+ 
+           IF(DATA(1:1).NE.'?') THEN
              CR_CHAIN='  '
              L=LEND
!             IF(L.GT.2) L=2
              CR_CHAIN(1:L)=DATA(1:L)
            ENDIF