 
 #-----------------------------------------------------------------------------------------------------------
 @$warn_on_unhandled_achrs = ( S ) -> $ ( d, send ) =>
-    if ( select d, '.', 'achr-split' ) then send new_warning 'µ99823', "unhandled active characters", d, $: d
-    else send d
+    if ( select d, '.', 'achr-split' )
+      lnr     = d.$?.lnr  ? '?'
+      text    = if d.$?.text? then ( rpr d.$.text ) else '?'
+      message = "unhandled active characters #{rpr d.value} on line #{lnr} in #{text}"
+      send new_warning 'µ99823', message, d, $: d
+    else
+      send d
     return null
 
 

  PS.pull pipeline...
  #.........................................................................................................
  lnr     = 0
  R       = ( value ) -> lnr += +1; S.source.push new_text_event value, $: { lnr, }
  R.end   = -> S.source.end()
  return R


unless module.parent?
  S = {}
  texts = [
    'a line of text.'
    'a line of *text*.'
    'a line of 𣥒text*.'
    'a **strong** and a *less strong* emphasis.'
    'a *normal and a **strong** emphasis*.'
    'another *such and **such*** emphasis.'
    ]
  push = @new_parser S
  for text in texts
