diff --git a/src/pgsql/schema.lisp b/src/pgsql/schema.lisp
index a87ea99..d9b9a2a 100644
--- a/src/pgsql/schema.lisp
+++ b/src/pgsql/schema.lisp
@@ -235,10 +235,9 @@
 
     (loop
        for index in indexes
-       for table-name = (index-table-name index)
        do
-	 (let ((sql (format-pgsql-create-index index
-					       :identifier-case identifier-case)))
+	 (let ((sql
+		(format-pgsql-create-index index :identifier-case identifier-case)))
 	  (log-message :notice "~a" sql)
 	  (lp:submit-task channel
 			  #'pgsql-execute-with-timing