diff --git a/Mac/Python/macglue.c b/Mac/Python/macglue.c
index bcfe09e..8fdbc23 100644
--- a/Mac/Python/macglue.c
+++ b/Mac/Python/macglue.c
@@ -482,8 +482,8 @@
 	int flush;
 {
 #if TARGET_API_MAC_CARBON
-	/* CARBONXXXX To be implemented */
-	return;
+	if ( CheckEventQueueForUserCancel() )
+		interrupted = 1;
 #else
 	register EvQElPtr q;