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*/
 
 }
 
