From c33870fa0418ba2ca479379960b4d240d65886a9 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 18 Apr 2009 17:53:56 +0000
Subject: [PATCH] PR 10209

svn: r14554
---
 collects/slideshow/pict.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/slideshow/pict.ss b/collects/slideshow/pict.ss
index 7c2fb925be..7b32fe8013 100644
--- a/collects/slideshow/pict.ss
+++ b/collects/slideshow/pict.ss
@@ -42,7 +42,7 @@
              (list? p)
              (andmap pict? p))))
 
-  (define (pin-line sz p 
+  (define (pin-line p 
                     src src-find
                     dest dest-find
                     #:start-angle [sa #f] #:end-angle [ea #f]
@@ -57,7 +57,7 @@
                                          dest dest-find))
                     p lw col under?)
         (pin-curve* #f #f p src src-find dest dest-find
-                    sa ea sp ep sz col lw under? #t)))
+                    sa ea sp ep 0 col lw under? #t)))
 
   (define (pin-arrow-line sz p 
                           src src-find