@@ -34,10 +34,11 @@
 ;; (declare (uses daemon))
 (declare (uses db))
 ;; (declare (uses dcommon))
 (declare (uses stml2))
 (declare (uses pkts))
+(declare (uses mutils))
 
 (declare (uses tdb))
 (declare (uses mt))
 (declare (uses api))
 (declare (uses tasks)) ;; only used for debugging.
@@ -44,11 +45,11 @@
 (declare (uses env))
 (declare (uses diff-report))
 ;; (declare (uses ftail))
 ;; (import ftail)
 
-(import stml2)
+(import stml2 mutils)
 
 ;; invoke the imports
 ;; (declare (uses mtargs.import))
 ;; (declare (uses mtconfigf.import))
 (declare (uses cookie.import))
@@ -242,15 +243,14 @@
                             cmd: keep-html, restore, save, save-remove
   -generate-html          : create a simple html dashboard for browsing your runs
   -generate-html-structure  : create a top level html veiw to list targets/runs and a Run view within each run directory.  
   -list-run-time          : list time requered to complete runs. It supports following switches
                             -run-patt <patt> -target-patt <patt> -dumpmode <csv,json,plain-text>
-  -list-test-time	   : list time requered to complete each test in a run. It following following arguments
+  -list-test-time	  : list time requered to complete each test in a run. It following following arguments
                             -runname <patt> -target <patt> -dumpmode <csv,json,plain-text>
-
-  		
-
+  -syscheck               : do some very basic checks; write access and space in tmp, home, runs, links and 
+                            is $DISPLAY valid 
 
 Diff report
   -diff-rep               : generate diff report (must include -src-target, -src-runname, -target, -runname
                                                   and either -diff-email or -diff-html)
   -src-target <target>
@@ -263,12 +263,12 @@
   -pathmod path           : insert path, i.e. path/runame/itempath/logfile.html
                             will clear the field if no rundir/testname/itempath/logfile
                             if it contains forward slashes the path will be converted
                             to windows style
 Getting started
-  -create-megatest-area       : create a skeleton megatest area. You will be prompted for paths
-  -create-test testname       : create a skeleton megatest test. You will be prompted for info
+  -create-megatest-area   : create a skeleton megatest area. You will be prompted for paths
+  -create-test testname   : create a skeleton megatest test. You will be prompted for info
 
 Examples
 
 # Get test path, use '.' to get a single path or a specific path/file pattern
 megatest -test-files 'logs/*.log' -target ubuntu/n%/no% -runname w49% -testpatt test_mt%
@@ -447,10 +447,12 @@
 			"-logging"
 			"-v" ;; verbose 2, more than normal (normal is 1)
 			"-q" ;; quiet 0, errors/warnings only
 
                         "-diff-rep"
+
+			"-syscheck"
                         )
 		 args:arg-hash
 		 0))
 
 ;; Add args that use remargs here
@@ -2354,17 +2356,24 @@
     (let* ((toppath (launch:setup)))
       (if (tests:create-html-tree #f)
           (debug:print-info 0 *default-log-port* "HTML output created in " toppath "/lt/page0.html")
           (debug:print 0 *default-log-port* "Failed to create HTML output in " toppath "/lt/runs-index.html"))
       (set! *didsomething* #t)))
+
 (if (args:get-arg "-generate-html-structure")
     (let* ((toppath (launch:setup)))
       ;(if (tests:create-html-tree #f)
  				(if (tests:create-html-summary #f)
           (debug:print-info 0 *default-log-port* "HTML output created in " toppath "/lt/targets.html")
           (debug:print 0 *default-log-port* "Failed to create HTML output in " toppath "/lt/runs-index.html"))
       (set! *didsomething* #t)))
+
+(if (args:get-arg "-syscheck")
+    (begin
+      (mutils:syscheck)
+      (set! *didsomething* #t)))
+
 ;;======================================================================
 ;; Exit and clean up
 ;;======================================================================
 
 (if (not *didsomething*)