Index: gadgets.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/gadgets.lisp,v
retrieving revision 1.87
diff -u -r1.87 gadgets.lisp
--- gadgets.lisp	31 Jan 2005 06:09:55 -0000	1.87
+++ gadgets.lisp	25 Feb 2005 03:13:27 -0000
@@ -2700,7 +2700,7 @@
          (height (space-requirement-height sr)))
     (allocate-space child width height)
     (setf (gadget record) child)
-    (with-slots (x1 x2 y1 y2) record
+    (multiple-value-bind (x1 y1 x2 y2) (slot-value record 'coordinates)
       (setf x1 x
             y1 y
             x2 (+ x width)