@@ -40,11 +40,14 @@
 	 (if section-dat
 	     (for-each 
 	      (lambda (envvar)
 		(let ((val (cadr (assoc envvar section-dat))))
 		(hash-table-set! whatfound section (+ (hash-table-ref/default whatfound section 0) 1))
-		(if change-env (setenv envvar val))
+		(if (and (string? envvar)
+			 (string? val)
+			 change-env)
+		    (setenv envvar val))
 		(hash-table-set! finaldat envvar val)))
 	      (map car section-dat)))))
      sections)
     (if already-seen
 	(begin