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