diff --git a/src/adt/htable_i8.f90 b/src/adt/htable_i8.f90
index f65ea7c0def..45e6edb4c8a 100644
--- a/src/adt/htable_i8.f90
+++ b/src/adt/htable_i8.f90
@@ -42,7 +42,7 @@ module subroutine htable_i8_init(this, size, data)
     class(*), intent(inout), optional :: data !< Data to associate with @a key
     integer :: i
     
-    call htable_free(this)
+    call this%free()
 
     if (size .lt. 4) then
        size = 4