Index: /trunk/ccl/examples/rubix/rubix.lisp
===================================================================
--- /trunk/ccl/examples/rubix/rubix.lisp	(revision 5913)
+++ /trunk/ccl/examples/rubix/rubix.lisp	(revision 5914)
@@ -226,10 +226,11 @@
     ;; Q: why slet here?
     (ccl::slet ((w-frame (ccl::send w-content-view 'frame)))
-      (ccl::slet ((glview-rect (ccl::ns-make-rect *aluminum-margin*
-					*aluminum-margin*
-					(- (pref w-frame :<NSR>ect.size.width)
-					   (* 2 *aluminum-margin*))
-					(- (pref w-frame :<NSR>ect.size.height)
-					   *aluminum-margin*))))
+      (ccl::slet ((glview-rect (ccl::ns-make-rect
+                                (float *aluminum-margin* ccl::+cgfloat-zero+)
+                                (float *aluminum-margin* ccl::+cgfloat-zero+)
+                                (- (pref w-frame :<NSR>ect.size.width)
+                                   (* 2 *aluminum-margin*))
+                                (- (pref w-frame :<NSR>ect.size.height)
+                                   *aluminum-margin*))))
 	;; Q: why make-objc-instance here?
 	(let ((glview (ccl::send (ccl::send (ccl::@class rubix-opengl-view) 'alloc)