diff --git a/Fltk/onelabGroup.cpp b/Fltk/onelabGroup.cpp
index 1fbd26f20eb29d911a9935a192328fa57b187f15..262c90cbd124a4590b1edb9d263cc5a356fac8d0 100644
--- a/Fltk/onelabGroup.cpp
+++ b/Fltk/onelabGroup.cpp
@@ -537,6 +537,11 @@ void onelab_cb(Fl_Widget *w, void *data)
     action = "check";
   }
 
+  if(FlGui::instance()->onelab->isBusy()){
+    Msg::Info("I'm busy! Ask me that later...");
+    return;
+  }
+
   FlGui::instance()->onelab->setButtonMode("", "stop");
 
   if(action == "compute") initializeLoops();
diff --git a/demos/indheat.geo b/demos/indheat.geo
index 75cab3f36903cbe163e59307e198983f15ede48c..e5e5775c643cfce4d6dd58561ed81359e312382f 100644
--- a/demos/indheat.geo
+++ b/demos/indheat.geo
@@ -12,8 +12,8 @@ DefineConstant
  rt2 = {0.092, Label "Tube external radius", Path "Parameters"},
  lb = {1, Label "Infinite box width", Path "Parameters"},
  left = {1, Choices{0,1}, Label "Terminals on the left?", Path "Parameters"}
- macro = {"title.script", Label "Run my macro!", Path "Actions",
-          Macro "Gmsh", AutoCheck "0"},
+ macro = {"title.script", Label "Add title", Path "Macros",
+          Macro "Gmsh", AutoCheck "0", Highlight "Turquoise"},
  showLines = {Geometry.Lines, Choices {0,1}, Label "Show lines?", Path "Options",
               GmshOption "Geometry.Lines", AutoCheck "0"}
 ];