Index: /branches/objc-gf/ccl/examples/cocoa-editor.lisp
===================================================================
--- /branches/objc-gf/ccl/examples/cocoa-editor.lisp	(revision 6059)
+++ /branches/objc-gf/ccl/examples/cocoa-editor.lisp	(revision 6060)
@@ -1060,15 +1060,15 @@
                                            :<NSR>ect.size.width)
                                      0.75f0)))
-             (declare (type cg-float single-float modeline-width))
+             (declare (type cgfloat modeline-width))
              (setf (pref modeline-frame :<NSR>ect.size.width)
                    modeline-width
-                   (the cg-float
+                   (the cgfloat
                      (pref scrollbar-frame :<NSR>ect.size.width))
-                   (- (the cg-float
+                   (- (the cgfloat
                         (pref scrollbar-frame :<NSR>ect.size.width))
                       modeline-width)
                    (the cg-float
                      (pref scrollbar-frame :<NSR>ect.origin.x))
-                   (+ (the cg-float
+                   (+ (the cgfloat
                         (pref scrollbar-frame :<NSR>ect.origin.x))
                       modeline-width))