@@ -7,12 +7,10 @@
 ;;  This program is distributed WITHOUT ANY WARRANTY; without even the
 ;;  implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 ;;  PURPOSE.
 ;;======================================================================
 
-(use format)
-
 (define (debug:calc-verbosity vstr)
   (cond
    (vstr
     (let ((debugvals (string-split vstr ",")))
       (if (> (length debugvals) 1)
@@ -29,23 +27,23 @@
       (begin
 	(print "ERROR: Invalid debug value " vstr)
 	#f)
       #t))
 
-(define-inline (debug:debug-mode n)
+(define (debug:debug-mode n)
   (or (and (number? *verbosity*)
 	   (<= n *verbosity*))
       (and (list? *verbosity*)
 	   (member n *verbosity*))))
 
-(define-inline (debug:print n . params)
+(define (debug:print n . params)
   (if (debug:debug-mode n)
       (begin
 	(apply print params)
 	(if *logging* (apply db:log-event params)))))
 
-(define-inline (debug:print-info n . params)
+(define (debug:print-info n . params)
   (if (debug:debug-mode n)
       (let ((res (format#format #f "INFO:~2d ~a" n (apply conc params))))
 	(print res)
 	(if *logging* (db:log-event res)))))