Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -1773,10 +1773,59 @@
 	(list 8 6 5 2 1)))
      '(5 10 15 20 30 40 50 500))
     (if values
 	(apply values result)
 	(values 0 day 1 0 'd))))
+
+;; given x y lim return the cron expansion
+;;
+(define (common:expand-cron-slash x y lim)
+  (let loop ((curr x)
+	     (res  `()))
+    (if (< curr lim)
+	(loop (+ curr y) (cons curr res))
+	(reverse res))))
+
+;; expand a complex cron string to a list of cron strings
+;;
+;;  x/y   => x, x+y, x+2y, x+3y while x+Ny<max_for_field
+;;  a,b,c => a, b ,c
+;;
+(define (common:cron-expand cron-str)
+  (if (list? cron-str)
+      (map common:cron-expand cron-str)
+      (let ((cron-items (string-split cron-str))
+	    (slash-rx   (regexp "(\\d+)/(\\d+)"))
+	    (comma-rx   (regexp ".*,.*"))
+	    (max-vals   '((min        . 60)
+			  (hour       . 24)
+			  (dayofmonth . 28) ;;; BUG!!!! This will be a bug for some combinations
+			  (month      . 12)
+			  (dayofweek  . 7))))
+	(if (< (length cron-items) 5) ;; bad spec
+	    `(,cron-str)              ;; just return the string, something downstream will fix it
+	    (let loop ((hed  (car cron-items))
+		       (tal  (cdr cron-items))
+		       (type 'min)
+		       (type-tal '(hour dayofmonth month dayofweek))
+		       (res  '()))
+	      (regex-case
+		  hed
+		(slash-rx ( _ base incr ) (let* ((basen          (string->number base))
+						 (incrn          (string->number incr))
+						 (expanded-vals  (common:expand-cron-slash basen incrn (alist-ref type max-vals)))
+						 (new-list-crons (fold (lambda (x myres)
+									 (cons (conc (string-intersperse res " ") " " x " " (string-intersperse tal " "))
+									       myres))
+								       '() expanded-vals)))
+					    (print "new-list-crons: " new-list-crons)
+					    new-list-crons))
+;;					    (map common:cron-expand (map common:cron-expand new-list-crons))))
+		(else (if (null? tal)
+			  cron-str
+			  (loop (car tal)(cdr tal)(car type-tal)(cdr type-tal)(append res (list hed)))))))))))
+		      
 	    
 ;; given a cron string and the last time event was processed return #t to run or #f to not run
 ;;
 ;;  min    hour   dayofmonth month  dayofweek
 ;; 0-59    0-23   1-31       1-12   0-6          ### NOTE: dayofweek does not include 7

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -364,10 +364,19 @@
 	       (args:get-arg "-envcap")
 	       (args:get-arg "-envdelta")
 	       )
 	      ))
     (debug:print-error 0 *default-log-port* "Unrecognised arguments: " (string-intersperse (if (list? remargs) remargs (argv))  " ")))
+
+;; before doing anything else change to the start-dir if provided
+;;
+(if (args:get-arg "-start-dir")
+    (if (file-exists? (args:get-arg "-start-dir"))
+	(change-directory (args:get-arg "-start-dir"))
+	(begin
+	  (debug:print-error 0 *default-log-port* "non-existant start dir " (args:get-arg "-start-dir") " specified, exiting.")
+	  (exit 1))))
 
 ;; immediately set MT_TARGET if -reqtarg or -target are available
 ;;
 (let ((targ (or (args:get-arg "-reqtarg")(args:get-arg "-target"))))
   (if targ (setenv "MT_TARGET" targ)))
@@ -438,17 +447,10 @@
 	       (file-exists? manual-html))
 	  (system (conc "(" htmlviewercmd " " manual-html " ) &"))
 	  (system (conc "(" htmlviewercmd " http://www.kiatoa.com/cgi-bin/fossils/megatest/doc/tip/docs/manual/megatest_manual.html ) &")))
       (exit)))
 
-(if (args:get-arg "-start-dir")
-    (if (file-exists? (args:get-arg "-start-dir"))
-	(change-directory (args:get-arg "-start-dir"))
-	(begin
-	  (debug:print-error 0 *default-log-port* "non-existant start dir " (args:get-arg "-start-dir") " specified, exiting.")
-	  (exit 1))))
-
 (if (args:get-arg "-version")
     (begin
       (print (common:version-signature)) ;; (print megatest-version)
       (exit)))