@@ -1485,12 +1485,14 @@
 	case 3:
 	    if (!strcmp (Tcl_GetString (objv[1]), "-local")) {
 		channelName = Tcl_GetStringFromObj(objv[2], NULL);
 		break;
 	    }
-	    /* else fall... */
+	    /* else fall-through ... */
+#if defined(__GNUC__)
 	    __attribute__((fallthrough));
+#endif
 	default:
 	    Tcl_WrongNumArgs(interp, 1, objv, "?-local? channel");
 	    return TCL_ERROR;
     }