diff --git a/C4/Labels.pm b/C4/Labels.pm
index 14d322730f..02607c2855 100644
--- a/C4/Labels.pm
+++ b/C4/Labels.pm
@@ -936,7 +936,7 @@ sub split_ddcn {
     # ddcn examples: 'R220.3 H2793Z H32 c.2', 'BIO JP2 R5c.1'
 
     my (@parts) = m/
-        ^([a-zA-Z]+(?:$possible_decimal)?) # R220.3            # BIO   # first example will require extra splitting
+        ^([a-zA-Z-]+(?:$possible_decimal)?) # R220.3            # BIO   # first example will require extra splitting
         \s*
         (.+)                               # H2793Z H32 c.2   # R5c.1   # everything else (except bracketing spaces)
         \s*
diff --git a/t/Labels_split_ddcn.t b/t/Labels_split_ddcn.t
index ca879f372e..7927ec0c31 100755
--- a/t/Labels_split_ddcn.t
+++ b/t/Labels_split_ddcn.t
@@ -5,7 +5,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 52;
+use Test::More tests => 62;
 
 BEGIN {
     use_ok('C4::Labels');
@@ -17,6 +17,7 @@ my $ddcns = {
     'FIC GIR J5c.1'         => [qw(FIC GIR J5 c.1 )],
     'J DAR G7c.11'          => [qw( J  DAR G7 c.11)],
     'R220.3 H2793Z H32 c.2' => [qw(R 220.3 H2793Z H32 c.2)],
+    'CD-ROM 787.87 EAS'     => [qw(CD-ROM 787.87 EAS)],
 };
 
 foreach my $ddcn (sort keys %$ddcns) {