X-Git-Url: http://lists.indexdata.com/cgi-bin?a=blobdiff_plain;f=ir-tcl.c;h=4650a77297ff600d48e1e622d74a1013822ea09d;hb=f74154d3c256f1147dfc5de059cf50ba2c4f0280;hp=e08c5952c96c1eb7424b86d45854016afd24ee05;hpb=1794dcecf70a6217c2ff44648154ec904091ab46;p=ir-tcl-moved-to-github.git

diff --git a/ir-tcl.c b/ir-tcl.c
index e08c595..4650a77 100644
--- a/ir-tcl.c
+++ b/ir-tcl.c
@@ -5,7 +5,10 @@
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: ir-tcl.c,v $
- * Revision 1.98  1997-04-13 18:57:20  adam
+ * Revision 1.99  1997-04-30 07:24:47  adam
+ * Spell fix of an error message.
+ *
+ * Revision 1.98  1997/04/13 18:57:20  adam
  * Better error reporting and aligned with Tcl/Tk style.
  * Rework of notifier code with Tcl_File handles.
  *
@@ -1200,7 +1203,7 @@ static int do_connect (void *obj, Tcl_Interp *interp,
         if ((r=cs_connect (p->cs_link, addr)) < 0)
         {
             ir_tcl_disconnect (p);
-            Tcl_AppendResult (interp, "conncet fail", NULL);
+            Tcl_AppendResult (interp, "connect fail", NULL);
             return ir_tcl_error_exec (interp, argc, argv);
         }
         ir_select_add (cs_fileno (p->cs_link), p);