--- a/log.pl	Wed Aug 16 08:14:19 2006 +0000
+++ b/log.pl	Wed Jan 16 14:42:22 2008 +0000
@@ -195,7 +195,7 @@
 {
     my $user = `who am i`;
     chomp $user;
-    $user .= " [" . ($ENV{REMOTE_USER} || "-") . "]";
+    $user .= " [" . ($ENV{IUS_PROFILE} || $ENV{REMOTE_USER} || "-") . "]";
     return $user;
 }