images look like they're working

examples/logo.rkt

@@ -2,4 +2,8 @@
 
 (require (planet dyoo/whalesong/image))
 
-(image-url "http://racket-lang.org/logo.png")
+
+(define lst
+  (list (image-url "http://racket-lang.org/logo.png")
+        (image-url "http://www.bootstrapworld.org/images/icon.gif")))
+(list lst lst)

js-assembler/runtime-src/baselib-lists.js

@@ -131,19 +131,19 @@
         node.appendChild(document.createTextNode("("));
         var p = this;
         while ( p instanceof Cons ) {
-	    appendChild(node, plt.baselib.format.toDomNode(p.first, cache));
+	    node.appendChild(plt.baselib.format.toDomNode(p.first, cache));
 	    p = p.rest;
 	    if ( p !== Empty.EMPTY ) {
-	        appendChild(node, document.createTextNode(" "));
+	        node.appendChild(document.createTextNode(" "));
 	    }
 	    if (typeof(p) === 'object' && cache.containsKey(p)) {
 	        break;
 	    }
         }
         if ( p !== Empty.EMPTY ) {
-	    appendChild(node, document.createTextNode("."));
-	    appendChild(node, document.createTextNode(" "));
-	    appendChild(node, plt.baselib.format.toDomNode(p, cache));
+	    node.appendChild(document.createTextNode("."));
+	    node.appendChild(document.createTextNode(" "));
+	    node.appendChild(plt.baselib.format.toDomNode(p, cache));
         }
 
         node.appendChild(document.createTextNode(")"));

tests/more-tests/lists.expected

@@ -0,0 +1,2 @@
+(1 2 3)
+("hello" "world")

tests/more-tests/lists.rkt

@@ -0,0 +1,4 @@
+#lang planet dyoo/whalesong
+
+'(1 2 3)
+(list "hello" "world")

tests/run-more-tests.rkt

@@ -14,3 +14,4 @@
 (test "more-tests/man-vs-boy.rkt")
 (test "more-tests/colors.rkt")
 (test "more-tests/images.rkt")
+(test "more-tests/lists.rkt")