diff --git a/collects/framework/gui-utils.ss b/collects/framework/gui-utils.ss
index 0683f4a8..50755566 100644
--- a/collects/framework/gui-utils.ss
+++ b/collects/framework/gui-utils.ss
@@ -239,7 +239,9 @@
                         (send b2 get-width))])
             (send b1 min-width w)
             (send b2 min-width w)
-            (values b1 b2))))))
+	    (if (cancel-on-right?)
+		(values b1 b2)
+		(values b2 b1)))))))
 
   
   (define clickback-delta (make-object style-delta% 'change-underline #t))