From 2b38f7bcfa89419a2e98799adb3627f26a7e9e53 Mon Sep 17 00:00:00 2001
From: zimoch <zimoch>
Date: Wed, 23 Oct 2013 14:36:35 +0000
Subject: [PATCH] .

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

diff --git a/streamApp/terminal.tcl b/streamApp/terminal.tcl
index dfbd9ec..999c48d 100755
--- a/streamApp/terminal.tcl
+++ b/streamApp/terminal.tcl
@@ -91,7 +91,7 @@ proc receiveHandler {sock} {
             "start" {
                 set wait [checkNum [lindex $l 1]]
                 set ::counter 0
-                after $wait sendAsync $wait [list [lrange $l 2 end-1]]
+                after $wait [list sendAsync $wait "[string range $a [string wordend $a 7] end]"]
                 sendReply $sock "Started\n"
             }
             "stop" {
@@ -133,7 +133,7 @@ proc receiveHandler {sock} {
 proc sendAsync {wait message} {
     if {$::counter < 0} return
     foreach term [array names ::socket] {
-        sendReply $::socket($term) "Message number [incr ::counter] $message\n";
+        sendReply $::socket($term) "Message number [incr ::counter]$message";
     }
     after $wait sendAsync $wait [list $message]
 }