diff --git a/perl-xCAT/xCAT/Utils.pm b/perl-xCAT/xCAT/Utils.pm
index 967bce17d..7f2e0164f 100644
--- a/perl-xCAT/xCAT/Utils.pm
+++ b/perl-xCAT/xCAT/Utils.pm
@@ -335,6 +335,7 @@ sub xfork
         #my %drivers = DBI->installed_drivers;
         foreach (values %{$::XCAT_DBHS})
         {    #@{$drh->{ChildHandles}}) {
+            if ($_) { $_->disconnect(); }
             $_->{InactiveDestroy} = 1;
             undef $_;
         }