diff --git a/expect_uml b/expect_uml
index 7f48555..e19a440 100755
--- a/expect_uml
+++ b/expect_uml
@@ -29,12 +29,11 @@ BEGIN {
     my $fhs = grep(/\/usr\/share\/perl5/,@INC);
 
 
-    unshift(@INC,".");  # better make sure we mean . when we mean .
-
     if ($fhs == 0) {
 	unshift(@INC,"/usr/share/perl5");
     }
 
+    unshift(@INC,".");  # better make sure we mean . when we mean .
 
     my $sbin = grep(/\/sbin/,$ENV{'PATH'});
     if ($sbin == 0) {
diff --git a/gbootroot b/gbootroot
index 1a11e63..57ee261 100755
--- a/gbootroot
+++ b/gbootroot
@@ -220,12 +220,11 @@ BEGIN {
 
     my $fhs = grep(/\/usr\/share\/perl5/,@INC);
 
-    unshift(@INC,".");  # better make sure we mean . when we mean .
-
     if ($fhs == 0) {
 	unshift(@INC,"/usr/share/perl5");
     }
 
+    unshift(@INC,".");  # better make sure we mean . when we mean .
 
     my $sbin = grep(/\/sbin/,$ENV{'PATH'});
     if ($sbin == 0) {
diff --git a/yard_chrooted_tests b/yard_chrooted_tests
index 5b47d13..9e1e400 100755
--- a/yard_chrooted_tests
+++ b/yard_chrooted_tests
@@ -36,12 +36,12 @@ BEGIN {
 
     my $fhs = grep(/\/usr\/share\/perl5/,@INC);
 
-    unshift(@INC,".");  # better make sure we mean . when we mean .
 
     if ($fhs == 0) {
 	unshift(@INC,"/usr/share/perl5");
     }
 
+    unshift(@INC,".");  # better make sure we mean . when we mean .
 
     my $sbin = grep(/\/sbin/,$ENV{'PATH'});
     if ($sbin == 0) {