@@ -17,26 +17,32 @@
 ;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.
 
 ;;======================================================================
 
 (declare (unit pgdb))
-(declare (uses configf))
+(declare (uses configfmod))
 (declare (uses mtargs))
+(declare (uses debugprint))
 
 ;; I don't know how to mix compilation units and modules, so no module here.
 ;;
-;; (module pgdb
-;;     (
-;;      open-pgdb
-;;      )
-;; 
-;; (import scheme)
-;; (import data-structures)
-;; (import chicken)
-
-(use typed-records (prefix dbi dbi:))
-(import (prefix mtargs args:))
+(module pgdb
+    *
+
+(import scheme)
+(import data-structures)
+(import chicken)
+
+(use typed-records
+     (prefix dbi dbi:)
+     srfi-69
+     srfi-1
+     )
+(import (prefix mtargs args:)
+	debugprint
+	configfmod
+	)
 
 ;; given a configdat lookup the connection info and open the db
 ;;
 (define (pgdb:open configdat #!key (dbname #f)(dbispec #f))  
   (let ((pgconf (or dbispec
@@ -654,5 +660,6 @@
                         ((> i tab2-pages )
                         lst) 
                       (else 
 		  	(loop (+ i 1) (append   lst (list i)))))))
 
+)