diff --git a/Netdisco/Changes b/Netdisco/Changes
index 2658233b..7cc003b7 100644
--- a/Netdisco/Changes
+++ b/Netdisco/Changes
@@ -9,6 +9,7 @@
   [ENHANCEMENTS]
 
   * Kwalitee fixes
+  * workaround for https://rt.cpan.org/Ticket/Display.html?id=93244
 
 2.023002 - 2014-02-17
 
diff --git a/Netdisco/lib/App/Netdisco/DB/ResultSet/Device.pm b/Netdisco/lib/App/Netdisco/DB/ResultSet/Device.pm
index 54832d2c..20e7d898 100644
--- a/Netdisco/lib/App/Netdisco/DB/ResultSet/Device.pm
+++ b/Netdisco/lib/App/Netdisco/DB/ResultSet/Device.pm
@@ -372,8 +372,8 @@ sub carrying_vlan {
       if ref {} ne ref $cond or !exists $cond->{vlan};
 
     $cond->{'-and'} ||= [];
-    push @{$cond->{'-and'}}, 'vlans.vlan' => $cond->{vlan};
-    push @{$cond->{'-and'}}, 'port_vlans.vlan' => delete $cond->{vlan};
+    push @{$cond->{'-and'}}, { 'vlans.vlan' => $cond->{vlan} };
+    push @{$cond->{'-and'}}, { 'port_vlans.vlan' => delete $cond->{vlan} };
 
     return $rs
       ->search_rs($cond,