CLX bug?

Using the latest snapshot, I get the following problem.  I don't know
anything about X so I don't know if this is a problem with the code,
with CLX, with our telent CLX version, with Solaris X11, or what.

Ray

* (require :clx)
* (let* ((dpy (xlib:open-default-display))
       (win (xlib:create-window
             :parent (xlib:screen-root (first (xlib:display-roots dpy)))
             :x 0 :y 0 :width 50 :height 50))
       (pm (xlib:create-pixmap :width (random 100) :height (random 100)
                               :depth 8 :drawable win)))
  (setf (xlib:wm-hints win)
        (xlib:make-wm-hints :icon-pixmap pm))
  (xlib:display-finish-output dpy)
  (xlib:wm-hints-icon-pixmap (xlib:wm-hints win)))

Asynchronous VALUE-ERROR in request 8 (last request was 10)  Code 53.0 [CreatePixmap] Value 8.
   [Condition of type XLIB:VALUE-ERROR]

Restarts:
  0: [CONTINUE] Ignore
  1: [ABORT   ] Return to Top-Level.

Debug  (type H for help)

(XLIB::READ-ERROR-INPUT
 #<XLIB:DISPLAY brtps071:0 (Sun Microsystems, Inc. R6410)>
 8
 #S(XLIB::REPLY-BUFFER
      :SIZE 32
      :IBUF8 #(0 2 0 8 0 0 0 8 0 0 53 192 0 0 0 0 255 190 230 132 ...)
      :NEXT NIL
      :DATA-SIZE 32)
 (NIL))
Source: 
; File: target:clx/input.lisp
(APPLY #'REPORT-ERROR
       DISPLAY
       (PROG1 (MAKE-ERROR DISPLAY REPLY-BUFFER T)
         (DEALLOCATE-EVENT REPLY-BUFFER)))
0] back

0: (XLIB::READ-ERROR-INPUT
    #<XLIB:DISPLAY brtps071:0 (Sun Microsystems, Inc. R6410)>
    8
    #S(XLIB::REPLY-BUFFER
         :SIZE 32
         :IBUF8 #(0 2 0 8 0 0 0 8 0 0 53 192 0 0 0 0 255 190 230 132 ...)
         :NEXT NIL
         :DATA-SIZE 32)
    (NIL))
1: (XLIB::READ-INPUT #<XLIB:DISPLAY brtps071:0 (Sun Microsystems, Inc. R6410)>
                     NIL
                     NIL
                     #<Function "DEFUN READ-REPLY" {40BC0D51}>
                     #S(XLIB::PENDING-COMMAND
                          :SEQUENCE 10
                          :REPLY-BUFFER NIL
                          :PROCESS NIL
                          :NEXT NIL))
2: (XLIB::READ-REPLY #<XLIB:DISPLAY brtps071:0 (Sun Microsystems, Inc. R6410)>
                     #S(XLIB::PENDING-COMMAND
                          :SEQUENCE 10
                          :REPLY-BUFFER NIL
                          :PROCESS NIL
                          :NEXT NIL))
3: (XLIB:DISPLAY-FINISH-OUTPUT
    #<XLIB:DISPLAY brtps071:0 (Sun Microsystems, Inc. R6410)>)
4: ("Top-Level Form")[:TOP-LEVEL]
5: (INTERACTIVE-EVAL
    (LET* ((DPY (XLIB:OPEN-DEFAULT-DISPLAY))
           (WIN
            (XLIB:CREATE-WINDOW
             :PARENT (XLIB:SCREEN-ROOT (FIRST (XLIB:DISPLAY-ROOTS DPY)))
             :X 0
             :Y 0
             :WIDTH 50
             :HEIGHT 50))
           (PM
            (XLIB:CREATE-PIXMAP :WIDTH (RANDOM 100)
                                :HEIGHT (RANDOM 100)
                                :DEPTH 8
                                :DRAWABLE WIN)))
      (SETF (XLIB:WM-HINTS WIN) (XLIB:MAKE-WM-HINTS :ICON-PIXMAP PM))
      (XLIB:DISPLAY-FINISH-OUTPUT DPY)
      (XLIB:WM-HINTS-ICON-PIXMAP (XLIB:WM-HINTS WIN))))
6: (LISP::%TOP-LEVEL)
7: ((LABELS LISP::RESTART-LISP SAVE-LISP))

0]