diff --git a/tcl/startup/haake.tcl b/tcl/startup/haake.tcl
index 21f1b10..d9b85d1 100644
--- a/tcl/startup/haake.tcl
+++ b/tcl/startup/haake.tcl
@@ -8,7 +8,7 @@ proc makeHaake {{name thermostat} {with2sensors 0}} {
 proc haakeLayout {{name ""} args} {
   if {[string compare [sicsdescriptor th] notfound] == 0} return 
   set reset 1
-  if {! [result th running]} {
+  if {! [result th pumprunning]} {
     Style Warning
     Label pump not running
     NoNewline
@@ -61,7 +61,7 @@ proc haakeLayout {{name ""} args} {
     set reset 0
   }
   Newline
-  CheckBox "pump running" "th running"
+  CheckBox "pump running" "th pumprunning"
   CheckBox "confirm alarm" "th reset/$reset"
   Tip "check this if an external sample sensor is used"
   if {[result th with2sensors] >= 0} {