From 6e464cda15978abcb258b5ab29f3c9fb1bba99ba Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 5 Dec 2007 23:45:43 +0000
Subject: [PATCH] draw frame over pict instead of under

svn: r7904
---
 collects/slideshow/pict.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/slideshow/pict.ss b/collects/slideshow/pict.ss
index ac3054996f..1b6432c63a 100644
--- a/collects/slideshow/pict.ss
+++ b/collects/slideshow/pict.ss
@@ -31,7 +31,7 @@
            [f (if lw 
                   (linewidth lw f)
                   f)])
-      (refocus (cc-superimpose f p)
+      (refocus (cc-superimpose p f)
                p)))
 
   (define (pict-path? p)