diff --git a/collects/meta/drdr2/tests/db.rkt b/collects/meta/drdr2/tests/db.rkt
index 2000908d10..56a8a6a7bd 100644
--- a/collects/meta/drdr2/tests/db.rkt
+++ b/collects/meta/drdr2/tests/db.rkt
@@ -18,6 +18,15 @@
        (for ([j (in-range 10)])
          (test
           (db-ref db (number->string i) (number->string j)) =>
-          (num (+ i j))))))
+          (num (+ i j))))
+       
+       (for ([j (in-range 10)])
+         (test
+          (db-set! db (num (* i j)) (number->string i) (number->string j))))
+       
+       (for ([j (in-range 10)])
+         (test
+          (db-ref db (number->string i) (number->string j)) =>
+          (num (* i j))))))
     
     (db-close! db))))
\ No newline at end of file