@@ -1197,11 +1197,23 @@
 ;;
 (define (common:bash-glob instr)
   (string-split
    (with-input-from-pipe
        (conc "/bin/bash -c \"echo " instr "\"")
-     read-line)))
+       read-line)))
+
+;;======================================================================
+;; Some safety net stuff
+;;======================================================================
+
+;; return input if it is a list or return null
+(define (common:list-or-null inlst #!key (ovrd #f)(message #f))
+  (if (list? inlst)
+      inlst
+      (begin
+	(if message (debug:print-error 0 *default-log-port* message))
+	(or ovrd '()))))
   
 ;;======================================================================
 ;; T A R G E T S  ,   S T A T E ,   S T A T U S ,   
 ;;                    R U N N A M E    A N D   T E S T P A T T
 ;;======================================================================