@@ -9,11 +9,11 @@
 ;;     (at your option) any later version.
 ;; 
 ;;     Megatest is distributed in the hope that it will be useful,
 ;;     but WITHOUT ANY WARRANTY; without even the implied warranty of
 ;;     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;     GNnU General Public License for more details.
+;;     GNU General Public License for more details.
 ;; 
 ;;     You should have received a copy of the GNU General Public License
 ;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.
 
 ;;======================================================================
@@ -192,12 +192,12 @@
 			(configf:process-line inl ht allow-processing))
 		       ((return-string)
 			inl)
 		       (else
 			(configf:process-line inl ht allow-processing)))))
-	    (if (and (string? res)
-		     (not (equal? (hash-table-ref/default settings "trim-trailing-spaces" "no") "yes")))
+	    (if (and (string? res)  ;; must set to "no" to force NOT trimming trailing spaces
+		     (not (equal? (hash-table-ref/default settings "trim-trailing-spaces" "yes") "no")))
 		(string-substitute "\\s+$" "" res)
 		res))))))
 
 (define (configf:cfgdat->env-alist section cfgdat-ht allow-system)
   (filter
@@ -501,10 +501,22 @@
     (if (and toppath pathenvvar)(setenv pathenvvar toppath))
     (let ((configdat  (if configfile 
 			  (read-config configfile #f #t environ-patt: environ-patt post-section-procs: (list (cons "^fields$" set-fields)) #f))))
       (if toppath (change-directory curr-dir))
       (list configdat toppath configfile fname))))
+
+(define (configf:lookup cfgdat section var)
+  (if (hash-table? cfgdat)
+      (let ((sectdat (hash-table-ref/default cfgdat section '())))
+	(if (null? sectdat)
+	    #f
+	    (let ((match (assoc var sectdat)))
+	      (if match ;; (and match (list? match)(> (length match) 1))
+		  (cadr match)
+		  #f))
+	    ))
+      #f))
 
 ;; use to have definitive setting:
 ;;  [foo]
 ;;  var yes
 ;;