4 files changed, 17 insertions, 9 deletions
diff --git a/lib/compatibility/3.5.5.6.nom b/lib/compatibility/3.5.5.6.nom
index d9bba4f..9887498 100644
--- a/lib/compatibility/3.5.5.6.nom
+++ b/lib/compatibility/3.5.5.6.nom
@@ -8,4 +8,4 @@ use "compatibility/compatibility"
 
 upgrade action "traceback" to "3.5.5.6" via
     for $tree:
-        compile error at $tree "'traceback' has been deprecated."
+        at $tree fail "Upgrade error: 'traceback' has been deprecated."
diff --git a/lib/compatibility/3.nom b/lib/compatibility/3.nom
index 966dbf9..6ce3fdc 100644
--- a/lib/compatibility/3.nom
+++ b/lib/compatibility/3.nom
@@ -11,5 +11,7 @@ upgrade action (me) to "3" as $me
 upgrade action (@) to "3" as $me
 upgrade action "as" to "3" via
     for $tree:
-        compile error at $tree "Object API has changed and 'as' is no longer supported."
-            "Use ($obj, action ...) instead of (as $obj: action ...)"
+        at $tree fail ("
+            Upgrade error: Object API has changed and 'as' is no longer supported.
+            Hint: Use ($obj, action ...) instead of (as $obj: action ...)
+        ")
diff --git a/lib/compatibility/4.11.nom b/lib/compatibility/4.11.nom
index 88ea7b3..053e1c8 100644
--- a/lib/compatibility/4.11.nom
+++ b/lib/compatibility/4.11.nom
@@ -29,8 +29,10 @@ upgrade action "set" to "4.11" via
 
 upgrade action "1 with 2 ~>" to "4.11" via
     for $tree:
-        compile error at $tree "This method has been deprecated."
-            "Perhaps this could be use ($tree, map ...) instead."
+        at $tree fail ("
+            Upgrade error: This method has been deprecated.
+            Hint: Perhaps this could be use ($tree, map ...) instead.
+        ")
 
 # Changing filesystem API:
 upgrade action (for file $f in $path $body) to "4.11" as
diff --git a/lib/compatibility/4.12.nom b/lib/compatibility/4.12.nom
index bb1af0b..033f6ed 100644
--- a/lib/compatibility/4.12.nom
+++ b/lib/compatibility/4.12.nom
@@ -9,10 +9,14 @@ use "compatibility/compatibility"
 
 upgrade action "do next repeat" to "4.12" via
     for $tree:
-        compile error at $tree "This method has been deprecated."
-            "Use either (do next) or (go to (label)) instead."
+        at $tree fail ("
+            Upgrade error: This method has been deprecated.
+            Hint: Use either (do next) or (go to (label)) instead.
+        ")
 
 upgrade action "stop repeating" to "4.12" via
     for $tree:
-        compile error at $tree "This method has been deprecated."
-            "Use either (stop) or (go to (label)) instead."
+        at $tree fail ("
+            Upgrade error: This method has been deprecated.
+            Hint: Use either (stop) or (go to (label)) instead.
+        ")