Make consistent with labelling

2 files changed, 5 insertions, 5 deletions

diff --git a/virtual-programs/errors.folk b/virtual-programs/errors.folk
index 555b45bb..28028710 100644
--- a/virtual-programs/errors.folk
+++ b/virtual-programs/errors.folk
@@ -7,5 +7,5 @@ When /p/ has error /err/ with info /info/ {
         }
     }
 
-    Wish $p has title $err
-}
\ No newline at end of file
+    Wish $p is titled $err
+}
diff --git a/virtual-programs/title.folk b/virtual-programs/title.folk
index e17d9d75..fccacc17 100644
--- a/virtual-programs/title.folk
+++ b/virtual-programs/title.folk
@@ -1,6 +1,6 @@
 # Title/footnote wish fulfillment
 # for wishes of the form:
-# "Wish $tag has title "This is a tag"" or "Wish $tag has footnote "This is a footnote""
+# "Wish $tag is titled "This is a tag"" or "Wish $tag is footnoted "This is a footnote""
 
 
 When /thing/ has region /region/ {
@@ -9,7 +9,7 @@ When /thing/ has region /region/ {
     set top [vec2 add [region top $region] [vec2 rotate [list 0 -12] $radians]]
     set bot [vec2 add [region bottom $region] [vec2 rotate [list 0 16] $radians]]
 
-    When the collected matches for [list /someone/ wishes $thing has title /text/] are /matches/ {
+    When the collected matches for [list /someone/ wishes $thing is titled /text/] are /matches/ {
         set text [join [lmap match $matches {dict get $match text}] "\n"]
         if {$text eq ""} { return }
     
@@ -17,7 +17,7 @@ When /thing/ has region /region/ {
         Display::text {*}$top $scale $text $radians
     }
 
-    When the collected matches for [list /someone/ wishes $thing has footnote /text/] are /matches/ {
+    When the collected matches for [list /someone/ wishes $thing is footnoted /text/] are /matches/ {
         set text [join [lmap match $matches {dict get $match text}] "\n"]
         if {$text eq ""} { return }