diff --git a/basis/compiler/errors/errors.factor b/basis/compiler/errors/errors.factor
index 189e6344e9..cb205e13b2 100644
--- a/basis/compiler/errors/errors.factor
+++ b/basis/compiler/errors/errors.factor
@@ -48,7 +48,8 @@ T{ error-type
 
 : compiler-error ( error word -- )
     compiler-errors get-global pick
-    [ [ [ <compiler-error> ] keep ] dip set-at ] [ delete-at drop ] if ;
+    [ [ [ <compiler-error> ] keep ] dip set-at ] [ delete-at drop ] if
+    notify-error-observers ;
 
 : compiler-errors. ( type -- )
     errors-of-type values errors. ;
diff --git a/basis/help/lint/lint.factor b/basis/help/lint/lint.factor
index ec373882a2..0c3c6d232d 100755
--- a/basis/help/lint/lint.factor
+++ b/basis/help/lint/lint.factor
@@ -33,10 +33,9 @@ M: help-lint-error error-type drop +help-lint-failure+ ;
 PRIVATE>
 
 : help-lint-error ( error topic -- )
-    over [
-        [ <help-lint-error> ] keep
-        lint-failures get set-at
-    ] [ nip lint-failures get delete-at ] if ;
+    lint-failures get pick
+    [ [ [ <help-lint-error> ] keep ] dip set-at ] [ delete-at drop ] if
+    notify-error-observers ;
 
 <PRIVATE
 
diff --git a/basis/tools/test/test.factor b/basis/tools/test/test.factor
index b2340a2c52..0741b90984 100644
--- a/basis/tools/test/test.factor
+++ b/basis/tools/test/test.factor
@@ -39,7 +39,8 @@ T{ error-type
 
 : failure ( error experiment file line# -- )
     "--> test failed!" print
-    <test-failure> test-failures get push ;
+    <test-failure> test-failures get push
+    notify-error-observers ;
 
 SYMBOL: file