@@ -20,11 +20,11 @@
 
 ;;======================================================================
 ;; Config file handling
 ;;======================================================================
 
-(use regex regex-case) ;;  directory-utils)
+(use regex regex-case matchable) ;;  directory-utils)
 (declare (unit configf))
 (declare (uses process))
 (declare (uses env))
 (declare (uses keys))
 
@@ -118,14 +118,15 @@
                                                     "    (let ((extra \"" cmd "\"))"
 						    "       (conc (or *toppath* (get-environment-variable \"MT_RUN_AREA_HOME\"))"
 						    "             (if (string-null? extra) \"\" \"/\")"
 						    "             extra)))"))
 				((get g)   
-				 (let* ((parts (string-split cmd))
-					(sect  (car parts))
-					(var   (cadr parts)))
-				   (conc "(lambda (ht)(configf:lookup ht \"" sect "\" \"" var "\"))")))
+				 (match (string-split cmd)
+					((sect var)(conc "(lambda (ht)(configf:lookup ht \"" sect "\" \"" var "\"))"))
+					(else
+					 (debug:print-error 0 *default-log-port* "#{get ...} used with only one parameter, \"" cmd "\", two needed.")
+					 "(lambda (ht) #f)")))
 				((runconfigs-get rget) (conc "(lambda (ht)(runconfigs-get ht \"" cmd "\"))"))
 				;; ((rget)           (conc "(lambda (ht)(runconfigs-get ht \"" cmd "\"))"))
 				(else "(lambda (ht)(print \"ERROR\") \"ERROR\")"))))
 		;; (print "fullcmd=" fullcmd)
 		(handle-exceptions