--- loncom/xml/lonxml.pm	2006/03/23 23:48:10	1.402
+++ loncom/xml/lonxml.pm	2006/04/11 14:07:33	1.403
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.402 2006/03/23 23:48:10 albertel Exp $
+# $Id: lonxml.pm,v 1.403 2006/04/11 14:07:33 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1579,9 +1579,11 @@ sub error {
 	if ( !$symb ) {
 	    #public or browsers
 	    $errormsg=&mt("An error occured while processing this resource. The author has been notified.");
-	} 
+	}
+	my $msg = join('<br />',@_)." <p>this error occurred on machine ".
+	    $perlvar{'lonHostID'}."</p>";
 	#notify author
-	&Apache::lonmsg::author_res_msg($env{'request.filename'},join('<br />',@_));
+	&Apache::lonmsg::author_res_msg($env{'request.filename'},$msg);
 	#notify course
 	if ( $symb && $env{'request.course.id'} ) {
 	    my $cnum=$env{'course.'.$env{'request.course.id'}.'.num'};
@@ -1599,7 +1601,7 @@ sub error {
 		my $now=time;
 		if ($now-$lastnotified{$key}>86400) {
 		    &Apache::lonmsg::user_normal_msg($user,$domain,
-						 "Error [$declutter]",join('<br />',@_));
+						 "Error [$declutter]",$msg);
 		    &Apache::lonnet::put('nohist_xmlerrornotifications',
 					 {$key => $now},
 					 $cdom,$cnum);