Index: /trunk/source/cocoa-ide/cocoa-editor.lisp
===================================================================
--- /trunk/source/cocoa-ide/cocoa-editor.lisp	(revision 15344)
+++ /trunk/source/cocoa-ide/cocoa-editor.lisp	(revision 15345)
@@ -2185,5 +2185,5 @@
       echo-area)))
                
-(defclass hemlock-frame (ns:ns-window)
+(defclass hemlock-frame (ide-window)
     ((echo-area-view :foreign-type :id)
      (pane :foreign-type :id)
Index: /trunk/source/cocoa-ide/cocoa-window.lisp
===================================================================
--- /trunk/source/cocoa-ide/cocoa-window.lisp	(revision 15344)
+++ /trunk/source/cocoa-ide/cocoa-window.lisp	(revision 15345)
@@ -346,5 +346,9 @@
                         #@"") ))
 
-(defmethod allocate-instance ((class ns:+ns-window)
+(defclass ide-window (ns:ns-window)
+  ()
+  (:metaclass ns:+ns-object))
+
+(defmethod allocate-instance ((class +ide-window)
                               &rest initargs
                               &key
@@ -387,5 +391,5 @@
   (apply #'call-next-method class initargs))
 
-(defmethod initialize-instance :after ((w ns:ns-window)
+(defmethod initialize-instance :after ((w ide-window)
                                        &key
                                        (title nil)
@@ -419,6 +423,9 @@
     (activate-window w)))
 
-
-(defmethod allocate-instance ((class ns:+ns-view)
+(defclass ide-view (ns:ns-view)
+  ()
+  (:metaclass ns:+ns-object))
+
+(defmethod allocate-instance ((class +ide-view)
                               &rest initargs
                               &key
@@ -436,5 +443,5 @@
 
 
-(defmethod initialize-instance :after ((view ns:ns-view)
+(defmethod initialize-instance :after ((view ide-view)
                                        &key
                                        (horizontally-resizable nil hrp)
@@ -482,5 +489,5 @@
 
 (defun new-cocoa-window (&key
-                         (class (find-class 'ns:ns-window))
+                         (class (find-class 'ide-window))
                          (title nil)
                          (x 200.0)