fix stick sensors on reload

it seems stick sensors are not installed properly sometimes
after restart. fix_stick_sensors is triggered for execution
on creation of an lsc object

tcl/seacom.tcl

@@ -652,6 +652,16 @@ proc stick_sensors {sensor1 sensor2} {
   }
 }
 
+proc fix_stick_sensors {} {
+  # fix stick sensors
+  foreach path {/tt/ts/curve /tt/ts_2/curve} {
+     set curv [silent "" hval $path]
+     if {$curv ne ""} {
+       hset $path $curv
+     }
+  }
+}
+
 proc ts_sensor {sensor} {
   catch {
     catch {