fixed small bugs/unproper code

tclev.c

@@ -334,7 +334,8 @@
       pEVDriver pNew = NULL;
       pTclEv pPriv = NULL;
       int iRet;
-      char *pPtr = NULL;
+      /* the "const" saves us from a couple of warnings M.Z.*/
+      const char *pPtr = NULL;
       
       if(argc < 1)/* we expect a Tcl array with all data */
       {
@@ -478,7 +479,7 @@
   {
      pTclEv pPriv = NULL;
      char pBueffel[132];
-     char *pPtr = NULL;
+     const char *pPtr = NULL;
      
      assert(self);
      pPriv = (pTclEv)self->pPrivate;