diff --git a/collects/texpict/utils.ss b/collects/texpict/utils.ss
index 71fb2bc2d6..71ef173391 100644
--- a/collects/texpict/utils.ss
+++ b/collects/texpict/utils.ss
@@ -186,7 +186,7 @@
 	  (send dc set-pen (send the-pen-list
 				 find-or-create-pen
 				 (send p get-color)
-				 0
+				 (if solid? 0 (send p get-width))
 				 'solid))
 	  (send dc set-brush (send the-brush-list
 				   find-or-create-brush