X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fdb%2Fsqlite%2Fsqlite.factor;h=ecc115bd1517c09d135e09e724949005f966a844;hp=2aea3e1fb1281e28f9ec8a9e817f81ea5fd9e3f0;hb=714c6d2b9464e193e24cb45fab1961d96a9d422c;hpb=e766b83ac0fcc5857602dcfae2791be3b93602b6

diff --git a/basis/db/sqlite/sqlite.factor b/basis/db/sqlite/sqlite.factor
index 2aea3e1fb1..ecc115bd15 100644
--- a/basis/db/sqlite/sqlite.factor
+++ b/basis/db/sqlite/sqlite.factor
@@ -260,7 +260,7 @@ M: sqlite-db-connection persistent-table
     "sql-spec" get modifiers>> [ +not-null+ = ] none? ;
 
 : delete-cascade? ( -- ? )
-    "sql-spec" get modifiers>> { +on-delete+ +cascade+ } subseq-index? ;
+    "sql-spec" get modifiers>> { +on-delete+ +cascade+ } subseq-of? ;
 
 : sqlite-trigger, ( string -- )
     { } { } <simple-statement> 3, ;