Index: /branches/ide-1.0/ccl/examples/cocoa-listener.lisp
===================================================================
--- /branches/ide-1.0/ccl/examples/cocoa-listener.lisp	(revision 6620)
+++ /branches/ide-1.0/ccl/examples/cocoa-listener.lisp	(revision 6621)
@@ -10,7 +10,7 @@
 (def-cocoa-default *listener-columns* :int 80 "Initial height of listener windows, in characters")
 
-(def-cocoa-default hi::*listener-output-style* :int 0 "Text style index for listener output")
-
-(def-cocoa-default hi::*listener-input-style* :int 1 "Text style index for listener output")
+(def-cocoa-default hi::*listener-output-style* :int 1 "Text style index for listener output")
+
+(def-cocoa-default hi::*listener-input-style* :int 0 "Text style index for listener output")
 
 (def-cocoa-default *listener-background-red-component* :float 0.90f0 "Red component of editor background color.  Should be a float between 0.0 and 1.0, inclusive.")