diff --git a/interface/interface.lisp b/interface/interface.lisp
index 9ec063d843785735940840e7f41e6aa03afb6212..ad5a3620ff9915dc32435007d2b474008c6e4629 100644
--- a/interface/interface.lisp
+++ b/interface/interface.lisp
@@ -284,13 +284,12 @@
   (setf *lisp-interface-shell* nil))
 
 (defun system-server-status-hook (process)
-  (let ((status (ext:process-status process)))
-    (unless (ext:process-alive-p process)
-      (setf *system-motif-server* nil)
-      (warn "Motif server died.~@
-	     Status = ~S, exit code = ~D."
-	    (ext:process-status process)
-	    (ext:process-exit-code process)))))
+  (unless (ext:process-alive-p process)
+    (setf *system-motif-server* nil)
+    (warn "Motif server died.~@
+	   Status = ~S, exit code = ~D."
+	  (ext:process-status process)
+	  (ext:process-exit-code process))))
 
 (defvar *server-startup-timeout* 30)