anchor.diff:             (loop for y fixnum from 0 below height do
                   (let ((elt (aref idata y x)))
                     (setf (aref pdata y x) (ash elt -8)))))
  -      (unless (or (>= width 2048) (>= height 2048)) ;### CLX bug
  -        (xlib:put-image pm pm-gc pm-image :src-x 0 :src-y 0 :x 0 :y 0
  -                        :width width :height height))
  +      (put-image-recursively pm pm-gc pm-image width height 0 0)
         (xlib:free-gcontext pm-gc)
         (push #'(lambda () (xlib:free-pixmap pm)) ^cleanup)
         pm)))
  
positive.code:                   (if (< (ldb (byte 8 0) elt) #x80)
                        (setf (aref mdata y x) 0)
                        (setf (aref mdata y x) 1)))))
        (unless (or (>= width 2048) (>= height 2048)) ;### CLX bug
          (xlib:put-image mm mm-gc mm-image :src-x 0 :src-y 0 :x 0 :y 0
                          :width width :height height :bitmap-p nil))
        (xlib:free-gcontext mm-gc)
        (push #'(lambda () (xlib:free-pixmap mm)) ^cleanup)
        mm)))
  
negative.code: (in-package :clim-clx)
  
  (defgeneric X-pixel (port color))
  
  (defconstant +x11-pixmap-dimension-limit+ 2048)
  
  (defmethod X-pixel ((port clx-basic-port) color)
    (let ((table (slot-value port 'color-table)))
  