@@ -19,15 +19,19 @@
  
 ;;======================================================================
 ;; Run keys, these are used to hierarchially organise tests and run areas
 ;;======================================================================
 
-(use sqlite3 srfi-1 posix regex regex-case srfi-69)
-(import (prefix sqlite3 sqlite3:))
-
 (declare (unit keys))
 (declare (uses common))
+(declare (uses debugprint))
+
+(use srfi-1 posix regex regex-case srfi-69
+     (prefix sqlite3 sqlite3:))
+
+(import debugprint)
+	
 
 (include "key_records.scm")
 (include "common_records.scm")
 
 (define (keys->keystr keys) ;; => key1,key2,key3,additiona1, ...