Index: /tools/proxy-8.0/g_list.pl
===================================================================
--- /tools/proxy-8.0/g_list.pl	(revision 8033)
+++ /tools/proxy-8.0/g_list.pl	(revision 8034)
@@ -40,5 +40,13 @@
   foreach $dir (sort @tmpdirs) {
     no warnings "once";
-    if( not exists($removefromnodelist{$dir}) )
+    my $remove = 0;
+    foreach $pattern (@removefromnodelist) {
+      print $pattern;
+       if ($dir =~ /$pattern/i) {
+          $remove = 1;
+          break;
+       }
+    };
+    if( $remove == 0 )
     {
       push(@nodelist, $dir);
@@ -50,5 +58,14 @@
     use warnings "once";
   };
-  return @nodelist;
+  # Looks like magic, but actually just sorting an array, first based on
+  # the Alpha key and next numerics sort on the numeric port
+  return sort {
+     $a =~ m/^([a-zA-Z]+)([0-9]+)$/; $nameA = $1; $numberA = $2;
+     $b =~ m/^([a-zA-Z]+)([0-9]+)$/; $nameB = $1; $numberB = $2;
+     if ($nameA == $nameB) {
+      $numberA <=> $numberB;
+     } else {
+       $nameA cmp $nameB;
+     } } @nodelist;
 }
 
@@ -158,5 +175,5 @@
 
   @dirs = listnodes( );
-  foreach $dir (sort @dirs) {
+  foreach $dir (@dirs) {
     if( $dir=~/attic/ ) {
       next;
Index: /tools/proxy-8.0/genesis.conf
===================================================================
--- /tools/proxy-8.0/genesis.conf	(revision 8033)
+++ /tools/proxy-8.0/genesis.conf	(revision 8034)
@@ -20,8 +20,5 @@
 
 #Ignore this node diretories
-%removefromnodelist = (
-                      'retired' => 'YES',
-                      'obsolete' => 'YES',
-                       );
+@removefromnodelist = ('retired','obsolete', '^CNode');
 
 #(inter)net env