     (ago-restore (actx-agw (:world @prog-base)) ago-ss)
     (reset! prog-curr prog-frame)
     (swap! prog-evts #(vec (filter (fn [[s & _]] (<= s ts)) %)))
-    (swap! prog-ss #(into {} (filter (fn [[s _]] (<= s ts)) %)))))
+    (swap! prog-ss #(into {} (filter (fn [[s _]] (<= s ts)) %)))
+    (set-el-innerHTML "reqs" (render-reqs-html (:reqs prog-frame)))
+    (render-net "net-main" (:net prog-frame) {})
+    (on-prog-frame-blur)))
 
 ; -------------------------------------------------------------------
 

                     :reqs    {}   ; { opaque-ts => [req, [[reply-ts reply] ...] }.
                     :net     {}}) ; The :loop-state of the net-actx.
  (reset! prog-evts []))

; -------------------------------------------------------------------


; -------------------------------------------------------------------

(defn on-prog-frame-focus [prog-frame]
  (render-net "net-hover" (:net prog-frame) {})
  (.add gdom/classes (gdom/getElement "net-container") "hover"))

(defn on-prog-frame-blur []
  (set-el-innerHTML "net-hover" "")
