@@ -15,10 +15,15 @@
 ;; 
 ;;     You should have received a copy of the GNU General Public License
 ;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.
 
 ;;======================================================================
+
+(declare (unit common))
+(declare (uses commonmod))
+(declare (uses debugprint))
+(declare (uses mtargs))
 
 (use srfi-1 data-structures posix regex-case (prefix base64 base64:)
      format dot-locking csv-xml z3 udp ;; sql-de-lite
      hostinfo md5 message-digest typed-records directory-utils stack
      matchable regex posix (srfi 18) extras ;; tcp 
@@ -27,15 +32,12 @@
      pkts (prefix dbi dbi:)
      )
 (use posix-extras pathname-expand files)
 
 
-(declare (unit common))
-(declare (uses commonmod))
-(declare (uses mtargs))
-
 (import commonmod
+	debugprint
 	(prefix mtargs args:))
 
 (include "common_records.scm")