From 374a5610a1b3dcf02d09091ee689e8ad2a1ee219 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 13 Jan 2004 17:19:23 +0000
Subject: [PATCH] .

original commit: 0719e57073553a69f4daf6aff583d3c6592c1674
---
 collects/tests/mred/item.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/tests/mred/item.ss b/collects/tests/mred/item.ss
index 3f463976..1f6631db 100644
--- a/collects/tests/mred/item.ss
+++ b/collects/tests/mred/item.ss
@@ -630,7 +630,8 @@
   (when prev-frame
     (add-disable "Previous Tester Frame" prev-frame ep2))
   
-  (when (not label-h?)
+  (when (and (not label-h?)
+	     (not position-via-style?))
     (send ip2 set-label-position 'vertical))
 
   (when special-label-font?