Index: dcommon.scm
==================================================================
--- dcommon.scm
+++ dcommon.scm
@@ -946,24 +946,28 @@
 					(lambda (x y)
 					  (list (+ x 0)   ;; xtorig)
 						(+ y 0))) ;; ytorig)))
 					#f #f)) ;; process polyline
 				     edges))))
-		 (llx  (if no-dot
+		 (cx   (if no-dot ;; this is the centerpoint!
 			   curr-x
 			   (string->number (list-ref nodedat 2))))
-		 (lly  (if no-dot
+		 (cy   (if no-dot
 			   curr-y
 			   (string->number (list-ref nodedat 3))))
 		 (boxw (if no-dot
 			   boxw
 			   (string->number (list-ref nodedat 4))))
 		 (boxh (if no-dot
 			   boxh
 			   (string->number (list-ref nodedat 5))))
-		 (urx  (+ llx boxw))
-		 (ury  (+ lly boxh)))
+		 (boxw/2  (/ boxw 2))
+		 (boxh/2  (/ boxh 2))
+		 (urx     (+ cx boxw/2))
+		 (ury     (+ cy boxh/2))
+		 (llx     (- cx boxw/2))
+		 (lly     (- cy boxh/2)))
 
 	    ;; if we are in no-dot mode then increment curr-x and curr-y as needed
 	    (if no-dot
 		(begin
 		  (cond