Correct status during PreTrack()

diff --git a/TFluka/source.cxx b/TFluka/source.cxx
index 148fbae8c15fbcfc153682cbc832f4299d7548fb..0e833e61826efd776ee7345a5542f704c240cc05 100644 (file)
--- a/TFluka/source.cxx
+++ b/TFluka/source.cxx
@@ -335,6 +335,7 @@ extern "C" {
 //  Pre-track actions at for primary tracks
 //
     if (particleIsPrimary) {
+       fluka->SetCaller(kSODRAW);
         TVirtualMCApplication::Instance()->BeginPrimary();
         TVirtualMCApplication::Instance()->PreTrack();
     }