Index: calcoutRecord.c
===================================================================
RCS file: /net/phoebus/epicsmgr/cvsroot/epics/base/src/rec/calcoutRecord.c,v
retrieving revision 1.22.2.3
diff -u -r1.22.2.3 calcoutRecord.c
--- calcoutRecord.c	6 Jul 2004 14:13:09 -0000	1.22.2.3
+++ calcoutRecord.c	15 Feb 2006 21:57:31 -0000
@@ -254,6 +254,7 @@
                 pcalc->pact = FALSE;
                 execOutput(pcalc);
                 if(pcalc->pact) return(0);
+                pcalc->pact = TRUE;
             }
         }
     } else { /*pact==TRUE*/