diff --git a/Netdisco/Changes b/Netdisco/Changes
index 2835204c..ee309134 100644
--- a/Netdisco/Changes
+++ b/Netdisco/Changes
@@ -1,3 +1,9 @@
+2.028014
+
+  [BUG FIXES]
+
+  * Missing action to netdisco-do should not throw Perl error
+
 2.028013 - 2014-07-31
 
   [ENHANCEMENTS]
diff --git a/Netdisco/bin/netdisco-do b/Netdisco/bin/netdisco-do
index 58bd329b..7d6457b9 100755
--- a/Netdisco/bin/netdisco-do
+++ b/Netdisco/bin/netdisco-do
@@ -65,7 +65,7 @@ schema('daemon')->deploy;
 # get requested action
 my $action = shift @ARGV;
 
-if (!length $action) {
+unless ($action) {
   error 'error: missing action!';
   exit (1);
 }