diff -udBbr icedock-0.3a-orig/xlib/zpixmap.ml icedock-0.3a-bad/xlib/zpixmap.ml
--- icedock-0.3a-orig/xlib/zpixmap.ml   2005-03-03 22:49:09.000000000 +0300
+++ icedock-0.3a-bad/xlib/zpixmap.ml    2006-07-13 03:07:18.000000000 +0400
@@ -280,8 +280,8 @@

     let get_translate_bits dpy =
       match dpy.dpy_bitmap_format_bit_order with
-        LeastSigniFirst -> (function i -> i)
-      | MostSigniFirst -> (function i -> inverse_char.(Char.code i))
+        MostSigniFirst -> (function i -> i)
+      | LeastSigniFirst -> (function i -> inverse_char.(Char.code i))
   end

 (*