Move spawn of result buffer suveillant to INIT-WINODWS!

scheme/win.scm

@@ -87,6 +87,8 @@
   (delwin (app-window-curses-win window)))
 
 (define (init-windows!)
+  (spawn-result-buffer-surveillant)
+
   (set! *bar-1*
 	(make-app-window 1 1 
 			 (- (COLS) 2) 2))
@@ -161,6 +163,4 @@
 (define (result-buffer-other-object-has-focus-rv)
   (let ((answer-channel (make-channel)))
     (send result-buffer-changes-subscribers answer-channel)
-    (receive-rv answer-channel)))
-
-(spawn-result-buffer-surveillant)
+    (receive-rv answer-channel)))