fix sitck sensor stuff

- code not found in stick table -> must match with code undefined
- fix_stick_sensors must use sctval, not hval

tcl/seacom.tcl

@@ -628,7 +628,7 @@ proc stick_sensors {sensor1 sensor2} {
   source config/stick.list
   if {[string match "code*" $sensor2]} {
     set code [lindex [split $sensor2=0 =] 1]
-    set table_code [silent -1 set stick_cfgtable($stick_name)]
+    set table_code [silent 0 set stick_cfgtable($stick_name)]
     if {$table_code != $code} {
       clientput "ERROR: code $code in $stick_name.stick does not match value from config/sticklist: $table_code"
     }
@@ -655,7 +655,7 @@ 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]
+     set curv [silent "" sctval $path]
      if {$curv ne ""} {
        hset $path $curv
      }