--- groffer.pl.old    2011-01-23 10:11:11.000000000 +1100
+++ groffer.pl    2011-01-23 10:12:12.000000000 +1100
@@ -1323,8 +1323,8 @@ sub _get_first_prog {
     if (%prog) {
       $Display{'PROG'} = $prog{'fullname'};
       $Display{'ARGS'} = $prog{'args'};
+      return 1;  # james bug fix
     }
-    return 1;
   }
   return 0;
 } # _get_first_prog() of main_set_mode()
--- man.pl.old    2011-01-23 10:11:48.000000000 +1100
+++ man.pl    2011-01-23 10:13:01.000000000 +1100
@@ -522,7 +522,8 @@ sub manpath_set_from_path {
   my @path =
     qw( /usr/local /usr /usr/X11R6 /usr/openwin /opt /opt/gnome /opt/kde );
   # get a basic man path from $ENV{PATH}
-  foreach (@main::Path) {
+  my @path2 = @main::Path; # james bug fix
+  foreach (@path2) { # james bug fix
     s#bin/*$##;
     push @path, $_;
   }