Index: /branches/ide-1.0/ccl/examples/cocoa-editor.lisp
===================================================================
--- /branches/ide-1.0/ccl/examples/cocoa-editor.lisp	(revision 6733)
+++ /branches/ide-1.0/ccl/examples/cocoa-editor.lisp	(revision 6734)
@@ -1169,5 +1169,5 @@
                 (#/setAllowsUndo: tv nil) ; don't want NSTextView undo
                 (#/setUsesFindPanel: tv t)
-                (#/setUsesFontPanel: tv t)
+                (#/setUsesFontPanel: tv nil)
                 (#/setWidthTracksTextView: container tracks-width)
                 (#/setHeightTracksTextView: container nil)