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