@@ -18,10 +18,14 @@
 
 ;;======================================================================
 
 (declare (unit env))
 
+(declare (uses mtargs))
+
+(import (prefix mtargs args:))
+
 (use sql-de-lite) ;; srfi-1 posix regex regex-case srfi-69 srfi-18 call-with-environment-variables)
 
 (define (env:open-db fname)
   (let* ((db-exists (common:file-exists? fname))
 	 (db        (open-database fname)))