diff --git a/extra/couchdb/couchdb.factor b/extra/couchdb/couchdb.factor
index 4e07fc6d4b..f0faf94e99 100644
--- a/extra/couchdb/couchdb.factor
+++ b/extra/couchdb/couchdb.factor
@@ -118,9 +118,6 @@ C: <db> db
 : db-info ( db -- info )
     db-url couch-get ;
 
-: compact-db ( db -- )
-    f swap db-url "_compact" append couch-post response-ok* ;
-
 : all-docs ( db -- docs )
     ! TODO: queries. Maybe pass in a hashtable with options
     db-url "_all_docs" append couch-get ;
@@ -128,6 +125,9 @@ C: <db> db
 : <json-post-data> ( assoc -- post-data )
     >json utf8 encode "application/json" <post-data> swap >>data ;
 
+: compact-db ( db -- )
+    f <json-post-data> swap db-url "_compact" append couch-post response-ok* ;
+
 ! documents
 : id> ( assoc -- id ) "_id" of ;
 : >id ( assoc id -- assoc ) "_id" pick set-at ;