diff --git a/extra/db/tuples/tuples-tests.factor b/extra/db/tuples/tuples-tests.factor
index fa213efb2f..5ab52899da 100755
--- a/extra/db/tuples/tuples-tests.factor
+++ b/extra/db/tuples/tuples-tests.factor
@@ -429,8 +429,13 @@ subbclass "SUBCLASS" {
     { "b" "B" TEXT }
 } define-persistent
 
+TUPLE: fubbclass < subbclass ;
+
+fubbclass "FUBCLASS" { } define-persistent
+
 : test-db-inheritance ( -- )
     [ ] [ subbclass ensure-table ] unit-test
+    [ ] [ fubbclass ensure-table ] unit-test
     
     [ ] [
         subbclass new 5 >>a "hi" >>b dup insert-tuple id>> "id" set
@@ -439,7 +444,11 @@ subbclass "SUBCLASS" {
     [ t "hi" 5 ] [
         subbclass new "id" get >>id select-tuple
         [ subbclass? ] [ b>> ] [ a>> ] tri
-    ] unit-test ;
+    ] unit-test
+    
+    [ ] [ fubbclass new 0 >>a "hi" >>b insert-tuple ] unit-test
+    
+    [ t ] [ fubbclass new select-tuples [ fubbclass? ] all? ] unit-test ;
 
 [ test-db-inheritance ] test-sqlite