diff --git a/src/package.lisp b/src/package.lisp
index edf4354..0a2c474 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -1,4 +1,5 @@
 (defpackage :qotdd
+  (:use :cl)
   (:export
     :server))
 
diff --git a/src/server.lisp b/src/server.lisp
index 4072f55..f0ea172 100644
--- a/src/server.lisp
+++ b/src/server.lisp
@@ -19,14 +19,14 @@
 
 
 ;; SOCKET NUMBER --> NIL
-(defun main (socket client-id)
+(defun main (socket client)
   "Main function on a connection-- send the QOTD to them."
 
-  (facilservil:client-write socket
+  (facilservil:client-write client
                   (get-quote *qotd-path* (get-universal-time)) 'T)
 
-  (facilservil:client-slaughter socket))
+  (facilservil:client-slaughter client))
 
 
 ;; SOCKET NUMBER [STRING] --> NIL
-(defun blank (socket client-id &optional (input-string nil)))
+(defun blank (socket client &optional (input-string nil)))