diff --git a/evcontroller.c b/evcontroller.c
index 80429bda..2c93dce7 100644
--- a/evcontroller.c
+++ b/evcontroller.c
@@ -1116,6 +1116,7 @@
             pNew = CreateEVController(pDriv,argv[2],&iRet);
             if(!pNew)
             {
+               TecsError(pDriv, &iRet, pError, sizeof(pError)-1);
                SCWrite(pCon,"ERROR creating Environment Controller",eError);
                DeleteEVDriver(pDriv);
                return 0;
diff --git a/tecsdriv.c b/tecsdriv.c
index 6d395e49..42024e95 100644
--- a/tecsdriv.c
+++ b/tecsdriv.c
@@ -64,11 +64,6 @@
 
 #include "evdriver.i"  
 
-/*------------------------- The Driver ------------------------------------*/
-
-   pEVDriver CreateTecsDriver(int argc, char *argv[]);
-      
-      
 /*-----------------------------------------------------------------------*/
   typedef struct {
                    void *pData;
@@ -81,6 +76,7 @@
   static time_t lastGet=0;
 
 /*-------------------------------------------------------------------------*/
+
   int TecsWrapper(SConnection *pCon, SicsInterp *pSics, void *pData,
                   int argc, char *argv[])
   {
@@ -188,7 +184,7 @@
      return 1;
  }
 /*--------------------------------------------------------------------------*/
-  static int TecsError(pEVDriver self, int *iCode, char *error, int iErrLen)
+  int TecsError(pEVDriver self, int *iCode, char *error, int iErrLen)
   {
      pTecsDriv pMe = NULL;
      
@@ -253,7 +249,7 @@
      {
        pMe->iLastError = 1; /* severe */
        pMe->lastError = ErrMessage;
-       return 0;
+       return -1; /* fatal */
      }
      return 1;
   }