[s/body-of/window-body/
clinton@unknownlamer.org**20081203195837] {
hunk ./src/entry-points.lisp 25
-	(setf (container.current-component-key (body-of window))
+	(setf (container.current-component-key (window-body window))
hunk ./src/entry-points.lisp 27
-	(let ((self (container.current-component (body-of window))))
+	(let ((self (container.current-component (window-body window))))
}