anchor.diff:  
   (defun make-web-view ()
     (on-main-thread
  -   (ns:with-ns-rect (r 100.0 100.0 800.0 600.0)
  +   (ns:with-ns-rect (r 100.0 100.0 1024.0 768.0)
   		    (let ((view
   			   (make-instance
   			    'ns:web-view
  
positive.code:      character)
      (call-next-method event)))
  
  (objc:defmethod (#/acceptsFirstResponder :<BOOL>) ((self ns:ns-window)) t)
  
  (defun url-from-string (s)
    (ccl::with-autorelease-pool
      (#/retain (#/URLWithString: ns:ns-url (ccl::%make-nsstring (string s))))))
  
negative.code:   (defparameter *window* nil)
    (gui::assume-cocoa-thread)
    ;; Content rect for window, bounds rect for view.
    (ns:with-ns-rect (r 100.0 100.0 1024.0 768.0)
      (ccl::with-autorelease-pool 
        (let* ((window (make-instance
  		      'next-window
  		      :with-content-rect r
  		      :style-mask (logior #$NSTitledWindowMask
  					  #$NSClosableWindowMask
  