Index: /branches/ide-1.0/ccl/examples/cocoa-prefs.lisp
===================================================================
--- /branches/ide-1.0/ccl/examples/cocoa-prefs.lisp	(revision 6587)
+++ /branches/ide-1.0/ccl/examples/cocoa-prefs.lisp	(revision 6588)
@@ -156,6 +156,6 @@
       (ns:with-ns-rect (revert-frame 20 10 80 20)
         (ns:with-ns-rect (commit-frame (- (+ (ns:ns-rect-x frame)
-                                             (ns:ns-rect-width frame)
-                                             (+ 80.0f0 20.0f0)))
+                                             (ns:ns-rect-width frame))
+                                          (+ 80.0f0 20.0f0))
                                        10 80 20)
         (let* ((commit-button (make-instance