diff --git a/collects/texpict/doc.txt b/collects/texpict/doc.txt
index 4f272d9556..d38f131b27 100644
--- a/collects/texpict/doc.txt
+++ b/collects/texpict/doc.txt
@@ -247,11 +247,11 @@ Basic Constructors:
    optional line width
       [MrEd only, in utils.ss]
 
->  (round-frame pict) -> pict
->  (color-round-frame pict color-string) -> pict
->  (color-round-frame pict color-string line-w) -> pict
+>  (round-frame pict radius-w) -> pict
+>  (color-round-frame pict radius-w color-string) -> pict
+>  (color-round-frame pict radius-w color-string line-w) -> pict
 
-   Rounded frames
+   Rounded frames, given a radius for the corners
       [MrEd only, in utils.ss]
 
 >  (circle diameter) -> pict
diff --git a/collects/texpict/private/mrpict-extra.ss b/collects/texpict/private/mrpict-extra.ss
index 6e0700bb79..0fe493e589 100644
--- a/collects/texpict/private/mrpict-extra.ss
+++ b/collects/texpict/private/mrpict-extra.ss
@@ -305,8 +305,6 @@
 		      [find-or-create-pen (the-pen-list find-or-create-pen)]
 		      [find-or-create-brush (the-brush-list find-or-create-brush)])
 
-	  (set-brush (find-or-create-brush "black" 'solid))
-	  
 	  (let loop ([dx dx][dy dy][l l])
 	    (unless (null? l)
 	      (let ([x (car l)])
diff --git a/collects/texpict/utils.ss b/collects/texpict/utils.ss
index 091aed2f4a..336fec606f 100644
--- a/collects/texpict/utils.ss
+++ b/collects/texpict/utils.ss
@@ -862,20 +862,12 @@
 	(let ([new
 	       (dc
 		(lambda (dc x y)
-		  (define (reset-pen)
-		    (let ([p (send dc get-pen)])
-		      (send dc set-pen (send the-pen-list
-					     find-or-create-pen
-					     "white" 1 'transparent))
-		      (send dc set-pen p)))
 		  (let-values ([(xs ys) (send dc get-scale)])
 		    (send dc set-scale (* xs x-factor) (* ys y-factor))
-		    (reset-pen)
 		    (drawer dc
 			    (/ x x-factor)
 			    (/ y y-factor))
-		    (send dc set-scale xs ys)
-		    (reset-pen)))
+		    (send dc set-scale xs ys)))
 		(* (pict-width p) x-factor)
 		(* (pict-height p) y-factor)
 		(* (pict-ascent p) y-factor)