diff --git a/lib/WebGUI/Asset/Wobject/Calendar.pm b/lib/WebGUI/Asset/Wobject/Calendar.pm
index 8755ccb8f..77ab86e4f 100644
--- a/lib/WebGUI/Asset/Wobject/Calendar.pm
+++ b/lib/WebGUI/Asset/Wobject/Calendar.pm
@@ -857,8 +857,10 @@ sub processPropertiesFromFormPost {
     # Workaround WebGUI::Session::Form->param bug that returns duplicate
     # names.
     my %feeds;
-    $feeds{$_}++ 
-        for map { s/^feeds-//; $_; } grep /^feeds-/,($form->param());
+    for my $feedId ( grep /^feeds-/, ($form->param()) ) {
+        $feedId =~ s/^feeds-//;
+        $feeds{$feedId}++;
+    }
     my @feedsFromForm = keys %feeds;
     
     # Delete old feeds that are not in @feeds