Index: src/gui/clim-gui.lisp
===================================================================
RCS file: /project/closure/cvsroot/closure/src/gui/clim-gui.lisp,v
retrieving revision 1.31
diff -u -r1.31 clim-gui.lisp
--- src/gui/clim-gui.lisp	4 Feb 2007 15:10:01 -0000	1.31
+++ src/gui/clim-gui.lisp	23 Jun 2007 15:27:23 -0000
@@ -574,7 +574,7 @@
       (send-closure-command 'com-quit))))
 
 (defvar *closure-inited-p* nil)
-(defmethod clim:read-frame-command :before ((frame closure)
+(defmethod clim:run-frame-top-level :before ((frame closure)
                                                &key &allow-other-keys)
   (unless *closure-inited-p*
     (setf *closure-inited-p* t)))
Index: src/renderer/renderer2.lisp
===================================================================
RCS file: /project/closure/cvsroot/closure/src/renderer/renderer2.lisp,v
retrieving revision 1.19
diff -u -r1.19 renderer2.lisp
--- src/renderer/renderer2.lisp	5 Jan 2007 23:10:33 -0000	1.19
+++ src/renderer/renderer2.lisp	23 Jun 2007 15:27:24 -0000
@@ -1196,7 +1196,7 @@
 (defun format-block (item x1 x2 ss before-markers #||# pos-vertical-margin neg-vertical-margin yy)
   (let (res)
     (setf (block-box-output-record item)
-          (clim:with-new-output-record (clim-user::*pane*) foo
+          (clim:with-new-output-record (clim-user::*pane*) #+nil foo
               (setf res
                     (multiple-value-list
                         (case (cooked-style-display (block-box-style item))