diff --git a/examples/silly-test.lisp b/examples/silly-test.lisp
index 9629436..88e5549 100755
--- a/examples/silly-test.lisp
+++ b/examples/silly-test.lisp
@@ -1,7 +1,10 @@
 (cl:defpackage :TEST-CLASH (:USE :CL :CLASH))
 (cl:in-package :TEST-CLASH)
 (eval-when (:compile-toplevel :load-toplevel :execute) (enable-clash-syntax))
-(defvar *my-server* (make-instance 'http-server/1.0))
+(defparameter *my-server* (make-instance 'http-server/1.0))
+(apply #'export-files *my-server* "image/jpeg" #u"/img/" 
+       (let ((*default-pathname-defaults* (merge-pathnames #P"../doc/" *load-pathname*)))
+         (directory "*.jpg")))
 (export-resource 
  *my-server* #u"/index.html"
  'static-resource
@@ -9,13 +12,15 @@
  (make-instance 'string-entity
                 :body
                 (format nil
-                        "<HTML>~
-                           <HEAD><TITLE>Simple CLASH Test Page on ~A ~A</TITLE></HEAD>~
-                           <BODY BGCOLOR='#eeeeff'>~
-                             <H1>Test Page on ~2:*~A ~A</H1>~
-                             <P>Hi!</P>~
-                           </BODY>~
-                         </HTML>"
+                        "<!DOCTYPE html>~%~
+                         <html>~
+                           <head><title>Simple CLASH Test Page on ~A ~A</title></head>~
+                           <body style='background-color: #000000; color: #ffffff'>~
+                             <img src='img/logo2.jpg'/>~
+                             <h1>Test Page on ~2:*~A ~A</h1>~
+                             <p>Hi!</p>~
+                           </body>~
+                         </html>"
                         (lisp-implementation-type)
                         (lisp-implementation-version))))
 (start-http-listener 3080 *my-server*)
