diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index 54b3e7cf..fb61c4f9 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -565,6 +565,7 @@
 				[normal-move
 				 (lambda ()
 				   (let* ([dests (map object->position (container->children panel o))]
+					  [_ (printf "~a~n" (map (lambda (x) (send (wx->proxy (car x)) get-label)) dests))]
 					  [pos (if o (object->position o) (list 'x 0 0 0 0))]
 					  [o (traverse (cadr pos) (caddr pos) (cadddr pos) (list-ref pos 4)
 						       (case code