diff --git a/lisp/state.lisp b/lisp/state.lisp
index bb954ea..90df2e3 100644
--- a/lisp/state.lisp
+++ b/lisp/state.lisp
@@ -17,11 +17,11 @@
 ;; (defmethod initialize-instance :after ((object mahogany-state) &key &allow-other-keys))
 
 (defun server-state-reset (state)
-  (declare (type state mahogany-state))
+  (declare (type mahogany-state state))
   (setf (mahogany-state-server state) nil))
 
 (defun server-stop (state)
-  (declare (type state mahogany-state))
+  (declare (type mahogany-state state))
   (hrt:hrt-server-stop (mahogany-state-server state)))
 
 (defun server-keystate-reset (state)