diff --git a/aclpc/acl-mirror.lisp b/aclpc/acl-mirror.lisp
index f225ceb782f152c395e9e74942f4b832d2586468..a5243d9b6ea3984c54295a60affc0776309e8ce5 100644
--- a/aclpc/acl-mirror.lisp
+++ b/aclpc/acl-mirror.lisp
@@ -76,8 +76,6 @@
                      ((:device :pixel)
                       (make-bounding-rectangle
                        screen-left screen-top screen-right screen-bottom))))
-             (format *trace-output* "~&height: ~A vs. real height: ~A~%"
-                     screen-height (- screen-bottom screen-top))
              (setf (sheet-native-transformation graft) +identity-transformation+)
              (setf (sheet-direct-mirror graft) screen)
              (update-mirror-transformation port graft)))))))