diff --git a/designer/utslvcldebuger.tsf b/designer/utslvcldebuger.tsf
index 2c4efaf..b2e7966 100644
--- a/designer/utslvcldebuger.tsf
+++ b/designer/utslvcldebuger.tsf
@@ -939,7 +939,8 @@ type TTslDebuga=class(TCustomControl)
         if 0x0401=recvtype then
         begin
             //owner.echoAppendString(d["errmsg"]);
-            ExecuteCommand("showeval",d["errmsg"]);
+            //ExecuteCommand("showeval",d["errmsg"]);
+            ExecuteCommand("echo",d["errmsg"]);
             return;
         end
         if recvtype <> 0x402 then
@@ -1200,6 +1201,15 @@ type TTslDebuga=class(TCustomControl)
                 FShowText.Text += "ans="+tostn(p)+"\r\n";
                 FShowText.ExecuteCommand(FShowText.ecGotoXY,array(100000,1));
             end
+            "echo" :
+            begin
+                if ifstring(p) then 
+                begin
+                    FShowText.Text += p;  
+                    Ls := FShowText.Lines;
+                    FShowText.ExecuteCommand(FShowText.ecGotoXY,array(ls.length(),10000000));  
+                end     
+            end 
             "dbgcreatechannel":
             begin
                 if not FConnectchannel then