@@ -403,23 +403,18 @@
 ;;======================================================================
 ;; Move me elsewhere ...
 ;; RADT => Why do we meed the version check here, this is called only if version misma
 ;;
 (define (common:cleanup-db dbstruct #!key (full #f))
-  (debug:print 0 *default-log-port* "WARNING: common:cleanup-db has NOT been reimplemented yet! Please fix!")
-  #;(apply db:multi-db-sync 
+  (apply db:multi-db-sync 
    dbstruct
    'schema
-   ;; 'new2old
    'killservers
    'adj-target
-   ;; 'old2new
    'new2old
-   ;; (if full
-       '(dejunk)
-       ;; '())
-       )
+   '(dejunk)
+  )
   (if (common:api-changed?)
       (common:set-last-run-version)))
 
 (define (common:snapshot-file filepath #!key (subdir  ".") )
   (if (file-exists? filepath)