diff --git a/examples/js-get-message-parent.html b/examples/js-get-message-parent.html
index 0462c1e..f9bfdca 100644
--- a/examples/js-get-message-parent.html
+++ b/examples/js-get-message-parent.html
@@ -3,6 +3,13 @@
 <head><title>Testing message passing across windows</title>
 
 <script src="http://ajax.googleapis.com/ajax/libs/jquery/1.7.1/jquery.min.js" type="text/javascript"></script>
+<style type="text/css">
+#another-world {
+   width: 100%;
+   height: 50%;
+}
+</style>
+
 </head>
 <body>
 <p>This is a world program:</p>
@@ -18,10 +25,11 @@
 <script type="text/javascript">
 $(document).ready(function() {
   var otherWorld = document.getElementById("another-world").contentWindow;
-  $("#submit").on("click", function() {
-                               otherWorld.postMessage($("#msg").val(), "*");
-                               $("#msg").val("");
-                           });
+  var send = function() {
+      otherWorld.postMessage($("#msg").val(), "*");
+      $("#msg").val("");
+  };
+  $("#submit").on("click", send);
 });
 </script>
 </body>
diff --git a/examples/js-get-message.rkt b/examples/js-get-message.rkt
index 0fd068e..ffb5633 100644
--- a/examples/js-get-message.rkt
+++ b/examples/js-get-message.rkt
@@ -19,12 +19,27 @@
        send))
 ;; js-function lifts JavaScript functions to regular function we can call.
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(define (get-message w v msg)
-  (cons msg w))
+;; With this infrastructure, we can make a world program that responds to window postMessage.  For example,
+;; we can present a log of all the messages we receive.
+
+(define-struct world (time messages))
+
+(define (read-message w v msg)
+  (make-world (world-time w)
+              (cons (format "at time ~a: ~s"
+                            (world-time w)
+                            msg)
+                    (world-messages w))))
+
+(define (tick w v)
+  (make-world (add1 (world-time w))
+              (world-messages w)))
 
 
 ;; Finally, let's use our big bang:
-(big-bang '("Initial")
-          (on-message get-message))    ;; Note the on-event here
+(big-bang (make-world 0 '())
+          (on-tick tick 1)
+          (on-message read-message))
 
