diff --git a/fhem/FHEM/60_EM.pm b/fhem/FHEM/60_EM.pm
index 1363a798a..fdaa3c87c 100755
--- a/fhem/FHEM/60_EM.pm
+++ b/fhem/FHEM/60_EM.pm
@@ -237,7 +237,7 @@ EmGetData($$)
   $serport->stopbits(1);
   $serport->handshake('none');
 
-  Log 5, "EM: Sending " . unpack('H*', $d) . "\n";
+  Log 4, "EM: Sending " . unpack('H*', $d) . "\n";
 
   my $rm = "EM timeout reading the answer";
   for(my $rep = 0; $rep < 3; $rep++) {
diff --git a/fhem/FHEM/61_EMWZ.pm b/fhem/FHEM/61_EMWZ.pm
index 88a1a11d7..b069d5929 100755
--- a/fhem/FHEM/61_EMWZ.pm
+++ b/fhem/FHEM/61_EMWZ.pm
@@ -89,6 +89,7 @@ EMWZ_GetStatus($)
   }
 
   $hash->{STATE} = "$cur_power kWh";
+  Log GetLogLevel($name,4), "EMWZ $name: $cur_power kWh / $vals{energy}";
 
   return $hash->{STATE};
 }
diff --git a/fhem/FHEM/62_EMEM.pm b/fhem/FHEM/62_EMEM.pm
index ef3c98695..82714a548 100755
--- a/fhem/FHEM/62_EMEM.pm
+++ b/fhem/FHEM/62_EMEM.pm
@@ -65,6 +65,7 @@ EMEM_GetStatus($)
   $vals{"alarm_PA"} = w($d,45) . " Watt";
   $vals{"price_CF"} = sprintf("%.3f", w($d,47)/10000);
 
+
   my $tn = TimeNow();
   my $idx = 0;
   foreach my $k (keys %vals) {
@@ -79,6 +80,7 @@ EMEM_GetStatus($)
   }
 
   $hash->{STATE} = "$cur_power kWh";
+  Log GetLogLevel($name,4), "EMEM $name: $cur_power kWh / $vals{energy} kWh/h";
 
   return $hash->{STATE};
 }
diff --git a/fhem/HISTORY b/fhem/HISTORY
index e8799d53c..c608f8746 100644
--- a/fhem/HISTORY
+++ b/fhem/HISTORY
@@ -107,3 +107,6 @@
 
 - Pest, Mon May 29 00:07:00 MEST 2007
   - check-in changes of 60_EM.pm to make EMEM work.
+
+- Mon Jun  4 08:23:43 MEST 2007
+  - Small changes for EM logging