anchor.diff:                      (let ((actor (jsown:val entry-obj "actor"))
                             (dialogue (jsown:val entry-obj "dialogue"))
                             (paren (jsown:val entry-obj "parenthetical")))
  -                      (<:ai (format nil "sykosomatic.add_dialogue(~S,~S~@[,~S~]);~%"
  +                      ;; TODO - This smells a bit.
  +                      (<:ah (format nil "sykosomatic.add_dialogue(~S,~S~@[,~S~]);~%"
                                       actor dialogue paren))))
                      ((equal entry-type "action")
                       (let ((actor (jsown:val entry-obj "actor"))
                             (action-txt (jsown:val entry-obj "action")))
  -                      (<:ai (format nil "sykosomatic.add_action(~S,~S);~%" actor action-txt)))))))
  +                      ;; TODO - Smelly, smelly.
  +                      (<:ah (format nil "sykosomatic.add_action(~S,~S);~%" actor action-txt)))))))
            (find-scene-entries id))))
   
   (defun render-scene-rating (scene-id)
  
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:                       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
  