diff --git a/basis/db/queries/queries.factor b/basis/db/queries/queries.factor index 6b1067baf0..b181aab23b 100644 --- a/basis/db/queries/queries.factor +++ b/basis/db/queries/queries.factor @@ -201,7 +201,7 @@ M: db ( query -- statement ) : create-index ( index-name table-name columns -- ) [ - [ [ "create index " % % ] dip " on " % % ] 2dip "(" % + [ [ "create index " % % ] dip " on " % % ] dip "(" % "," join % ")" % ] "" make sql-command ;