Index: /trunk/ccl/examples/tiny.lisp
===================================================================
--- /trunk/ccl/examples/tiny.lisp	(revision 5883)
+++ /trunk/ccl/examples/tiny.lisp	(revision 5884)
@@ -73,5 +73,8 @@
 (defun tiny-setup ()
   (with-autorelease-pool
-   (slet ((r (ns-make-rect 100.0 350.0 400.0 400.0)))
+   (slet ((r (ns-make-rect (float 100.0 +cgfloat-zero+)
+                           (float 350.0 +cgfloat-zero+)
+                           (float 400.0 +cgfloat-zero+)
+                           (float 400.0 +cgfloat-zero+))))
 	 (let ((w (make-instance 
 		   'ns:ns-window
Index: /trunk/ccl/examples/webkit.lisp
===================================================================
--- /trunk/ccl/examples/webkit.lisp	(revision 5883)
+++ /trunk/ccl/examples/webkit.lisp	(revision 5884)
@@ -56,5 +56,8 @@
 (defun browser-window (urlspec)
   ;; Content rect for window, bounds rect for view.
-  (slet ((r (ns-make-rect 100.0 100.0 800.0 600.0)))
+  (slet ((r (ns-make-rect (float 100.0 +cgfloat-zero+)
+                          (float 100.0 +cgfloat-zero+)
+                          (float 800.0 +cgfloat-zero+)
+                          (float 600.0 +cgfloat-zero+))))
 	(with-autorelease-pool 
 	 (let* ((url (if (typep urlspec 'pathname)