Index: configf.scm
==================================================================
--- configf.scm
+++ configf.scm
@@ -252,17 +252,17 @@
 ;;
 (define (read-config path ht allow-system #!key (environ-patt #f)            (curr-section #f)   
 		     (sections #f)              (settings (make-hash-table)) (keep-filenames #f)
 		     (post-section-procs '())   (apply-wildcards #t) )
   (debug:print 9 *default-log-port* "START: " path)
-  (if *configdat*
-      (common:save-pkt `((action . read-config)
-			 (f      . ,(cond ((string? path) path)
-					  ((port?   path) "port")
-					  (else (conc path))))
-                         (T      . configf))
-		       *configdat* #t add-only: #t))
+;; (if *configdat*
+;;     (common:save-pkt `((action . read-config)
+;;       		 (f      . ,(cond ((string? path) path)
+;;       				  ((port?   path) "port")
+;;       				  (else (conc path))))
+;;                        (T      . configf))
+;;       	       *configdat* #t add-only: #t))
   (if (and (not (port? path))
 	   (not (common:file-exists? path))) ;; for case where we are handed a port
       (begin 
 	(debug:print-info 1 *default-log-port* "read-config - file not found " path " current path: " (current-directory))
 	;; WARNING: This is a risky change but really, we should not return an empty hash table if no file read?

ADDED   utils/cleanup-pkts.sh
Index: utils/cleanup-pkts.sh
==================================================================
--- /dev/null
+++ utils/cleanup-pkts.sh
@@ -0,0 +1,12 @@
+#!/bin/bash
+
+pushd $1
+
+for x in *.pkt;do
+    if grep 'T configf' $x > /dev/null;then
+        echo rm $x
+    else
+        echo skip $x
+    fi
+done
+

Index: utils/memproblem.scm
==================================================================
--- utils/memproblem.scm
+++ utils/memproblem.scm
@@ -32,11 +32,14 @@
 (define start-time (current-milliseconds))
 
 (let loop ((n      0)
            (dat    (get-free))
            (stuff  '()))
-  (let ((bigvec (make-u32vector 200000000)))
+  (let ((bigvec (make-u32vector 200000000))
+        (startt (current-milliseconds)))
+    (print "Value at 100: " (u32vector-ref bigvec 100) " ms to access: " (- (current-milliseconds) startt))
+    (u32vector-set! bigvec (random 190000000) 111)
     (print n " Elapsed time: " (/ (- (current-milliseconds) start-time) 1000) " s "
            "Cached: " (k->G (cached dat)) " G "
            "Used:   " (k->G (used   dat)) " G ")
     (if (< n num-iter)
         (loop (+ n 1)(get-free) (cons bigvec stuff)))))