@@ -8,12 +8,15 @@
 ;;  implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 ;;  PURPOSE.
 ;;======================================================================
 
 (define-inline (debug:print n . params)
-  (if (<= n *verbosity*)
-      (apply print params)))
+  (begin
+    (if (<= n *verbosity*)
+	(apply print params))
+    (if *logging*
+	(apply db:log-event params))))
 
 ;; if a value is printable (i.e. string or number) return the value
 ;; else return an empty string
 (define-inline (printable val)
   (if (or (number? val)(string? val)) val ""))