Index: XActivity.m
===================================================================
RCS file: /cvs/hive/Swarm/swarm/src/activity/XActivity.m,v
retrieving revision 1.25
diff -c -r1.25 XActivity.m
*** XActivity.m	1999/09/16 21:20:00	1.25
--- XActivity.m	1999/10/19 00:02:27
***************
*** 599,616 ****
      [registeredOwnerActivity->activitySet remove: self];
    if (activitySet)
      {
-       Activity_c *activity;
- 
        if ([activitySet getCount] > 0)
          {
            id index = [activitySet begin: scratchZone];
            
!           for (activity = [index next];
!                [index getLoc] == Member;
!                activity = [index next])
              {
!               [index remove];
                [index prev];
                [activity dropAllocations: components];
              }
            [index drop];
--- 599,615 ----
      [registeredOwnerActivity->activitySet remove: self];
    if (activitySet)
      {
        if ([activitySet getCount] > 0)
          {
            id index = [activitySet begin: scratchZone];
            
!           [index next];
!           while ([index getLoc] == Member)
              {
!               Activity_c *activity = [index remove];
! 
                [index prev];
+               [index next];
                [activity dropAllocations: components];
              }
            [index drop];