diff --git a/lib/modules/Protocols.pmod/X.pmod/Requests.pmod b/lib/modules/Protocols.pmod/X.pmod/Requests.pmod
index 03b6d288d4526b19777ef0617a658f8e1814531a..6170db29204a8318553a4c5e5a472b6e5802dceb 100644
--- a/lib/modules/Protocols.pmod/X.pmod/Requests.pmod
+++ b/lib/modules/Protocols.pmod/X.pmod/Requests.pmod
@@ -501,6 +501,24 @@ class ChangeGC
   }
 }
 
+class ClearArea
+{
+  inherit request;
+  constant reqType = 61;
+
+  int exposures;
+  int window;
+  int x, y;
+  int width, height;
+
+  string to_string()
+  {
+    return build_request(sprintf("%4c%2c%2c%2c%2c",
+				 window, x, y, width, height),
+			 exposures);
+  }
+}
+
 class PolyPoint
 {
   inherit request;