$NetBSD: patch-aa,v 1.4 2000/09/03 12:57:22 wiz Exp $
--- tcl/protocol.tcl.orig	Thu Jun 29 10:13:05 2000
+++ tcl/protocol.tcl	Mon Jun  1 14:53:11 1998
@@ -379,20 +379,20 @@
 proc ICB:PERSONAL {sender args} {
     TabHist:Add $sender
 
-    UTIL:EchoArgs [list $sender personal] "<*$sender*> " $args
+    UTIL:EchoArgs [list $sender personal] "[UTIL:TimeStamp] <*$sender*> " $args
 }
 
 proc ICB:OPEN {sender args} {
-    UTIL:EchoArgs [list $sender open] "<$sender> " $args
+    UTIL:EchoArgs [list $sender open] "[UTIL:TimeStamp] <$sender> " $args
 }
 
 proc ICB:ERROR {args} {
-    UTIL:EchoArgs error "\[=Error=\] " $args
+    UTIL:EchoArgs error "[UTIL:TimeStamp] \[=Error=\] " $args
 }
 
 proc ICB:BEEP {sender args} {
     TabHist:Add $sender
-    UI:Output -type beep "\[=Beep!=\] $sender sent you a beep."
+    UI:Output -type beep "[UTIL:TimeStamp] \[=Beep!=\] $sender sent you a beep."
 }
 
 proc ICB:STATUS {code argList} {
@@ -410,15 +410,15 @@
 
     case $code {
 	Notify-On {
-	    set prefix "\[=ON  @ $timeStamp=\]"
+	    set prefix "[UTIL:TimeStamp] \[=ON=\]"
 	}
 
 	Notify-Off {
-	    set prefix "\[=OFF @ $timeStamp=\]"
+	    set prefix "[UTIL:TimeStamp] \[=OFF=\]"
 	}
 
 	default {
-	    set prefix "\[=$code=\]"
+	    set prefix "[UTIL:TimeStamp] \[=$code=\]"
 	}
     }
 
@@ -429,11 +429,11 @@
     #
     # This doesn't seem to have any purpose.
     #
-    # UI:Output -type loginok "\[=LOGINOK=\] $sender $args"
+    # UI:Output -type loginok "[UTIL:TimeStamp] \[=LOGINOK=\] $sender $args"
 }
 
 proc ICB:IMPORTANT {sender args} {
-    UTIL:EchoArgs important "\[=$sender@[UTIL:TimeStamp]=\] " $args
+    UTIL:EchoArgs important "[UTIL:TimeStamp] \[=$sender@[UTIL:TimeStamp]=\] " $args
 }
 
 proc ICB:EXIT {sender args} {
@@ -445,7 +445,7 @@
 }
 
 proc ICB:PONG {sender args} {
-    UTIL:EchoArgs pong "\[=PONG=\] $sender " $args
+    UTIL:EchoArgs pong "[UTIL:TimeStamp] \[=PONG=\] $sender " $args
 }
 
 proc ICB:AddConnectCallBack {command} {