diff --git a/src/modules/Gdbm/testsuite.in b/src/modules/Gdbm/testsuite.in
index e8b6f3604ce3253eea3df0229d732bf26fcd3268..ea8cb28f993300d49c41cd8e6fbb261e90b867ed 100644
--- a/src/modules/Gdbm/testsuite.in
+++ b/src/modules/Gdbm/testsuite.in
@@ -4,7 +4,6 @@ START_MARKER
 cond_begin([[ master()->resolv("Gdbm") ]])
 
   test_true(programp(Gdbm.gdbm))
-  test_do(destruct(Gdbm.gdbm()))
 
   define([[GDBMTESTS]],
   [[
@@ -44,7 +43,7 @@ cond_begin([[ master()->resolv("Gdbm") ]])
     test_do(GDBMBASE->reorganize())
     test_do(GDBMBASE->sync())
     test_do(GDBMBASE->close())
-    test_do(GDBMBASE->create("test.gdbm"))
+    test_do(add_constant("GDBMBASE",Gdbm.gdbm("test.gdbm")))
   ]])
 
   GDBMTESTS