Index: /branches/ide-1.0/ccl/examples/cocoa-editor.lisp
===================================================================
--- /branches/ide-1.0/ccl/examples/cocoa-editor.lisp	(revision 6746)
+++ /branches/ide-1.0/ccl/examples/cocoa-editor.lisp	(revision 6747)
@@ -970,5 +970,5 @@
 (def-cocoa-default *modeline-font-name* :string "Courier New Bold Italic"
                    "Name of font to use in modelines")
-(def-cocoa-default  *modeline-font-size* :float 10.0 "Size of font to use in modelines" (single-float 4.0 14.0))
+(def-cocoa-default  *modeline-font-size* :float 10.0 "Size of font to use in modelines")