diff --git a/motif/lisp/callbacks.lisp b/motif/lisp/callbacks.lisp
index abd64767c44a42ef87ab21d4072b6a8b8eb510cf..9484c0f2baa279224f196d59b4ff0949a140da3f 100644
--- a/motif/lisp/callbacks.lisp
+++ b/motif/lisp/callbacks.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/motif/lisp/callbacks.lisp,v 1.3 1994/10/31 04:54:48 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/motif/lisp/callbacks.lisp,v 1.4 1999/02/05 21:10:24 pw Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -213,7 +213,7 @@
 	    (:include any-callback)
 	    (:print-function print-callback)
 	    (:constructor make-button-callback (reason event click-count)))
-  (click-count 0 :type fixnum))
+  (click-count 0 :type (unsigned-byte 32))) ; Not always valid data here.
 
 (defstruct (drawing-area-callback
 	    (:include any-callback)
@@ -227,7 +227,7 @@
 	    (:constructor make-drawn-button-callback
 			  (reason event window click-count)))
   window
-  (click-count 0 :type fixnum))
+  (click-count 0 :type (unsigned-byte 32))) ; Not always valid data here.
 
 ;;; RowColumnCallbackStruct is weird and probably not necessary