gistfile1.perl

diff --git a/t/lib/WebGUI/Test.pm b/t/lib/WebGUI/Test.pm
index 2a5f236..693377c 100644
--- a/t/lib/WebGUI/Test.pm
+++ b/t/lib/WebGUI/Test.pm
@@ -516,7 +516,7 @@ Example call:
                 ( $sql, @params ) = @$sql;
             }
             return sub {
-                $db->do( $sql, {}, @params );
+                $db->write( $sql, {}, @params );
             }
         },
     );