diff --git a/tcl/drivers/ccu4.tcl b/tcl/drivers/ccu4.tcl
index 8c99f2e..576a6c0 100644
--- a/tcl/drivers/ccu4.tcl
+++ b/tcl/drivers/ccu4.tcl
@@ -123,7 +123,7 @@ proc stdConfig::ccu4 {{title CCU4} args} {
 
     node hav out
     prop newline 1
-    prop enum 1
+    prop enum none,int,ext
     prop label "He lev. available"
   
     node h upd -secop=helev
diff --git a/tcl/drivers/ccu4ext.tcl b/tcl/drivers/ccu4ext.tcl
index 4c56ec6..4292795 100644
--- a/tcl/drivers/ccu4ext.tcl
+++ b/tcl/drivers/ccu4ext.tcl
@@ -143,6 +143,9 @@ proc ccu4ext::fillExt {type} {
   } else {
     set valve [sctval /cc/hv]
     set auto [sctval /cc/ha]
+    if {[sctval /cc/hav] != 2} {  # must be on 2=ext
+      hset /cc/hav 2
+    }
   }
   set errtxt ""
   set sm [expr [DoubleTime] > [silent 0 sct change_time] + 10]
diff --git a/tcl/drivers/hcp.tcl b/tcl/drivers/hcp.tcl
index 97a7604..a4e8f65 100644
--- a/tcl/drivers/hcp.tcl
+++ b/tcl/drivers/hcp.tcl
@@ -12,7 +12,9 @@ proc stdConfig::hcp {} {
   prop update hcp::update
   prop complete hcp::complete
 
-  obj hcp rd
+  obj hcp wr
+  prop check hcp::setMain
+  prop write hcp::writeMain
   prop reg M0
   kids "high voltage" {
 
@@ -53,6 +55,14 @@ proc stdConfig::hcp {} {
 }
 
 
+proc hcp::setMain {} {
+  hset [sct]/set [sct target]
+}
+
+proc hcp::writeMain {} {
+  return hcp::read
+}
+
 proc hcp::read {} {
   sct send ">[sct reg]?"
   return update
diff --git a/tcl/drivers/magfield.tcl b/tcl/drivers/magfield.tcl
index 23a7192..0f14003 100644
--- a/tcl/drivers/magfield.tcl
+++ b/tcl/drivers/magfield.tcl
@@ -247,8 +247,13 @@ proc magfield::run {} {
     if {[sct phase] != 0 || abs($tf - $pf) > $tol || $pm != 1} {
       # we have to go to persistent field
       if {![sct leads_at_field]} {
+        if {[sct phase] == 2 &&  $now > [silent $now sct start_phase2] + 300} {
+          sct phase 1
+          clientlog "timeout ramping to persistent field -> redo"
+        }
         if {[sct phase] < 2} {
           sct phase 2 ;# ramping leads to field 
+          sct start_phase2 $now
           msg "ramp to persistent field $pf"
           lassign [check_field $pf] ok
           if {!$ok} {
diff --git a/tcl/ma10.config b/tcl/ma10.config
index bc041b8..0b3f939 100644
--- a/tcl/ma10.config
+++ b/tcl/ma10.config
@@ -15,6 +15,9 @@ makenv tt -driver [lsdriver] {
 tt set/limit 310
 
 makeCCU4 ma10 nv_release_blocked he_ilm
+hefill minfillminutes 20
+hefill maxfillminutes 60
+
 hupdate /nv/set 1.8
 
 makenv mf -driver ipsmag -port ma10-ts:3001 -controller _mf
diff --git a/tcl/ma10.stick b/tcl/ma10.stick
index 1b2a5bd..7eb07c2 100644
--- a/tcl/ma10.stick
+++ b/tcl/ma10.stick
@@ -1,4 +1,4 @@
 stickDesc = standard MA10 stick
 
 #stick_sensors x88932 code=22000    #until May 2023
-stick_sensors x154359 none
+stick_sensors x154359 undefined
diff --git a/tcl/petra.stick b/tcl/petra.stick
index b75b5fb..28bd8f3 100644
--- a/tcl/petra.stick
+++ b/tcl/petra.stick
@@ -1,3 +1,3 @@
 stickDesc = uniax press stick for Petra III
 
-stick_sensors x132254 none
+stick_sensors x132254 undefined