diff --git a/examples/silly-test.lisp b/examples/silly-test.lisp
old mode 100644
new mode 100755
index f5aaa6e..9629436
--- a/examples/silly-test.lisp
+++ b/examples/silly-test.lisp
@@ -1,12 +1,23 @@
(cl:defpackage :TEST-CLASH (:USE :CL :CLASH))
(cl:in-package :TEST-CLASH)
-(enable-clash-syntax)
+(eval-when (:compile-toplevel :load-toplevel :execute) (enable-clash-syntax))
(defvar *my-server* (make-instance 'http-server/1.0))
-(export-resource *my-server* #u"/index.html"
- 'static-resource
- :entity (make-instance 'string-entity :body
-"Test Page on ACL 5.0.3
-Test Page on ACL 5.0.3
Hi!
-"))
+(export-resource
+ *my-server* #u"/index.html"
+ 'static-resource
+ :entity
+ (make-instance 'string-entity
+ :body
+ (format nil
+ "~
+ Simple CLASH Test Page on ~A ~A~
+ ~
+ Test Page on ~2:*~A ~A
~
+ Hi!
~
+ ~
+ "
+ (lisp-implementation-type)
+ (lisp-implementation-version))))
(start-http-listener 3080 *my-server*)
(initialize-clash)
+(eval-when (:compile-toplevel :load-toplevel :execute) (disable-clash-syntax))