From 4225f79d88a9a29ea8528f62901f3e34ec675d7b Mon Sep 17 00:00:00 2001
From: Douglas Clowes <dcl@ansto.gov.au>
Date: Fri, 7 Mar 2014 10:28:22 +1100
Subject: [PATCH] Fix previous overzealous leak fix

---
 site_ansto/ansto_tclmotdriv.c | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/site_ansto/ansto_tclmotdriv.c b/site_ansto/ansto_tclmotdriv.c
index c485fc76..753a58f3 100644
--- a/site_ansto/ansto_tclmotdriv.c
+++ b/site_ansto/ansto_tclmotdriv.c
@@ -397,26 +397,25 @@ static int TclSetPar(void *self, SConnection * pCon, char *name,
       if (result == NULL) {
         pDriv->errorCode = NOTCLRESULT;
         free(tclCommand);
-        free(tclCommandPara);;
+        free(tclCommandPara);
         return HWFault;
       }
       if (status != TCL_OK) {
         pDriv->errorCode = TCLERROR;
         strncpy(pDriv->tclError, result, 1023);
         free(tclCommand);
-        free(tclCommandPara);;
+        free(tclCommandPara);
         return HWFault;
       } else {
         snprintf(pBuffer, 511, "%s.%s = %s", pDriv->motName, name, result);
         SCWrite(pCon, pBuffer, eValue);
       }
       free(tclCommand);
-      free(tclCommandPara);;
+      free(tclCommandPara);
       return OKOK;
     } else {
       pDriv->errorCode = PARANOTFOUND;
       free(tclCommand);
-      free(tclCommandPara);;
       return 0;
     }