[mcclim-cvs] CVS mcclim

[ahefner]

Update of /project/mcclim/cvsroot/mcclim
In directory clnet:/tmp/cvs-serv28208

Modified Files:
	recording.lisp 
Log Message:
Patch from Nikodemus Siivola 


--- /project/mcclim/cvsroot/mcclim/recording.lisp	2008/01/21 01:26:42	1.136
+++ /project/mcclim/cvsroot/mcclim/recording.lisp	2008/01/21 22:24:32	1.137
@@ -1730,7 +1730,7 @@
        (:bottom (incf top (- point-y descent))
                 (incf bottom (- point-y descent)))
        (:center (incf top (+ point-y (ceiling (- ascent descent) 2)))
-                (incf bottom (+ point-xy (ceiling (- ascent descent) 2)))))
+                (incf bottom (+ point-y (ceiling (- ascent descent) 2)))))
      (values left top right bottom))))
 
 (defmethod* (setf output-record-position) :around