diff --git a/motif/lisp/transport.lisp b/motif/lisp/transport.lisp
index 456e80a6d772b98762027bbdc74adc64ec69fc84..9e7f34aa0a76894e7b20c38fff4b53c4bf21042f 100644
--- a/motif/lisp/transport.lisp
+++ b/motif/lisp/transport.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/transport.lisp,v 1.2 1994/10/31 04:54:48 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/motif/lisp/transport.lisp,v 1.3 1998/12/19 18:44:25 pw Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -110,7 +110,8 @@
 			      (4 'system:sap-ref-32)))
 		   (bits (* size 8)))
 	       `(defun ,name (packet data)
-		  (declare (type (signed-byte ,bits) data))
+		  (declare (type (or (signed-byte ,bits)
+		                     (unsigned-byte ,bits)) data))
 		  (let ((fill (system:sap+ (packet-head packet)
 					   (packet-fill packet))))
 		    (setf (,sap-ref fill 0) data)
@@ -126,7 +127,8 @@
 		  (let* ((fill (system:sap+ (packet-head packet)
 					    (packet-fill packet)))
 			 (data (,sap-ref fill 0)))
-		    (declare (type (signed-byte ,bits) data))
+		    (declare (type (or (signed-byte ,bits)
+		                       (unsigned-byte ,bits)) data))
 		    (incf (packet-fill packet) ,size)
 		    data)))))
   (def-packet-writer packet-put-byte 1)