--- loncom/xml/lonxml.pm	2000/11/15 15:29:33	1.39
+++ loncom/xml/lonxml.pm	2000/11/22 17:35:13	1.40
@@ -10,6 +10,7 @@ qw(@pwd $outputstack $redirection $textr
 use strict;
 use HTML::TokeParser;
 use Safe;
+use Safe::Hole;
 use Opcode;
 
 sub register {
@@ -53,9 +54,11 @@ sub xmlparse {
  my $result;
 
  my $safeeval = new Safe;
+ my $safehole = new Safe::Hole;
  $safeeval->permit("entereval");
  $safeeval->permit(":base_math");
  $safeeval->deny(":base_io");
+ $safehole->wrap(\&Apache::lonnet::EXT,$safeeval,'&EXT');
 #need to inspect this class of ops
 # $safeeval->deny(":base_orig");
  $safeinit .= ';$external::target='.$target.';';