@@ -17,16 +17,16 @@
 ;; (use srfi-69)
 ;; (use regex-case)
 ;; (use posix)
 ;; (use json)
 ;; (use csv)
-(use directory-utils)
+;; (use directory-utils)
 (use srfi-18)
 (use format)
 
-(require-library ini-file)
-(import (prefix ini-file ini:))
+;; (require-library ini-file)
+;; (import (prefix ini-file ini:))
 
 (use sql-de-lite srfi-1 posix regex regex-case srfi-69)
 ;; (import (prefix sqlite3 sqlite3:))
 ;; 
 (declare (uses configf))
@@ -44,10 +44,13 @@
 (include "megatest-fossil-hash.scm")
 
 ;;
 ;; GLOBALS
 ;;
+(define *verbosity* 1)
+(define *logging* #f)
+
 (define *sretrieve:current-tab-number* 0)
 (define *args-hash* (make-hash-table))
 (define sretrieve:help (conc "Usage: sretrieve [action [params ...]]
 
   ls                     : list contents of target area
@@ -323,12 +326,12 @@
 ;; MAIN
 ;;======================================================================
 
 (define (sretrieve:load-config exe-dir exe-name)
   (let* ((fname   (conc exe-dir "/." exe-name ".config")))
-    (ini:property-separator-patt " *  *")
-    (ini:property-separator #\space)
+    ;; (ini:property-separator-patt " *  *")
+    ;; (ini:property-separator #\space)
     (if (file-exists? fname)
 	;; (ini:read-ini fname)
 	(read-config fname #f #t)
 	(make-hash-table))))
 
@@ -351,12 +354,12 @@
 	     (debug:print 0 "ERROR: failed to run script " conversion-script " with params " upstream-file " " package-config)
 	     (let ((pid (process-run conversion-script (list upstream-file package-config))))
 	       (process-wait pid)))
 	    (debug:print 0 "Skipping update of " package-config " from " upstream-file))
 	(debug:print 0 "Skipping update of " package-config " as " upstream-file " not found"))
-    (ini:property-separator-patt " *  *")
-    (ini:property-separator #\space)
+    ;; (ini:property-separator-patt " *  *")
+    ;; (ini:property-separator #\space)
     (let ((res (if (file-exists? package-config)
 		   (begin
 		     (debug:print 0 "Reading package config " package-config)
 		     (read-config package-config #f #t))
 		   (make-hash-table))))