Index: api.scm
==================================================================
--- api.scm
+++ api.scm
@@ -31,11 +31,12 @@
 (declare (uses debugprint))
 
 (import dbmod)
 (import dbfile)
 (import rmtmod
-	debugprint)
+	;; debugprint
+	)
 
 (define *db-write-mutexes* (make-hash-table))
 
 ;; These are called by the server on recipt of /api calls
 ;;    - keep it simple, only return the actual result of the call, i.e. no meta info here

Index: archive.scm
==================================================================
--- archive.scm
+++ archive.scm
@@ -26,11 +26,11 @@
 (declare (uses debugprint))
 
 (include "common_records.scm")
 (include "db_records.scm")
 
-(import debugprint)
+;; (import debugprint)
 
 ;;======================================================================
 ;; 
 ;;======================================================================
 

Index: clientmod.scm
==================================================================
--- clientmod.scm
+++ clientmod.scm
@@ -40,11 +40,11 @@
 	srfi-18
 	typed-records
 
 	artifacts
 	servermod
-	debugprint
+	;; debugprint
 	)
 
 (defstruct con ;; client connection
   (hdir       #f) ;; this is the directory sdir/serverhost.serverpid
   (sdir       #f)

Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -30,11 +30,12 @@
 (declare (unit common))
 (declare (uses commonmod))
 (declare (uses debugprint))
 
 (import commonmod
-	debugprint)
+	;; debugprint
+	)
 
 (include "common_records.scm")
 
 
 ;; (require-library margs)

Index: configf.scm
==================================================================
--- configf.scm
+++ configf.scm
@@ -29,11 +29,11 @@
 (declare (uses keys))
 (declare (uses debugprint))
 
 (include "common_records.scm")
 
-(import debugprint)
+;; (import debugprint)
 
 ;; return list (path fullpath configname)
 (define (find-config configname #!key (toppath #f))
   (if toppath
       (let ((cfname (conc toppath "/" configname)))

Index: configfmod.scm
==================================================================
--- configfmod.scm
+++ configfmod.scm
@@ -44,11 +44,11 @@
 ;;	chicken.sort
 ;;	chicken.string
 ;;	chicken.time
 ;;	chicken.eval
 ;;	
-	debugprint
+;;	debugprint
 	(prefix mtargs args:)
 ;;	pkts
 ;;	keysmod
 ;;
 ;;	(prefix base64 base64:)

Index: dashboard-context-menu.scm
==================================================================
--- dashboard-context-menu.scm
+++ dashboard-context-menu.scm
@@ -46,11 +46,11 @@
 
 (include "common_records.scm")
 (include "db_records.scm")
 (include "run_records.scm")
 
-(import debugprint)
+;; (import debugprint)
 
 (define (dboard:launch-testpanel run-id test-id)
   (let* ((dboardexe (common:find-local-megatest "dashboard"))
          (cmd (conc dboardexe
                     " -test " run-id "," test-id

Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -55,11 +55,11 @@
 
 (include "megatest-version.scm")
 (include "megatest-fossil-hash.scm")
 (include "vg_records.scm")
 
-(import debugprint)
+;; (import debugprint)
 
 (dbfile:db-init-proc db:initialize-main-db)
 
 (define help (conc 
 	      "Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest version " megatest-version 

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -64,11 +64,12 @@
 (define *number-of-writes* 0)
 (define *number-non-write-queries* 0)
 
 (import dbmod
 	dbfile
-	debugprint)
+	;; debugprint
+	)
 
 ;; record for keeping state,status and count for doing roll-ups in
 ;; iterated tests
 ;;
 (defstruct dbr:counts

Index: dbfile.scm
==================================================================
--- dbfile.scm
+++ dbfile.scm
@@ -37,11 +37,11 @@
 	stack
 	files
 	ports
 
 	commonmod
-	debugprint
+	;; debugprint
 	)
 
 ;;======================================================================
 ;;  R E C O R D S
 ;;======================================================================

Index: dcommon.scm
==================================================================
--- dcommon.scm
+++ dcommon.scm
@@ -31,11 +31,11 @@
 (declare (uses db))
 (declare (uses commonmod))
 (declare (uses debugprint))
 
 (import commonmod
-	debugprint
+	;; debugprint
 	)
 ;; (declare (uses synchash))
 
 (include "megatest-version.scm")
 (include "common_records.scm")

Index: diff-report.scm
==================================================================
--- diff-report.scm
+++ diff-report.scm
@@ -23,11 +23,11 @@
          
 (include "common_records.scm")
 (use matchable)
 (use fmt)
 (use ducttape-lib)
-(import debugprint)
+;; (import debugprint)
 
 (define css "")
 
 (define (diff:tests-mindat->hash tests-mindat)
   (let* ((res (make-hash-table)))

Index: env.scm
==================================================================
--- env.scm
+++ env.scm
@@ -21,11 +21,11 @@
 (declare (unit env))
 (declare (uses debugprint))
 
 (use sql-de-lite) ;; srfi-1 posix regex regex-case srfi-69 srfi-18 call-with-environment-variables)
 
-(import debugprint)
+;; (import debugprint)
 
 (define (env:open-db fname)
   (let* ((db-exists (common:file-exists? fname))
 	 (db        (open-database fname)))
     (if (not db-exists)

Index: ezsteps.scm
==================================================================
--- ezsteps.scm
+++ ezsteps.scm
@@ -34,11 +34,11 @@
 (include "common_records.scm")
 (include "key_records.scm")
 (include "db_records.scm")
 (include "run_records.scm")
 
-(import debugprint)
+;; (import debugprint)
 ;;(rmt:get-test-info-by-id run-id test-id) -> testdat
 
 ;; TODO: deprecate me in favor of ezsteps.scm
 ;;
 (define (launch:runstep ezstep run-id test-id exit-info m tal testconfig all-steps-dat)

Index: genexample.scm
==================================================================
--- genexample.scm
+++ genexample.scm
@@ -20,11 +20,11 @@
 
 (declare (unit genexample))
 (declare (uses debugprint))
 
 (use posix regex matchable)
-(import debugprint)
+;; (import debugprint)
 
 (include "db_records.scm")
 
 (define genexample:example-logpro
 #<<EOF

Index: items.scm
==================================================================
--- items.scm
+++ items.scm
@@ -25,11 +25,11 @@
 (declare (uses common))
 (declare (uses debugprint))
 
 (include "common_records.scm")
 
-(import debugprint)
+;; (import debugprint)
 
 ;; Puts out all combinations
 (define (process-itemlist hierdepth curritemkey itemlist)
   (let ((res '()))
     (if (not hierdepth)

Index: keys.scm
==================================================================
--- keys.scm
+++ keys.scm
@@ -26,11 +26,11 @@
 (declare (uses debugprint))
 
 (use srfi-1 posix regex regex-case srfi-69
      (prefix sqlite3 sqlite3:))
 
-(import debugprint)
+;; (import debugprint)
 	
 
 (include "key_records.scm")
 (include "common_records.scm")
 

Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -39,11 +39,11 @@
 (include "common_records.scm")
 (include "key_records.scm")
 (include "db_records.scm")
 (include "megatest-fossil-hash.scm")
 
-(import debugprint)
+;; (import debugprint)
 
 ;;======================================================================
 ;; ezsteps
 ;;======================================================================
 

Index: lock-queue.scm
==================================================================
--- lock-queue.scm
+++ lock-queue.scm
@@ -20,11 +20,11 @@
 (declare (uses common))
 (declare (uses tasks))
 (declare (uses debugprint))
 
 (use (prefix sqlite3 sqlite3:) srfi-18)
-(import debugprint)
+;; (import debugprint)
 
 ;;======================================================================
 ;; attempt to prevent overlapping updates of rollup files by queueing
 ;; update requests in an sqlite db
 ;;======================================================================

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -49,11 +49,11 @@
 (declare (uses commonmod))
 (declare (uses commonmod.import))
 (declare (uses dbfile))
 (declare (uses dbfile.import))
 (declare (uses debugprint))
-(declare (uses debugprint.import))
+;; (declare (uses debugprint.import))
 ;; (declare (uses mtargs))
 ;; (declare (uses mtargs.import))
 
 ;; (declare (uses ftail))
 ;; (import ftail)
@@ -60,11 +60,12 @@
 
 (import dbmod
 	commonmod
 	dbfile
 	servermod
-	debugprint
+	;; debugprint.import
+	;; debugprint
 	)
 
 (define *db* #f) ;; this is only for the repl, do not use in general!!!!
 
 (include "common_records.scm")

Index: mt.scm
==================================================================
--- mt.scm
+++ mt.scm
@@ -36,11 +36,11 @@
 (include "key_records.scm")
 (include "db_records.scm")
 (include "run_records.scm")
 (include "test_records.scm")
 
-(import debugprint)
+;; (import debugprint)
 
 ;; This is the Megatest API. All generally "useful" routines will be wrapped or extended
 ;; here.
 
 ;;======================================================================

Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -34,11 +34,11 @@
 ;; (declare (uses rmt))
 (declare (uses debugprint))
 
 (use ducttape-lib)
 
-(import debugprint)
+;; (import debugprint)
 
 (include "megatest-fossil-hash.scm")
 
 (require-library stml)
 

Index: newdashboard.scm
==================================================================
--- newdashboard.scm
+++ newdashboard.scm
@@ -43,11 +43,11 @@
 ;; (declare (uses tree))
 ;; 
 ;; (include "common_records.scm")
 ;; (include "db_records.scm")
 ;; (include "key_records.scm")
-(import debugprint)
+;; (import debugprint)
 
 (define help (conc 
 "Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest
   version " megatest-version "
   license GPL, Copyright (C) Matt Welland 2011

Index: portlogger.scm
==================================================================
--- portlogger.scm
+++ portlogger.scm
@@ -23,11 +23,11 @@
 (import (prefix sqlite3 sqlite3:))
 
 (declare (unit portlogger))
 (declare (uses db))
 (declare (uses debugprint))
-(import debugprint)
+;; (import debugprint)
 
 ;; lsof -i
 
 (define (portlogger:open-db fname)
   (let* ((avail    (tasks:wait-on-journal fname 5 remove: #t)) ;; wait up to about 10 seconds for the journal to go away

Index: process.scm
==================================================================
--- process.scm
+++ process.scm
@@ -24,11 +24,11 @@
 
 (use regex directory-utils)
 (declare (unit process))
 (declare (uses debugprint))
 
-(import debugprint)
+;; (import debugprint)
 
 (define (process:conservative-read port)
   (let loop ((res ""))
     (if (not (eof-object? (peek-char port)))
 	(loop (conc res (read-char port)))

Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -28,11 +28,11 @@
 
 (include "common_records.scm")
 ;; (declare (uses rmtmod))
 
 (import dbfile
-	debugprint
+	;; debugprint
 	) ;; rmtmod)
 
 ;; ;;
 ;; ;; THESE ARE ALL CALLED ON THE CLIENT SIDE!!!
 ;; ;;

Index: runconfig.scm
==================================================================
--- runconfig.scm
+++ runconfig.scm
@@ -23,11 +23,12 @@
 (declare (unit runconfig))
 (declare (uses common))
 (declare (uses debugprint))
 
 (use format directory-utils)
-(import debugprint)
+
+;; (import debugprint)
 
 (include "common_records.scm")
 
 (define (runconfig:read fname target environ-patt)
   (let ((ht (make-hash-table)))

Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -37,11 +37,11 @@
 (include "key_records.scm")
 (include "db_records.scm")
 (include "run_records.scm")
 (include "test_records.scm")
 
-(import debugprint)
+;; (import debugprint)
 ;; (include "debugger.scm")
 
 ;; use this struct to facilitate refactoring
 ;;
 

Index: servermod.scm
==================================================================
--- servermod.scm
+++ servermod.scm
@@ -37,11 +37,11 @@
 
 	typed-records
 	data-structures
 
 	artifacts
-	debugprint
+	;; debugprint
 	)
 
 (defstruct srv
   (areapath #f)
   (host     #f)

Index: subrun.scm
==================================================================
--- subrun.scm
+++ subrun.scm
@@ -33,11 +33,11 @@
 
 (use (prefix sqlite3 sqlite3:) srfi-1 posix regex regex-case srfi-69 (srfi 18) 
      posix-extras directory-utils pathname-expand typed-records format
      call-with-environment-variables)
 
-(import debugprint)
+;; (import debugprint)
 
 ;(include "common_records.scm")
 ;;(include "key_records.scm")
 (include "db_records.scm") ;; provides db:test-get-id
 ;;(include "run_records.scm")

Index: tasks.scm
==================================================================
--- tasks.scm
+++ tasks.scm
@@ -28,11 +28,11 @@
 (declare (uses common))
 (declare (uses pgdb))
 (declare (uses debugprint))
 
 (import dbfile
-	debugprint
+	;; debugprint
 	)
 ;; (import pgdb) ;; pgdb is a module
 
 (include "db_records.scm")
 

Index: tdb.scm
==================================================================
--- tdb.scm
+++ tdb.scm
@@ -39,11 +39,11 @@
 (include "common_records.scm")
 (include "db_records.scm")
 (include "key_records.scm")
 (include "run_records.scm")
 
-(import debugprint)
+;; (import debugprint)
 
 ;;======================================================================
 ;;
 ;; T E S T   D A T A B A S E S
 ;;

Index: tests.scm
==================================================================
--- tests.scm
+++ tests.scm
@@ -34,11 +34,11 @@
 ;; (declare (uses sdb))
 (declare (uses servermod))
 ;;(declare (uses stml2))
 (declare (uses debugprint))
 
-(import debugprint)
+;; (import debugprint)
 
 (use sqlite3 srfi-1 posix regex regex-case srfi-69 dot-locking tcp directory-utils)
 (import (prefix sqlite3 sqlite3:))
 (import commonmod)
 (require-library stml)

Index: tree.scm
==================================================================
--- tree.scm
+++ tree.scm
@@ -40,11 +40,11 @@
 (include "megatest-version.scm")
 (include "common_records.scm")
 (include "db_records.scm")
 (include "key_records.scm")
 
-(import debugprint)
+;; (import debugprint)
 
 ;;======================================================================
 ;; T R E E   S T U F F 
 ;;======================================================================