diff --git a/molcas/block_calldmrg.C b/molcas/block_calldmrg.C
index 248e4f0..c5c67ac 100644
--- a/molcas/block_calldmrg.C
+++ b/molcas/block_calldmrg.C
@@ -131,7 +131,7 @@ void block_calldmrg (
     fcon << "end" << endl;
 
     if(Restart == 0) {
-      fcon << "warmup local_3site" << endl;
+      fcon << "warmup local_4site" << endl;
     }
     else {
       if(Restart == 1 && N_roots > 1)