--- cl/mcclim/sheets.lisp	2009-04-17 16:01:05.000000000 +0400
+++ cl/mcclim.new/sheets.lisp	2009-05-18 19:18:52.000000000 +0400
@@ -619,6 +619,9 @@
 (defmethod (setf sheet-direct-mirror) (mirror (sheet mirrored-sheet-mixin))
   (port-register-mirror (port sheet) sheet mirror))
 
+(defmethod sheet-direct-mirror ((pixmap mirrored-pixmap))
+  (port-lookup-mirror (port pixmap) pixmap))
+
 (defmethod sheet-mirrored-ancestor ((sheet mirrored-sheet-mixin))
   sheet)