From f125bf1f28bc40bc171fdd3f3217383beb7d20ae Mon Sep 17 00:00:00 2001
From: l_samenv <l_samenv@samenv.psi.ch>
Date: Fri, 28 Feb 2025 11:27:34 +0100
Subject: [PATCH] ah2700: fix issue with detecting echo

---
 tcl/drivers/ah2700.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tcl/drivers/ah2700.tcl b/tcl/drivers/ah2700.tcl
index 8cdeccc..559ffbc 100644
--- a/tcl/drivers/ah2700.tcl
+++ b/tcl/drivers/ah2700.tcl
@@ -51,7 +51,7 @@ proc ah2700::start {} {
 
 proc ah2700::start1 {} {
   set prefix [lindex [sct result] 0]
-  if {$prefix eq "UN"} { # this was the echo
+  if {$prefix eq "UN" || $prefix eq ">UN"} { # this was the echo
     sct send "SERIAL ECHO OFF"
     return ah2700::start
   }
@@ -76,7 +76,7 @@ proc ah2700::read {} {
 proc ah2700::update {} {
   # analyze result: _ is a placeholder for text words
   lassign [string map {"=" "= "} [sct result]] prefix f _ _ c _ _ l un _ v
-  if {$prefix eq "SI"} {
+  if {$prefix eq "SI" || $prefix eq ">SI"} { # this was the echo
     sct send "\r\nSERIAL ECHO OFF\r"
     return stdSct::complete
   }