diff --git a/pelab/bgmon/libwanetmon.pm b/pelab/bgmon/libwanetmon.pm
index 908be92e27b46f7f8a995bd374e4819f3e1576db..e3fefa477e89bce0b15cf897e3ef4a0a76347b97 100644
--- a/pelab/bgmon/libwanetmon.pm
+++ b/pelab/bgmon/libwanetmon.pm
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 #
 # EMULAB-COPYRIGHT
-# Copyright (c) 2006 University of Utah and the Flux Group.
+# Copyright (c) 2006, 2007 University of Utah and the Flux Group.
 # All rights reserved.
 #
 
@@ -28,6 +28,7 @@ our @EXPORT = qw (
 	       time_all
 	       setcmdport
 	       setexpid
+	       setevexpid
 	       stopnode
 	       stopnode_evsys
 	       edittest
@@ -55,9 +56,7 @@ my $socket;
 my $sel = IO::Select->new();
 my $port;
 my $expid;
-
-
-
+my $evexpid = "__none";
 
 sub setcmdport($)
 {
@@ -71,6 +70,12 @@ sub setexpid($)
 #    print "libwanetmon: expid=$expid\n";
 }
 
+sub setevexpid($)
+{
+    $evexpid = $_[0];
+#    print "libwanetmon: evexpid=$evexpid\n";
+}
+
 
 #
 # Custom sub to turn a hash into a string. Hashes must not contain
@@ -213,7 +218,7 @@ sub sendcmd_evsys($$$;$)
     %$tuple = ( objtype   => "WANETMON",
 		objname   => $manType,
 		eventtype => $cmdname,
-		expt      => "__none",
+		expt      => $evexpid,
 		);
 
     my $notification = event::event_notification_alloc($handle,$tuple);