- A couple of small fixes for memory and initialization problems.

This is to make valgrind happy


SKIPPED:
	psi/amorscan.c
	psi/el734hp.c
	psi/psi.c
	psi/tasscan.c

tclev.c

@@ -328,7 +328,8 @@
      free(pPriv);
   }
 /*-----------------------------------------------------------------------*/
-  pEVDriver CreateTclDriver(int argc, char *argv[],char *pName, SConnection *pCon)
+  pEVDriver CreateTclDriver(int argc, char *argv[],char *pName, 
+			    SConnection *pCon)
   {
       pEVDriver pNew = NULL;
       pTclEv pPriv = NULL;
@@ -348,7 +349,7 @@
       memset(pPriv,0,sizeof(TclEv));
       
       /* find the names of all the functions we need in the Tcl Array */
-      pPriv->pTcl = pCon->pSics->pTcl;
+      pPriv->pTcl = InterpGetTcl(pServ->pSics);
       assert(pPriv->pTcl);
       pPriv->pArray = strdup(argv[0]);
       pPtr = Tcl_GetVar2(pPriv->pTcl,argv[0],"Init",TCL_GLOBAL_ONLY);