diff --git a/exebuf.c b/exebuf.c
index f695e831..dfe34d2e 100644
--- a/exebuf.c
+++ b/exebuf.c
@@ -237,9 +237,9 @@ int exeBufProcess(pExeBuf self, SicsInterp * pSics,
         SCWrite(pCon, GetCharArray(command), eError);
         SCWrite(pCon, "ERROR: end of Tcl error block", eLogError);
       } else {
-        /*
-           SICS error: has already been reported
-         */
+    	if(strstr(pTcl->result, "ERROR") != NULL){
+    		SCPrintf(pCon,eError,"%s occurred in %s", pTcl->result, cmd );
+    	}
         pCon->sicsError = 0;
       }
     }