x11: Allow CurrentTime.

diff --git a/src/x11/x11-base.scm b/src/x11/x11-base.scm
index 1fbf6a5ceb27cc3ed65562c46efd23f9b8e40bb6..4e712ac6360aee464a3578fbd1c7207e8fd3cb0e 100644 (file)
--- a/src/x11/x11-base.scm
+++ b/src/x11/x11-base.scm
@@ -994,7 +994,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
   (guarantee exact-positive-integer? object operator))
 
 (define-integrable (guarantee-Time object operator)
-  (guarantee exact-positive-integer? object operator))
+  (guarantee exact-nonnegative-integer? object operator))
 
 (define-integrable (guarantee-xvisual object operator)
   (if (not (and (alien? object)