diff --git a/apps/credits.pl b/apps/credits.pl
index 3d3945d2ad..942a96b99f 100644
--- a/apps/credits.pl
+++ b/apps/credits.pl
@@ -1,10 +1,13 @@
+#             __________               __   ___.
+#   Open      \______   \ ____   ____ |  | _\_ |__   _______  ___
+#   Source     |       _//  _ \_/ ___\|  |/ /| __ \ /  _ \  \/  /
+#   Jukebox    |    |   (  <_> )  \___|    < | \_\ (  <_> > <  <
+#   Firmware   |____|_  /\____/ \___  >__|_ \|___  /\____/__/\_ \
+#                     \/            \/     \/    \/            \/
+# $Id$
+#
 while (<STDIN>) {
-    chomp;	# strip record separator
-    my @Fld = split(' ', $_, 9999);
-    if ($a && length($Fld[1])) {
-	print "\"$_\",\n";
-    }
-    if (/Friend/) {
-	$a++;
+    if(($_ =~ /^([A-Z]+[\S ]+)/) && ($_ !~ /^People/)) {
+	print "\"$1\",\n";
     }
 }