x11/x11-base (guarantee-Time): Allow CurrentTime.

diff --git a/src/x11/x11-base.scm b/src/x11/x11-base.scm
index f30582fe5cdad1f8e506064bbb490a027d7951d5..c08085616ed2bf752b633fa9f34a8f1862f6224c 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)