Index: dcommon.scm
==================================================================
--- dcommon.scm
+++ dcommon.scm
@@ -704,14 +704,19 @@
 						 (if (equal? (car x) "edge")
 						     (equal? hed (cadr x))
 						     #f))
 					       dot-data)))
 			    (map (lambda (inlst)
-				   (map (lambda (instr)
-					  (* dotscale (string->number instr))) ;; convert to number and scale
-					(let ((il (cddddr inlst)))
-					  (take il (- (length il) 2)))))
+				   (dcommon:process-polyline 
+				    (map (lambda (instr)
+					   (* dotscale (string->number instr))) ;; convert to number and scale
+					 (let ((il (cddddr inlst)))
+					   (take il (- (length il) 2))))
+				    (lambda (x y)
+				      (list (+ x xtorig)
+					    (+ y ytorig)))
+				    #f #f)) ;; process polyline
 				 edges)))
 		 (llx  (* (string->number (list-ref nodedat 2)) dotscale))
 		 (lly  (* (string->number (list-ref nodedat 3)) dotscale))
 		 (boxw (* (string->number (list-ref nodedat 4)) dotscale))
 		 (boxh (* (string->number (list-ref nodedat 5)) dotscale))