anchor.diff:                        dialogue))))))))
   
   (defun render-scene (id)
  +  ;; TODO - THIS IS DANGEROUS AND LEAKY. XSS GALORE.
     (<:script :type "text/javascript" :src "res/client.js")
     (<:div :class "chat-box" :id "chat-box")
     (<:script
  
positive.code: 
  (defun render-character-link (char)
    (let ((name (character-name char)))
      (<:href (format nil "/stage?char=~A" (string-downcase name))
              (<:ah name))))
  
  
negative.code:   (<:script :type "text/javascript" :src "res/client.js"))
  
  (defun render-scene-recording ()
    ;; TODO - let client.js install these?
    (<:form :action "javascript:sykosomatic.start_recording()"
            (<:submit :value "Start Recording"))
    (<:form :action "javascript:sykosomatic.stop_recording()"
  