diff --git a/hemlock/lispeval.lisp b/hemlock/lispeval.lisp
index 3d27b6652a4ae4b5d92fc835c9f6ad8463ca8970..bc3ef3f84308c32192409b8e564365f5421ffce0 100644
--- a/hemlock/lispeval.lisp
+++ b/hemlock/lispeval.lisp
@@ -166,6 +166,9 @@
 				 :message message
 				 :line line)))
     (message "~A" message)
+    (case severity
+      (:error (incf (note-errors note)))
+      (:warning (incf (note-warnings note))))
     (let ((region (case (note-kind note)
 		    (:compile
 		     (note-region note))