$OpenBSD: patch-src_tclx_src_tclxsig_c,v 1.2 2017/05/09 13:01:42 espie Exp $
Index: src/tclx/src/tclxsig.c
--- src/tclx/src/tclxsig.c.orig
+++ src/tclx/src/tclxsig.c
@@ -441,7 +441,7 @@ EvalTrapCode (interp, signalNum, command)
         result = TCL_ERROR;
     else
         result = TCL_OK;
-    if (result == TCL_OK);
+    if (result == TCL_OK)
         result = Tcl_Eval (interp, signalTrapCmds [signalNum], 0, NULL);
 
     /*
@@ -972,6 +972,7 @@ Tcl_SignalCmd (clientData, interp, argc, argv)
       case SIGACT_UNBLOCK:
         return BlockSignals (interp, SIG_UNBLOCK, signalListSize, signalList);
     }
+    /*NOTREACHED*/
 
 }
 
