@@ -1155,22 +1155,29 @@
 	;; if have -append-config then read and append here
 	(let ((cfname (args:get-arg "-append-config")))
 	  (if (and cfname
 		   (file-read-access? cfname))
 	      (read-config cfname *configdat* #t))) ;; values are added to the hash, no need to do anything special.
+
 	;; have config at this time, this is a good place to set params based on config file settings
 	(let*  ((dbmode   (configf:lookup *configdat* "setup" "dbcache-mode"))
-		(syncmode (configf:lookup *configdat* "setup" "sync-mode")))
+		(syncmode (configf:lookup *configdat* "setup" "sync-mode"))
+		(srvdebug (configf:lookup *configdat* "server" "debug-parameter")))
 	  (if dbmode
 	      (begin
 		(debug:print-info 0 *default-log-port* "Overriding dbmode to "dbmode)
 		(dbcache-mode (string->symbol dbmode))))
 	  (if syncmode
 	      (begin
 		(debug:print-info 0 *default-log-port* "Overriding syncmode to "syncmode)
-		(dbfile:sync-method (string->symbol syncmode)))))
-	
+		(dbfile:sync-method (string->symbol syncmode))))
+	  (if srvdebug
+	      (begin
+		(debug:print-info 0 *default-log-port* "Overriding server debug parameter to "srvdebug)
+		(tt-server-profile-string srvdebug)))
+	  )
+		
 	*toppath*)))
 
 
 (define (get-best-disk confdat testconfig)
   (let* ((disks   (or (and testconfig (hash-table-ref/default testconfig "disks" #f))