Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -402,11 +402,12 @@
 ;;======================================================================
 ;; 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))
-  (apply db:multi-db-sync 
+  (debug:print 0 *default-log-port* "WARNING: common:cleanup-db has NOT been reimplemented yet! Please fix!")
+  #;(apply db:multi-db-sync 
    dbstruct
    'schema
    ;; 'new2old
    'killservers
    'adj-target