Index: /trunk/source/cocoa-ide/cocoa-utils.lisp
===================================================================
--- /trunk/source/cocoa-ide/cocoa-utils.lisp	(revision 8454)
+++ /trunk/source/cocoa-ide/cocoa-utils.lisp	(revision 8455)
@@ -1,3 +1,3 @@
-; -*- Mode: Lisp; Package: GUI; -*-
+; -*- Mode: Lisp; Package: GUI -*-
 
 (in-package "GUI")
@@ -192,5 +192,6 @@
 
 (defclass lisp-application (ns:ns-application)
-    ((termp :foreign-type :<BOOL>))
+    ((termp :foreign-type :<BOOL>)
+     (console :foreign-type :id :accessor console))
   (:metaclass ns:+ns-object))