--- src/mythtv/bindings/perl/MythTV/Program.pm.orig	2016-04-28 20:31:49.230576243 +0000
+++ src/mythtv/bindings/perl/MythTV/Program.pm	2016-04-28 20:28:29.779523866 +0000
@@ -346,6 +346,7 @@
         ($fields{'S'} = ($self->{'subtitle'}    or '')) =~ s/%/%%/g;
         ($fields{'R'} = ($self->{'description'} or '')) =~ s/%/%%/g;
         ($fields{'C'} = ($self->{'category'}    or '')) =~ s/%/%%/g;
+        ($fields{'Ct'} = ($self->{'categorytype'}    or '')) =~ s/%/%%/g;
         ($fields{'U'} = ($self->{'recgroup'}    or '')) =~ s/%/%%/g;
     # Misc
         ($fields{'hn'} = ($self->{'hostname'}    or '')) =~ s/%/%%/g;