Index: /trunk/source/examples/cocoa/easygui/views.lisp
===================================================================
--- /trunk/source/examples/cocoa/easygui/views.lisp	(revision 13907)
+++ /trunk/source/examples/cocoa/easygui/views.lisp	(revision 13908)
@@ -371,5 +371,6 @@
       (closable-p :initarg :closable-p :initform t :reader window-closable-p)
       (level :initarg :window-level :accessor window-level
-             :initform (dcc (#_CGWindowLevelForKey #$kCGNormalWindowLevelKey)))
+             :initform #+cocotron 0
+	               #-cocotron (dcc (#_CGWindowLevelForKey #$kCGNormalWindowLevelKey)))
       (hidden :initarg :hidden :reader window-hidden :initform nil)
       (window-needs-display-on-show :initform t)