diff --git a/static-files/img/clogicon.png b/static-files/img/clogicon.png
new file mode 100644
index 0000000..070e074
Binary files /dev/null and b/static-files/img/clogicon.png differ
diff --git a/static-files/img/clogwicon.png b/static-files/img/clogwicon.png
new file mode 100644
index 0000000..892822d
Binary files /dev/null and b/static-files/img/clogwicon.png differ
diff --git a/tutorial/07-tutorial.lisp b/tutorial/07-tutorial.lisp
index 38af63e..24cf188 100644
--- a/tutorial/07-tutorial.lisp
+++ b/tutorial/07-tutorial.lisp
@@ -22,8 +22,8 @@
 	(let* ((mover (create-div body :content "(-o-)"))
 	       bounds-x bounds-y mover-x mover-y)
 	  (flet ((set-bounds ()
-		   (setf bounds-x (parse-integer (width (window body)) :junk-allowed t))
-		   (setf bounds-y (parse-integer (height (window body)) :junk-allowed t))))
+		   (setf bounds-x (width (window body)))
+		   (setf bounds-y (height (window body)))))
 	    (set-bounds)
 	    (setf mover-x (random bounds-x))
 	    (setf mover-y (random bounds-y))