--- calo/flight/CaloNuclei/src/CaloNuclei.cpp	2007/09/28 12:34:42	1.10
+++ calo/flight/CaloNuclei/src/CaloNuclei.cpp	2008/03/12 14:19:21	1.12
@@ -29,6 +29,7 @@
 
 void CaloNuclei::Clear(){
   //
+  UN = 0;
   tr = 0;
   sntr = 0;
   interplane = 0;
@@ -108,6 +109,7 @@
   if ( debug ) printf(" Processing event at OBT %u PKT %u time %u \n",OBT,PKT,atime);
   //
   Clear();
+  //
   if ( debug ) printf(" Always calculate stdedx1 \n");
   //
   // Always calculate stdedx1
@@ -140,7 +142,7 @@
   // find energy released along the strip of maximum on the first plane and on the two neighbour strips
   //
   if ( indx > 0 ){
-    Int_t mindx = (Int_t)TMath::LocMax(indx,stfpl);
+    Int_t mindx = (Int_t)TMath::LocMax(indx,vfpl);
     for (Int_t ii=0; ii<indx; ii++){
       if ( stfpl[ii] == stfpl[mindx] ) stdedx1 += vfpl[ii];
       if ( (mindx-1)>=0 && stfpl[ii] == stfpl[mindx-1] ) stdedx1 += vfpl[ii];
@@ -502,6 +504,7 @@
     };
     //
     qpremeanN /= (Float_t)RN;
+    UN = RN;
     //
     if ( debug ) printf(" charge is %f \n",sqrt(qpremean));
     //