From 86a9268c8db1a43f9c08e4b11ef753ff5b5de0e7 Mon Sep 17 00:00:00 2001
From: pmichaud <pmichaud@pobox.com>
Date: Sat, 5 Sep 2009 01:36:21 -0500
Subject: [PATCH] Update Failure objects to output to contextual $*ERR.

---
 src/classes/Failure.pir | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/classes/Failure.pir b/src/classes/Failure.pir
index 0243c9a21c4..d6ab70ea17e 100644
--- a/src/classes/Failure.pir
+++ b/src/classes/Failure.pir
@@ -10,7 +10,7 @@
     p6meta.'register'('Undef', 'parent'=>failureproto, 'protoobject'=>failureproto)
 
     $P0 = box 1
-    set_hll_global ['CORE';'GLOBAL'], '$WARNINGS', $P0
+    set_hll_global ['GLOBAL'], '$WARNINGS', $P0
 .end
 
 =head2 Methods
@@ -84,13 +84,13 @@
 .sub '!throw_unhandled' :method
     $I0 = self.'handled'()
     if $I0 goto done
-    $P0 = get_hll_global ['CORE';'GLOBAL'], '$WARNINGS'
+    $P0 = get_hll_global ['GLOBAL'], '$WARNINGS'
     unless $P0 goto done
     $P0 = self.'!exception'()
     $S0 = $P0['message']
     $S0 = concat $S0, "\n"
     .local pmc err
-    err = get_hll_global "$ERR"
+    err = '!find_contextual'('$*ERR')
     err.'print'($S0)
   done:
 .end