diff --git a/lib/WebGUI/SQL/Trace.pm b/lib/WebGUI/SQL/Trace.pm
index efe382fdf..8882abe80 100644
--- a/lib/WebGUI/SQL/Trace.pm
+++ b/lib/WebGUI/SQL/Trace.pm
@@ -27,9 +27,7 @@ sub WRITE {
         for ( my $i = 0; caller($i); $i++) {
             (my $package, undef, $line) = caller($i);
             next
-                if $package eq 'WebGUI::SQL';
-            next
-                if $package eq 'WebGUI::SQL::ResultSet';
+                if $package =~ /\A(?:WebGUI::SQL|DBI|DBD)(?:\z|::)/;
             ($sub) = (caller($i + 1))[3];
             last;
         }